Menghitung waktu dan jarak yang dibutuhkan kancil untuk mengejar kura-kura dengan DELPHI7

Di bawah adalah suatu alat hitung yang di rancang dengan menggunakan program Delphi7 . Aplikasi   yang saya buat adalah aplikasi menghitung waktu yang dibutuhkan kancil dan jarak yang ditempuh kancil jika kura-kura telah berjalan duluan dan kancil menyusul dengan ssyarat kecepatan jalan kancil harus lebih besar dari pada kecepatan jalan kura-kura supaya nilai yang output ytang didapat bernilai positif.

Aplikasi ini dapat di download gratis di http://salimhimafi.blogspot.com . DOWNLOAD GRATIS disini

Dibawah adalah rumus yang saya gunakan.

Var vkr,vkn,t0,tkn,xkn: real;

Begin

 vkr:=StrToFloat(Edit1.Text);

 vkn:=StrToFloat(Edit2.Text);

 t0:=StrToFloat(Edit3.Text);

 //while vkn<vkr di

 if vkn<vkr then

 Begin

  label2.Font.Size:=8;

  label2.Color:=Clsilver;

  label2.Caption:='kec kancil harus lebih besar dari pada kura-kura';

  Edit2.SetFocus;

  end;

 tkn:=(vkr*t0)/(vkn-vkr);

 xkn:=vkn*tkn;

 Edit4.Text:=FloatToStr(tkn);

 Edit5.Text:=FloatToStr(xkn);

Begin

edit1.Clear;

edit2.Clear;

edit3.Clear;

edit4.Clear;

edit5.Clear;

label2.Caption:='kecepatan kancil';

Share this history on :

Share

0

0digg