SELECT CASE Uygulaması
Direnç Renk Kodları
CLS
BasaDon:
BirinciRenk:
INPUT "1. Rengi giriniz"; renk1$
SELECT CASE renk1$
CASE "kahverengi"
Deger1 = 1
CASE "kirmizi"
Deger1 = 2
CASE "turuncu"
Deger1 = 3
CASE ELSE
GOTO BirinciRenk
END SELECT
IkinciRenkDuragi:
INPUT "2. Rengi giriniz"; renk2$
SELECT CASE renk2$
CASE "siyah"
Deger2 = 0
CASE "kahverengi"
Deger2 = 1
CASE "kirmizi"
Deger2 = 2
CASE "turuncu"
Deger2 = 3
CASE ELSE
GOTO IkinciRenkDuragi
END SELECT
UcuncuRenkDuragi:
INPUT "3. Rengi giriniz"; renk3$
SELECT CASE renk3$
CASE "siyah"
Deger3 = 1
CASE "kahverengi"
Deger3 = 10
CASE "kirmizi"
Deger3 = 100
CASE "turuncu"
Deger3 = 1000
CASE ELSE
GOTO UcuncuRenkDuragi
END SELECT
PRINT " Girdiginiz "; renk1$; renk2$; renk3$; " renkli direnc degeri "; Deger1; Deger2 * Deger3
PRINT " Girdiginiz "; renk1$; " "; renk2$; " "; renk3$; " renkli direnc degeri "; ((Deger1 * 10) + Deger2) * Deger3
INPUT " Tekrarlamak Icin (T)"; tekrar$
IF tekrar$ = "T" THEN GOTO BasaDon
BasaDon:
BirinciRenk:
INPUT "1. Rengi giriniz"; renk1$
SELECT CASE renk1$
CASE "kahverengi"
Deger1 = 1
CASE "kirmizi"
Deger1 = 2
CASE "turuncu"
Deger1 = 3
CASE ELSE
GOTO BirinciRenk
END SELECT
IkinciRenkDuragi:
INPUT "2. Rengi giriniz"; renk2$
SELECT CASE renk2$
CASE "siyah"
Deger2 = 0
CASE "kahverengi"
Deger2 = 1
CASE "kirmizi"
Deger2 = 2
CASE "turuncu"
Deger2 = 3
CASE ELSE
GOTO IkinciRenkDuragi
END SELECT
UcuncuRenkDuragi:
INPUT "3. Rengi giriniz"; renk3$
SELECT CASE renk3$
CASE "siyah"
Deger3 = 1
CASE "kahverengi"
Deger3 = 10
CASE "kirmizi"
Deger3 = 100
CASE "turuncu"
Deger3 = 1000
CASE ELSE
GOTO UcuncuRenkDuragi
END SELECT
PRINT " Girdiginiz "; renk1$; renk2$; renk3$; " renkli direnc degeri "; Deger1; Deger2 * Deger3
PRINT " Girdiginiz "; renk1$; " "; renk2$; " "; renk3$; " renkli direnc degeri "; ((Deger1 * 10) + Deger2) * Deger3
INPUT " Tekrarlamak Icin (T)"; tekrar$
IF tekrar$ = "T" THEN GOTO BasaDon
Yorumunuzu Ekleyin