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

Q Basic Alıştırma vücut kitle endeksi

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

Kod:

CLS

DIM boy AS DOUBLE

DIM kilo AS INTEGER

DIM endeks AS DOUBLE

DIM boykare AS DOUBLE
 

INPUT "boy=", boy

INPUT "kilo=", kilo

boykare = boy * boy

endeks = kilo / boykare

PRINT "kitle endeksiniz=", endeks
 

IF endeks < 18.4 THEN PRINT "dsk kilolusun"

IF endeks > 18.5 AND endeks < 24.9 THEN PRINT "normal kilo"

IF endeks > 25.0 AND endeks < 29.9 THEN PRINT "fazla kilolu"

IF endeks > 30.0 AND endeks < 34.9 THEN PRINT "1.sinif obez"

IF endeks > 35 AND endeks < 44.9 THEN PRINT "2. snf obez"

IF endeks > 45 THEN PRINT "3. snf obez"