[Kaf_Dağı]

Q Basic Alıştırma daire,ucgen,kare case ile



q basic , alıştırma, kod yazılım, visual basic kod yazılım, q basic alıştırma

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

CLS
basla:
INPUT a
IF a = 0 THEN GOTO daire
IF a = 3 THEN GOTO ucgen
IF a = 4 THEN GOTO kare ELSE GOTO basla

daire:
INPUT "yaricapi gir", ycap
PRINT "alani==", 3.14 * ycap ^ 2
END

ucgen:
INPUT "1.kenari gir=", k1
INPUT "2.kenari gir=", k2
INPUT "3.kenari gir=", k3
PRINT "cevre=", k1 + k2 + k3
END

kare:
INPUT "kenari gir", kenar
PRINT "cevresi=", kenar * 4, "alani=", kenar ^ 2
END