begin

for j:=1 to 4 do

begin

a[i,j]:=a[i,j]/max;

write (a[i,j]:4:2,' ')

end;

if j=4 then writeln

end;

readln

end.

044-95 ст.1

На відрізку (а, в) задано 3 функції. Обчислити їх значення. Отримані результати оформити

У вигляді таблиці.

Program M95_16;

Uses WinCrt;

Const a=-5;b=3;n=12;

Type mas=array[1..n]of real;

Var x,F1,F2,F3:mas;

i:integer;

h:real;

begin

writeln('Ім"я та призвище студента: Сидорчук Таня');

writeln('Сума литер имени та призвища =12');

h:=(b-a)/n;

for i:=1 to n do

begin

x[i]:=a+i*h;

F1[i]:=(x[i]*x[i]+2)/(x[i]*x[i]*x[i]+5);

F2[i]:=4*cos(x[i]+2);

F3[i]:=ln(abs(x[i]-4))+7;

end;

writeln('___________________________________________');

writeln('| i | x | F1(x) | F2(x) | F3(x) ');

writeln('___________________________________________');

for i:=1 to n do

begin

writeln('|',i:5,'|',x[i]:3,'|',F1[i]:3,'|',F2[i]:3,'|',F3[i]:3,'|');

end;

writeln('___________________________________________');

end.

Література.

1.Методичні вказівки № 044-65, 044-66, 044-84, 044-95, 044-112.

2.Конспект лекцій.