Контрольная работа: Вычисление значения функции y(x)

В Pascal:

program zadanie3;

uses crt;

const n=4;

var x,y:array[1..n] of real;

i:integer;

z,j,d:real;

begin

clrscr;

for i:=1 to n do

begin

write('Enter x[i]=');

readln(x[i]);

end;

for i:=1 to n do

begin

j:=exp(x[i])-8.35*x[i]*x[i];

z:=exp(1/3*ln(abs(j)))*(abs(j)/j);

d:=exp(x[i]*ln(37))+ln(abs(sin(2*x[i])))*(abs(2*x[i])/2*x[i]);

y[i]:=z/d;

writeln('x[i]=',x[i]:5:1,' y[i]=',y[i]:5:3);

end;

readkey;

end.

Результаты вычислений:

В Excel :