ard arda girilen sayıların çıkartımı

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Kullanıcı avatarı
TRSoft
Kıdemli Üye
Mesajlar: 636
Kayıt: 13 Şub 2004 11:39
Konum: Konya
İletişim:

Mesaj gönderen TRSoft »

y=(x-y) yerine y:=(y-x) şeklinde yazın ve önce y nin değerini kontrol edin eğer yazdığınız sayı ilk değer ise onu y ye eşitleyin ve ikinci değeri x e eşitleyin..

örnek

Kod: Tümünü seç

ilk değer basıldı 10 bu arada y=0 olduğu için y=10
ikinci değer girin 5 y<>0 olduğundan x=5
y:=y-x;
y=5
tekrar değer girildi 3 y<>0 ise x=5
y=y-x --> 0 gibi devam eder..
//*** eklenti ******//
Ben yazarken sen çözümü bulmuşsun bile.
Hadi kolay gelsin
İlimle geçen bir gece,
ibadetle geçen bin geceden hayırlıdır.
HZ. MUHAMMED (S.A.)
Cevapla