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

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

10 CLS

20 INPUT "Sayiyi Giriniz:"; A

30 IF A>0 THEN

           PRINT "Pozitif"

40 ELSEIF A<0 THEN

           PRINT "Negatif"

50 ELSEIF A=0 THEN

           PRINT "Sifir"

60 END