SELECT CASE Uygulaması

 

SELECT CASE Uygulaması

 

CLS

BasaDon:

INPUT "1.Sayiyi Giriniz "; sayi1
INPUT "2.Sayiyi Giriniz "; sayi2

PRINT "Toplama Icin 1"
PRINT "Cikartma Icin 2"
PRINT "Carpma Icin 3"
PRINT "Bolme Icin 4"


INPUT "Islemi giriniz"; islem

SELECT CASE islem
        CASE 1                         'IF islem = 1
             sonuc = sayi1 + sayi2
             PRINT "Toplama isleminin sonucu"; sonuc
        CASE 2
             sonuc = sayi1 - sayi2
             PRINT " Cikartma isleminin sonucu"; sonuc
        CASE 3
             sonuc = sayi1 * sayi2
             PRINT "Carpma isleminin sonucu"; sonuc
        CASE 4
             sonuc = sayi1 / sayi2
             PRINT " Bolme isleminin sonucu"; sonuc
        CASE ELSE
             PRINT " Yanlis Secenek "
             
END SELECT


INPUT " Tekrarlamak Icin (T)"; tekrar$
IF tekrar$ = "T" THEN GOTO BasaDon

 

 

 

CLS

BasaDon:

INPUT "1.Sayiyi Giriniz "; sayi1
INPUT "2.Sayiyi Giriniz "; sayi2


INPUT "Islemi giriniz (+, - , * , /)"; islem$

SELECT CASE islem$
        CASE "+"
             sonuc = sayi1 + sayi2
             PRINT "Toplama isleminin sonucu"; sonuc
        CASE "-"
             sonuc = sayi1 - sayi2
             PRINT " Cikartma isleminin sonucu"; sonuc
        CASE "*"
             sonuc = sayi1 * sayi2
             PRINT "Carpma isleminin sonucu"; sonuc
        CASE "/"
             sonuc = sayi1 / sayi2
             PRINT " Bolme isleminin sonucu"; sonuc
        CASE ELSE
             PRINT " Yanlis Secenek "
             
END SELECT


INPUT " Tekrarlamak Icin (T)"; tekrar$
IF tekrar$ = "T" THEN GOTO BasaDon

 

 

Yorumunuzu Ekleyin

Yükleniyor...