QBasic Örnekler, QBasic Dökümanlar, QBasic Uygulamaları QBasic Kodlar, QBasic Dersler,QBasic Programlar, QBasic Ders Notları, QBasic Download, QBasic İndir
q basic mod komutu etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster
q basic mod komutu etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster
1-100 Arasindaki Sayilar icinde Kac Adet 9 Oldugunu Bulan Program
FOR sayi = 1 TO 100
ON = sayi / 10 : BIR = sayi MOD 10
IF ON = 9 THEN X=X+1 : PRINT sayi
IF BIR = 9 THEN X=X+1 : PRINT sayi
NEXT sayi
PRINT "TOPLAM= " ; X
ON = sayi / 10 : BIR = sayi MOD 10
IF ON = 9 THEN X=X+1 : PRINT sayi
IF BIR = 9 THEN X=X+1 : PRINT sayi
NEXT sayi
PRINT "TOPLAM= " ; X
Kaydol:
Kayıtlar
(
Atom
)