[sun_light]

Это метод Эйлера с заданной точностью. написанно в Turbo Delphi.

Код:

program Eiler;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  InOut,
  Math;

const
  E = 0.01;

var
  x,y,g,m,y0,x0 :Extended;
  n,i: integer;

function F(x,y:extended):Extended;
begin
  Result := 0.2*(power(y,0.5))*x;
end;

begin
  Write(RusWD('Введите значение Хо: '));
  readln(x);
  Writeln;
  Write(RusWD('Введите значение Yо: '));
  readln(y);
  Writeln;
  Write(RusWD('Введите значение Хк: '));
  readln(m);
  Writeln;
  Write(RusWD('Введите шаг: '));
  readln(g);
  Writeln;
  Writeln('   X   ','   ','   Y   ');

  y:= y0;
  while abs(y0-y) <= E do
    begin
      y:= y0;
      n:= (x+m)/g;
      for i := 1 to n do
        begin
          y := y+g*f(x,y);
          x := x+g;
        end;
     end;
  Writeln(x:7:5,'   ',y:7:5);
  Readln;

end.

[Bars1992]

Я чтото не понял

PHP код:

y:= y0;
  while abs(y0-y) <= E do 


результатом выражения abs(y0-y) будет ноль так как числа одинаковы а условие abs(y0-y) <= E будет бесконечно равно тру. Возможно в этом проблема?

[sun_light]

ну y:= y0 я написал что бы цикл запустился, и поидее прога не должна больше сюда обращаться. ну возможно и тут какая то ошибка, но щас мне выдаёт вот эту ошибку
[Pascal Error] Project1.dpr(50): E2010 Incompatible types: 'Integer' and 'Extended' в этой строке

Код:

n:= (x+m)/g;

[Black Raider]

Сообщение от sun_light

ну y:= y0 я написал что бы цикл запустился, и поидее прога не должна больше сюда обращаться. ну возможно и тут какая то ошибка, но щас мне выдаёт вот эту ошибку
[Pascal Error] Project1.dpr(50): E2010 Incompatible types: 'Integer' and 'Extended' в этой строке

Код:

n:= (x+m)/g;

Правильно выдает:
Результат деления будет вещественное число.
а у вас n описан как целое.
n:integer меняем на n:real;

[sun_light]

а вот для этой строки n должно быть integer

Код:

 for i := 1 to n do

пишет [Pascal Error] Project1.dpr(52): E2010 Incompatible types: 'Integer' and 'Real'

[Kapitoshka438]

n надо оставить Integer.

Код:

n:= Round((x+m)/g);

[sun_light]

Спасибо. А почему на экран не выводит значения x и y?

[sun_light]

вроде исправил. тут надо так - y0:= y

Код:

  y:= y0;
  while abs(y0-y) <= E do