Мавзу: Корхона омборидаги махсулотлар бўйича маълумотлар базасини ташкил этишни Turbo Pascal дастурлаш тилида дастурини яратиш

TOPSHIRIQ.

Eyler usuli yordamida

differensiyal tenglamani

boshlang’ich shartini qanoatlantitruvchi yechimni [0;0,6] oraliqda h=0,15 qadam bilan hisoblash algoritmmini va dasturini tuzing .
ESLATMA. Tenglamaning aniq yechimi dan iborat bo’lib , unga berilgan tenglama va boshlang’ch shartni qanoatlantirishidan osonlikcha ishonch hosil qilish mumkin.

Umumiy holda Koshi masalasini yechish uchun Eyler usulining algoritmiga mos blok-sxema 8-rasmda keltirilgan.

BOG’LANISH



x₀,y₀,h,x larni kiritish





i=1









natijani olish

TAMOMLASH

HA

YO’Q

Paskal тилида тузилган дастури

program EYLER;

uses CRT;
var y,y0,z,a,b,h,x0,x:real;
i,n:integer;
p:array[1..10]of real;
procedure EYLE;//(y:real;x:real);
begin
z:=x+y;
end;
begin
clrscr;
writeln('Ýéëåð óñóëè');
write('a='); readln(a);
write('b='); readln(b);
write('n='); readln(n);
write('x0='); readln(x0);
write('y0='); readln(y0);
h:=(b-a)/n; x:=x0; y:=y0;
for i:=1 to n-1 do
begin EYLE;
p[i]:=y+h*z;
write('y(",i,")=',p[i]:9:6);
y:=p[i];
x:=x+h;
readln;
end;
end.
Delphi тилида тузилган дастури

UNIT UNIT1;

var
Form1: TForm1;Edit1,Edit2,Edit3,Edit4,Edit5,
y,y0,z,a,b,h,x0,x:real; p:array[1..10]of real;
i,n:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
z:=x+y;
end;
begin
a:=strtofloat(Edit1.Text);
b:=strtofloat(Edit2.Text);
n:=strtofloat(Edit3.Text);
x0:=strtofloat(Edit4.Text);
y0:=strtogloat(Edit5.Text);
h:=(b-a)/n; x:=x0; y:=y0;
for i:=1 to n-1 do
begin EYLER;
p[i]:=y+h*z;
label7.caption:=floattostr('y(",i,")=',p[i]:9:6);
y:=p[i];
x:=x+h;
end;
end.