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
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
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