Amaliy mashg’ulot №17. Delphi dasturlash tilida imitatsiyali model yaratish usullari

Amaliy mashg’ulot №17. Delphi dasturlash tilida imitatsiyali model yaratish usullari.
Tasodifiy miqdorlar Delhpi random operatoridan xosil qilinadi
X = 2*Random(1)
Y = 2*Random(2)
Masalan
Var
X, Y:array[1..50] of Real;
sum:Integer;
begin
sum := 0;
For i: = 1 To 50 Do
begin
X(i) = Random(1);
Y(i) = Random(2);
If (X(i) - 1) * (X(i) - 1) + (Y(i) - 1) * (Y(i) - 1) < 1 Then sum := sum + 1;
end 
end
Арифметик амаллар.
Delphi ни ишга тушириб Label ва 2та Техт ойнаси, Button тугмаси яратамиз. Button тугмасига курсорни қўйиб куйидаги сатрларни яратамиз.
Var
x,y,z:REAL;
begin
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
z:=x+y;
Edit3.Text:=FloatToStr(z);
end;