Реферат: Розробка та виконання програм на мові Pascal

facktorial:=facktorial1;

end;

end;

begin

clrscr;

writeln('Введiть елементи масива:');

writeln;

for i:=1 to 5 do

for j:=1 to 4 do begin

write('Елемент [',i,',',j,']=');

readln(c[i,j]);

end;

m:=0;

clrscr;

for i:=1 to 5 do begin

for j:=1 to 4 do begin

k[i,j]:=c[i,j]/facktorial(i+j);

if k[i,j]<1 then m:=m+1;

write(k[i,j]:7:5,' ');

end;

writeln;

end;

end.

РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ :

0.50000 0.33333 0.16667 -0.04167

0.66667 0.12500 -0.01667 0.00556

0.20833 -0.01667 -0.00417 0.00119

0.05833 0.01250 0.00417 0.00005

0.00417 -0.00099 0.00005 0.00000