Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабораторные работы по численным методам / Численные методы / Численные методы / лабораторка 7 / Program1
.pas program Lab7;
const a=-1;
b=0;
N=8;
var
i: integer;
h:real;
x,y: array [0..N] of real;
function f(x,y:real): real;
begin
f:=x*x+2*x+y/(x+2);
end;
begin
h:=(b-a)/N;
y[0]:=1.5;
x[0]:=a;
writeln('X(i) Y(i)');
//for i:=0 to N-1 do
repeat
begin
y[i+1]:=y[i]+h*f(x[i],y[i]);
x[i+1]:=x[0]+(i+1)*h;
writeln(x[i]:2:5,' ',y[i]:2:5);
end;
until x[i]>0;
writeln(h);
end.
const a=-1;
b=0;
N=8;
var
i: integer;
h:real;
x,y: array [0..N] of real;
function f(x,y:real): real;
begin
f:=x*x+2*x+y/(x+2);
end;
begin
h:=(b-a)/N;
y[0]:=1.5;
x[0]:=a;
writeln('X(i) Y(i)');
//for i:=0 to N-1 do
repeat
begin
y[i+1]:=y[i]+h*f(x[i],y[i]);
x[i+1]:=x[0]+(i+1)*h;
writeln(x[i]:2:5,' ',y[i]:2:5);
end;
until x[i]>0;
writeln(h);
end.
Соседние файлы в папке лабораторка 7