Завдання 1. Розрахувати заробітну плату в Microsoft Excel, якщо нарахування це: • посадовий оклад;
• премія;
• доплата на дітей.
Утримання включають:
• податок;
• перерахунок в ощадний банк.
Зокрема, премія становить 10% від посадового окладу, якщо стаж роботи менший, ніж 5 років, і 20%, якщо стаж роботи більший, ніж 5 років; доплата на дітей становить 30% від посадового окладу при наявності 2 і більше дітей.
Податок дорівнює:
• 0, якщо нараховано менше, ніж 2000 грн.;
• 15% від нарахувань, якщо нараховано більше, ніж 2000 і менше, ніж 4000 грн.;
• 20% від нарахувань, якщо нараховано більше, ніж 4000 грн.
Перерахувань в ощадний банк не має. Визначити суму "до виплат".
16,13(10 с/с)->(16 c/c) =10.2147АЕ147АЕ1000
целую и дробную часть переводим отдельно
ЦЕЛАЯ ЧАСТЬ = 10
16 | 16
16 | 10 <
|
0 - остаток 0 сносим в частное--
ДРОБНАЯ ЧАСТЬ
умножаем основание на основание 16 - постоянно
0.13
*16
2.08 - целую часть (запоминаем) - дробную снова умножаем на 16
0.08
*16
1.28 - целую часть (запоминаем) - дробную снова умножаем на 16
0.28
*16
4.48- целую часть (запоминаем) - дробную снова умножаем на 16
0. 48
*16
7,68- целую часть (запоминаем) - дробную снова умножаем на 16
0,68
*16
и так далее
из целых частей от умножения (2 1 4 7 )- формируется ДРОБНАЯ часть шестнадцатиричного числа
соединяем с ЦЕЛОЙ частью - получается бесконечная шестнадцатиричная дробь
10.2147АЕ147АЕ1000
(16 c/c)->(10 c/c) - обратная операция
Для перевода шестнадцатеричного числа в десятичное необходимо это число представить в виде суммы произведений степеней основания шестнадцатеричной системы счисления на соответствующие цифры в разрядах шестнадцатеричного числа.
10.2147АЕ =1*16^1+0*16^0+2*16^-1+1*16^-2+4*16^-3+7*16^-4+10*16^-5+14*16^-6 =16.12999999523163=16.13
const
n = 10; //количество элементов массива
var
a: array [1..n] of real;
i: integer;
begin
for i:= 1 to n do
begin
writeln('Введите ', i, ' элемент массива');
readln(a[i]); //вводим очередной элемент массива
end;
write('Исходный массив: ');
for i:= 1 to n do
write(a[i], ' '); //Выводим исходный массив
writeln; //Перевод на новую строку
write('Полученный массив: ');
for i:= 1 to n do
begin
a[i]:= a[i] * a[n]; //элемент массива умножаем на последний элемент
write(a[i], ' '); //выводим полученный элемент массива
end;
end.