Контрольная работа: Вычисление значения функции y(x)
begin
Xn:=strtoFloat(edit1.text);
Xk:=strtoFloat(edit2.text);
h:=strtoFloat(edit3.text);
begin
x:=Xn;
while x<=Xk+h/2 do
begin
If (x=2) then
begin
memo1.Lines.Add('No answer');
end
else
begin
if x<0 then y:=1/sin(x) else
if (x>=0) and (x<2) then y:=(2*x)/((abs(x-2)/(x-2))*(exp(1/3*(ln(abs(x-2)))))) else
if x>2 then y:=sqr(cos(x))/(x-2);
memo1.Lines.Add('y='+FormatFloat('0.000',y));
Series1.AddXY(x,y,'',clred);
end;
x:=x+h;
end;
end;
end;
end.
Вывод: т.к. ответы в Pascal, Excel, MathCADи Delphiсошлись – решение верно.
Блок-схема алгоритма решения задания: 1.2
Нахождение функции, заданной условием:
