Hızlı Konu Açma

Hızlı Konu Açmak için tıklayınız.

Son Mesajlar

Konulardaki Son Mesajlar

Reklam

Forumda Reklam Vermek İçin Bize Ulaşın

DELPHI / Ortalama

YaSa22

Fahri Üye
Fahri Üye
Katılım
12 Temmuz 2014
Mesajlar
2,293
Tepkime puanı
2
Puanları
0
Konum
GTA
procedure TForm1.Button1Click(Sender: TObject);
var
sayi1,sayi2,sayi3,ortalama:real;
begin
sayi1:=strtoint(edit1.Text );
sayi2:=strtoint(edit2.Text ) ;
sayi3:=strtoint(edit3.Text );
ortalama:=(sayi1+sayi2+sayi3)/3;
label4.Caption := ''''ortalama='''' + floattostr(ortalama);


end;

end.
 

Users Who Are Viewing This Konu (Users: 0, Guests: 1)

Üst