Delphi tilida

xl “ 0.871 
2.871 

Protsedura TForm l.B utton2C lick «yangi» tugmachasini 

sichqonchada chiqillatish bilan ishlaydi va tahrirlash maydoniga 
kursorni koeffitsiyent qiymatlarini kiritish uchun olib kelib qo‘yadi. 
Protsedura TForm l.Button3Click «tamom» tugmachasini 
sichqonchada chiqillatish bilan ishlaydi va formani yopadi. 
M i s o 12. 
Delphi imkoniyatlarini va vizual loyihalash texnikasini ko‘rsatish 
uchun sportsmen distansiyani chopib o‘tgan tezlikni hisoblovchi 
loyihani ishlab chiqamiz. Dastur ishlash jarayonidagi oynasining 
ko‘rinishi rasmda ko‘rsatilgan. 

79 

if Sonrtu icjimm 

Sponsmen tezJigim hisoblasii dastun 

M ln^ 1»* 

Vdi^t: Ivnin L'oceh 
Tezlik: 18.04 km 

ChloAli 

procedure ButtonlClick(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
private 
{ Private declarations } public 

80 

{ Public declarations } end; 
var 
Forml: TForml; 
implementation 
{$R *.dfm} 
procedure TForml.ButtonlClick(Sender: TObject); 
var 
dist: integer; 
t: real; 
min :integer; 
sek : integer; 
v: real; 
begin 
dist := StrToInt(Editl.Text); 
t := StrToFlgat(Edit2.Text); 
min := Trunc(t); 
sek := Trunc(t*100) mod 100; 
v := (dist/1000) / ((min*60 + sek)/3600); 
label4.Caption := 'Distansiya: '+ Editl.Text + ' m' + #13