|
Topshiriqlarni bajarish tartibi
|
| bet | 2/3 | | Sana | 14.01.2023 | | Hajmi | 84.4 Kb. | | #38206 |
Bog'liq 3-mavzu siklik algoritmlarni dasturlash kirish, Oksidler óz betinshe Asad , Algoritmik tillar va dasturlash YOZMA, TTOM shippi, Хамид Алимджан, Mirzo Ulug\'bek-WPS Office, Mavzu Yalpi talab yalpi taklif va ularning hajmiga tasir etuvch, 1-амалий иш КТЭ, 64e07299cd869 Металлар рец, Taqdimot (1), Guruh bilan ishlashning nazariy asoslari-fayllar.org, 933, тест, 7- Ma\'ruza (3)
Topshiriq: S(x) funksiya qiymatlar jadvalini h qadam bilan X1 dan X2 gacha oraliqda o‘zgaradigan x uchun dasturni yozing va sozlang.
Dialog paneli 3.1-rasmda berilgan.
Ilova matni quyida keltirilgan.
unit tema3;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.text:='0';
Edit2.text:='2';
Edit3.text:='5';
Edit4.text:='0,25';
Memo1.Clear;
Memo1.Lines.Add('Rezulьtatы st. gr.920201 Petrova I.I.');
end;
procedure TForm1.Button1Click(Sender: TObject);
var x1,x2,x,h,a,s:extended;
N,k,c:integer;
begin
x1:=StrToFloat(Edit4.Text);
Memo1.Lines.Add(' x1='+Edit1.Text);
x2:=StrToFloat(Edit2.Text);
Memo1.Lines.Add(' x2='+Edit2.Text);
N:=StrToInt(Edit3.Text);
Memo1.Lines.Add(' N='+Edit1.Text);
h:=StrToFloat(Edit4.Text);
Memo1.Lines.Add(' h='+Edit4.Text);
c:=-1; x:=x1;
repeat
a:=1; S:=1;
for k:=1 to N do
begin
a:=c*a*x/k;
s:=s+a;
end;
Memo1.Lines.Add('pri x='+FloatToStrF(x,ffFixed,6,2)+' summa ='
+FloatToStrF(s,ffFixed,6,2));
x:=x+h;
until x>x2;
end;
end.
Dasturni sozlagandan so‘ng (N=2, X1=0, X2=1, h=3) test tuzing, kursorni birinchi operatorga (N:= ) o‘rnating, F4 klavishni bosing. Shundan so‘ng F7 klavishni bosib dasturni qadamli bajaring va bajarilish jarayonida barcha o‘zgaruvchilar qanday o‘zgarishini kuzating.
|
| |
