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

В Delphi:

var x,y:array[0..3]of real;

i:integer;

z,j,d:real;

begin

randomize;

for i:=0 to 3 do

begin

x[i]:=strtofloat(stringGrid1.cells[i,0]);

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;

stringgrid1.Cells[i,1]:=FormatFloat('0.000',y[i]);

end;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

form1.close;

end;

end.

Вывод: т.к. ответы в Pascal,Excel,MathCAD и Delphi сошлись – решение верно.

Блок-схема алгоритма решения задания №1.3

Нахождение функции заданном массиве:

Задание 1.4

Найти сумму, если задана функция y(x), задан массив а, даны Xn, n, h.