Курс лекций по основам алгоритмизации и программирования задач машиностроения. Кравченко Д.В. - 104 стр.

UptoLike

Составители: 

Рубрика: 

102
H:=(xk – x0)/n;
x:=x0;
y:=y0;
while (x<=xk) do
begin
y:=y+h*sqr(x);
writeln(‘
при
Х
= ’,x:4:2,’Y= ’,y:4:2);
x:=x+h;
end;
readkey;
End.
Начало
Ввод
x
0
, x
k
, n,y
0
h=(x
k
– x
0
)/n
x=x
0
y=y
0
x<= x
k
да
y=y+hx
2
Вывод x, y
x=x+h
Конец
Рис. 6.6. Алгоритм программы для решения дифференциального
уравнения методом Эйлера