QBasic - 3. EĞER Pozitif-Negatif-Sıfır

QBasic - 3. EĞER Pozitif-Negatif-Sıfır

10 CLS
20 INPUT "Sayiyi Giriniz:"; A
30 IF A>0 THEN PRINT "Pozitif"
40 IF A<0 THEN PRINT "Negatif"
50 IF A=0 THEN PRINT "Sifir"
60 END

Kullanılan karşılaştırma operatörleri
<       Küçük
<=     Küçük Eşit
>       Büyük
>=     Büyük Eşit
<>     Eşit değil

Birden fazla şart arasında ve ya kullanmak için
ve       AND

veya   OR