| Q Basic Alıştırma vücut kitle endeksi
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: Kodu kopyalamak için üzerine çift tıklayın! 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"
__________________ SusKun ve Sessiz Mürekkep...
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
|