1-mavzu: algoritmlar reja: Algoritmlarning xossalari. Algoritmlarning turlari. Tayanch so‘z va iboralar

Eyler formulasi yordamida algoritm va dasturlar tuzish
Misol.  differensial tenglamani Eyler formulasi yordamida taqribiy yechish algoritmi va dasturi tuzilsin.
Algoritmi:

Yuqorida tuzilgan algoritm differensial tenglamalrni Eyler usulida taqribiy yechishning umumiy usulidir. Aynan berilgan tenglamani yechish uchun bu algoritmni quyidagicha yozish mumkin.


Delphi tilida dasturi:
Delphi dasturini ishga tushiramiz va yangi loyiha yaratib, formaga misol berilishini kiritish uchun 1 ta Label, kiritiladigan y0,a,b,n lar uchun 4 ta Label va 4 ta Edit, chiqariladigan ma'lumotlar uchun 1 ta Label va 1 ta Memo hamda 1 ta Button komponentlarini quyidagicha joylashtiramiz:

Form1 ning Caption xossasi qiymat darchasiga "Eyler usuli" so‘zini, Label1 komponenti Caption xossasiga misol berilishini, Label2, Label3, Label4, Label5, Label6 komponentlariga mos ravishda "y0=", "a=", "b=", "n=", "Javob" so‘zlarini kiritamiz. Edit larning Text xossalaridagi qiymatlarni o‘chiramiz. Memo1ning Lines xossasiga kirib, "Memo1" so‘zini o‘chiramiz. Button1ning Caption xossasiga "OK" so‘zini kiritamiz. Natijada forma quyidagi holatga keladi:

Button1tugmasi ustida sichqoncha chap tugmasini ikki marta bosib, hosil bo‘lgan protseduraga quyidagi dasturni kiritamiz:
procedure TForm1.Button1Click(Sender: TObject);
Var x,y,y0,a,b,h:real; n:integer;
Begin
Memo1.Clear;
y0:=StrToFloat(Edit1.Text);
a:=StrToFloat(Edit2.Text);
b:=StrToFloat(Edit3.Text);
n:=StrToInt(Edit4.Text);
h:=(b-a)/n;
x:=a; y:=y0;
repeat
Memo1.Lines.Add('x='+FloatToStr(x)+' y='+FloatToStr(y));
y:=y+h*(0.5*y-sqr(x));
x:=x+h;
until x>b;
end;
Dasturni kiritib bo‘lgandan so‘ng F9 tugmasini bosamiz. Hosil bo‘lgan ishchi formada y0,a,b,n larga qiymatlar kiritib natija olamiz.