(в excel)текст 1. создать электронную таблицу. 2. выполнить по варианту. каждое разместить на отдельном листе одной книги. 3. представить на проверку. вариант 2. 1. выполните следующие , используя только логические функции, ответ формируется в виде таблицы, имеющей не менее 15 строк: 1) дан список работниц, с указанием фамилий, окладов и количества детей-иждивенцев у каждой из работниц. рассчитать сумму доплат на одного ребенка и всех детей в семье каждой работницы и общую сумму к выплате (с учетом оклада, доплаты и подоходного налога). причем, доплата производится по системе: при 1 ребенке - 300 руб., при 2-х - 250 руб. на каждого ребенка, при 3-х и более детей - 225 руб. на каждого ребенка. 2) известен список вкладчиков банка с указанием фамилий, суммы и срока вклада (3, 6 или 12 месяцев) и две годовые процентные ставки, не зависящие от срока вклада: 17% для сумм вкладов, не превышающих 10 000 руб. и 19% для сумм от 10 000 руб. и выше. определить величину вклада каждого клиента банка на момент получения вклада. выполните следующие , используя только статистические функции (макс, мин, ранг, срзнач, суммесли, счетесли): 1) дан список торговых агентов, содержащий 10 строк. известны фамилия и суммы сделок за месяц. рассчитать суммы полученные каждым сотрудником, если оплата составляет к% от суммы сделок. кроме того, 3 лучших сотрудника премируются в размере м% от суммы сделок. 2) известен денежный фонд для поощрения 15 сотрудников. его м-тая часть выделяется для поддержки одиноких матерей, причем всем детям таких матерей выплачиваются равные суммы. распределить выделенный фонд пропорционально , а для одиноких матерей еще и пропорционально количеству имеющихся детей. 3. выполните следующие , используя функции для работы с ассоциативными массивами – просмотр и впр. 1) каждому студенту предложено ответить на 100 вопросов, причем за правильный ответ начисляется 1 (один) . по итогам анкетирования выставляются оценки по следующему критерию: от 90 до 100 – оценка 5; от 75 до 89 – оценка 4; от 60 до 74 – 3; от 50 до 59 – 2; от 35 до 49 – 1; менее 35 – оценка 0. составить таблицу для автоматического определения оценок студентов по полученным им . в таблице должны быть указаны фамилии студентов (не менее 20), количество для каждого и вычислена соответствующая оценка.
function DelWord(s:string):string;
var
i,n:integer;
begin
n:=length(s);
i:=n;
repeat
if i>=1 then Dec(i);
until s[i]=' ';
Delete(s,i+1,n-i);
DelWord:=s
end;
var
st:string;
begin
Write('Введите строку: '); Readln(st);
Writeln('Результат: ',DelWord(st))
end.
Тестовое решение:
Введите строку: А роза упала на лапу Азора
Результат: А роза упала на лапу
//PascalABC.Net
function DescDigits(s:string):boolean;
var
desc:boolean;
i,n:integer;
c1,c2:char;
begin
n:=length(s);
desc:=true;
c1:='A'; { главное, чтобы символ был "старше" любой цифры }
i:=1;
repeat
c2:=s[i];
if c2 in ['0'..'9'] then
if c2<c1 then c1:=c2 else desc:=false;
Inc(i)
until (i>n) or (not desc);
DescDigits:=desc
end;
var
s:string;
begin
Write('Введите строку: '); Readln(s);
if DescDigits(s) then Writeln('true') else Writeln('false')
end.
Тестовое решение:
Введите строку: Пример строки с цифрами 98 по убыванию 7 6,5, так4тоже1можно!
true
Вариант первой программы для Borland Pascal 7.01
uses Crt;
function DelWord(s:string):string;
var
i,n:integer;
begin
n:=length(s);
i:=n;
repeat
if i>=1 then Dec(i);
until s[i]=' ';
Delete(s,i+1,n-i);
DelWord:=s
end;
var
st:string;
begin
ClrScr;
Write('Введите строку: '); Readln(st);
Writeln('Результат: ',DelWord(st));
ReadKey
end.
k = 4096 сим.
I = 3.5 Кбайт
Найти N = ?
Решение:
N = 2^i
I = k*i
i = I/k
3.5 Кбайт = 3584 байт = 28672 бит
i = 28672 / 4096 = 7 бит
N = 2^7 = 128 символов
2)
Глубина цвета = 350 Кбайт / (1280 * 320 пикселей) = 350 * 8 * 1024 бит / 409600 пикселей = 2867200 бит / 409600 пикселей = 7.0 бит
Кол-во цветов = 2^7.0 бит = 128.0 цветов
3)
280 Гбайт = 280 * 1024 * 1024 * 1024 * 8 бит = 2405181685760 бит
700 Мбайт = 700 * 1024 * 1024 * 8 бит = 5872025600 бит
Кол-во = 2405181685760 / 5872025600 шт = 409.6 шт ~= 410 шт (округляем в большую сторону так как кусками тут быть не может)