Qbasic Rastgele 3 Adet Sayı Aynı İse Kazandınız Değil İse Kaybettiniz

 

Bu kodlar ile birlikte  Rastgele 3 Adet Sayı Aynı İse Kazandınız Değil İse Kaybettiniz kolayca yapabileceksiniz.

 

Qbasic Rastgele 3 Adet Sayı Aynı İse “Kazandınız” Değil İse “Kaybettiniz” Programı

• Basit bir oyun olarak düşündüğümüz bu programda ise bilgisayar kendi hafızasından 1 ile 10 arasında  3 adet rastgele sayı tutmaktadır. 
• Tutulan 3 adet sayıdan 3 sayıda aynı ise ekranda kazandınız değilse kaybettiniz yazmaktadır. 
• Sizlerde bu tür basit kodlar ile kendi oyun programlarınızı yazabilirsiniz.

 

CLS
RANDOMIZE TIMER
a = FIX(RND * 10) + 1
b = FIX(RND * 10) + 1
c = FIX(RND * 10) + 1
PRINT a, b, c
IF (a = b) AND (a = c) THEN PRINT "Kazandiniz." ELSE PRINT "Kaybettiniz."

 

 

Sizlerde kendi yazdığınız programları, istek ve sorularınızı bizlere iletişim kısmından iletebilirsiniz.

QBasic ile ilgili kavramlara ek olarak, QBasic öğrenimini teşvik etmek için karar verme ve döngü kontrolleri dahil olmak üzere bazı örnekler ve örnek uygulamalar vardır.

Kodlarda herhangi bir problem olduğunda lütfen yorum kısmından iletişime geçiniz.

Diğer örneklere göz atabilirsiniz:

QBASİC FAKTÖRİYEL HESAPLATMA

1 İLE 100 ARASINDA KAÇ ADET 9 OLDUĞUNU BULAN QBASİC

QBASİC GİRİLEN İKİ KELİMENİN HARFLERİNİ ALT ALTA YAZDIRMA