Hai kawan, pada kali ini saya akan memberitahu cara menghitung berat badan ideal menggunakan bahasa pemrograman Pascal, bisa dijalanin dengan Turbo Pascal bisa juga dijalanin melalui Free Pascal yang ane pake..
Untuk codingnya bisa lihat di bawah ini....
Check....
uses crt;
label 7;
var
NM:STRING;
BB,TB:INTEGER;
BI:REAL;
KET:STRING;
JAWAB:CHAR;
BEGIN
CLRSCR;
WRITELN('PENGUKURAN BERAT BADAN IDEAL');
writeln(' ');
7:WRITE('Masukkan Nama Anda= ');readln(NM);
WRITE('Masukkan Berat Badan Anda= ');readln(BB);
WRITE('Masukkan Tinggi Badan Anda= ');readln(TB);
BI:=(TB-110);
if BB<BI then KET:='KURUS'
else if BB>BI then KET:='GEMUK'
else if BB=BI then KET:='IDEAL'
writeln('Keterangan= ',KET);
WRITE('Coba Lagi? (Y/T)');readln(JAWAB);
IF (JAWAB='Y')or(JAWAB='y') then goto 7;
readln;
end.
nah... itu codingnya.. untuk hasilnya,berikut hasil dari coding di atas..
Check...
Demikian postingan yang sangat singkat dari saya... semoga bermanfaat bagi semua.... :)
