LAT PASCAL, TES BERAT BADAN IDEAL

program penguji_berat_badan_ideal;

uses crt;

var bb,tb:integer;

min,max:real;

nm,pil:string;

begin

repeat

begin

repeat

begin

clrscr;

textcolor(GREEN);

gotoxy(27,3); writeln('PENGUJI BERAT BADAN IDEAL');

gotoxy(28,4); writeln('MADE BY: AJIE JAMALUDIN');

gotoxy(20,5); writeln('TEKNIK OTOMASI MANUFAKTUR DAN MEKATRONIKA');

gotoxy(23,6); writeln('POLITEKNIK MANUFAKTUR NEGERI BANDUNG');

writeln('================================================================================');

gotoxy(7,9); textcolor(18);writeln('PROGRAM AKAN TERULANG JIKA DATA YANG DIMASUKKAN TIDAK MEMUNGKINKAN');

gotoxy(15,8); writeln('HANYA UNTUK YANG MEMILIKI TINGGI BADAN >= 110 CM');

gotoxy(29,25);textcolor(18); writeln('FULLSCREEN : Alt+Enter');

gotoxy(15,11);textcolor(green); writeln('MASUKKAN NAMA ANDA : ');

gotoxy(44,11); readln(nm);

gotoxy(15,12); writeln('MASUKKAN BERAT BADAN ANDA : ');

gotoxy(48,12); writeln('Kg');

gotoxy(44,12); readln(bb);

gotoxy(15,13); writeln('MASUKKAN TINGGI BADAN ANDA :');

gotoxy(48,13); writeln('cm');

gotoxy(24,25); writeln('TEKAN ENTER JIKA ENTRI DATA SELESAI');

gotoxy(44,12); readln(tb);

CLRSCR;

gotoxy(27,3); writeln('PENGUJI BERAT BADAN IDEAL');

gotoxy(28,4); writeln('MADE BY: AJIE JAMALUDIN');

gotoxy(20,5); writeln('TEKNIK OTOMASI MANUFAKTUR DAN MEKATRONIKA');

gotoxy(23,6); writeln('POLITEKNIK MANUFAKTUR NEGERI BANDUNG');

writeln('================================================================================');

gotoxy(25,9); writeln('NAMA ANDA : ',nm);

gotoxy(25,10); writeln('BERAT BADAN ANDA : ',bb); gotoxy(49,10); write('Kg');

gotoxy(25,11); writeln('TINGGI BADAN ANDA : ',tb); gotoxy(49,11); write('cm');

end;

until ((tb-100)-(0.1*(tb-100))>=0) and (tb>=110);

begin

max:=(tb-100)+0.1*(tb-100);

min:=(tb-100)-0.1*(tb-100);

if bb>max

then

begin textcolor(red); gotoxy(20,18); writeln('Anda Kelebihan Berat Badan. Diet Donkk..');end

else

if bb

else

begin textcolor(blue); gotoxy(25,16); writeln('Selamat. Berat Badan Anda Ideal');end

end;

textcolor(green); gotoxy(17,19); writeln('RENTANG BERAT BADAN IDEAL ANDA ANTARA ',min:0:1);

gotoxy(59,19); writeln(' sd ',max:0:1);

repeat gotoxy(30,21); writeln('MENGULANG? (y,t) :');

gotoxy(50,21); readln(pil); until (pil='t') or (pil='y');

end;

until (pil='t') or (pil='T');

end.