Создать и оформить по образцу таблицу (таб.8), выполнить все необходимые расчеты, оформить соответствующим столбцам денежный формат, использовать, где необходимо функции. Предусмотреть премию в размере 15% от «к оплате» тем сотрудникам, у кого количество отработанных часов больше или равно 50. Налог составляет: 14%, если сумма к оплате выше 1500; 12%, если сумма к оплате находится в пределах от 1000 до 1500 включительно; 10%, если меньше 1000. На руки = К оплате – Налог По данным таблицы 8 построить разные типы диаграмм по столбцам «Фамилия» и «На руки». Задать название диаграммы «Ведомость на получение зарплаты». Диаграмма должна быть снабжена легендой и подписями данных.
program raf105;
const
n = 4;
var
a: array[1..n,1..n] of integer;
i,j,sum: integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
a[i,j]:= random(1,9);
if i = j then
sum:= sum + a[i,j];
write(a[i,j]:4,' ');
end;
end;
writeln;
writeln;
writeln('Вывод:');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
if i <> j then
a[i,j]:= a[i,j] * sum;
write(a[i,j]:4,' ');
end;
end;
end.
PascalABC 3.4.2program raf105;
uses
graphABC;
var
a: array[1..20,1..2] of integer;
x,y,i:integer;
begin
ClearWindow(clBlack);
randomize;
repeat
if i = 20 then
i:= 0;
i:=i+1;
x:=random(windowwidth);
y:=random(windowheight);
if a[i,1] = 0 then
begin
a[i,1]:= x;
a[i,2]:= y;
end
else
begin
setbrushcolor(clBlack);
circle(a[i,1],a[i,2],4);
a[i,1]:= x;
a[i,2]:= y;
end;
sleep(200);
setbrushcolor(clWhite);
circle(x,y,4);
until false;
end.
PascalABC 3.4.2