IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

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:

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