[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