Метод Эйлер

[Maik2013]

Помогите пожалуйста разобраться кодом

Используется синтаксис Delphi

function F(x,y:real):real;
begin
f:=y-(2*x)/(y);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x0,y0,h,x,y:Real;
i:Integer;
begin
x0:=StrToInt(Edit1.Text);
y0:=StrToInt(Edit2.Text);
h:=StrToInt(Edit3.Text);
Memo1.Lines.Add('Метод Эйлер');
x:=x0;
y:=y0;
begin
repeat
y:=y+h*f(x,y);
Memo1.Lines.Add('i='+FloatToStr(i)+'; x='+FloatToStr(x)+';y='+FloatToStr(y));
x:=x+h;
until  (x>y0);
end;
end;
end.
 

[Pphantom]

Тема перемещена из форума «Программирование» в форум «Карантин»
по следующим причинам:

- отсутствует формулировка предмета обсуждения.

Исправьте все Ваши ошибки и сообщите об этом в теме Сообщение в карантине исправлено.
Настоятельно рекомендуется ознакомиться с темами Что такое карантин и что нужно делать, чтобы там оказаться и Правила научного форума.