Program Pascal Menampilkan Berat Ideal

Berikut adalah salah satu program pascal untuk Menampilkan Berat Ideal dari tinggi badan yang diinputkan

1. Programnya

Program MenampilkanBeratIdeal;
uses crt;
var
   TB,BI : real;
begin
     clrscr;
     Writeln('Program Menampilkan Berat Ideal');
     Write('Input Tinggi Badan :');readln(TB);

     BI :=(TB-100)*0.9;

     Writeln('Berat Ideal(KG)    :',BI:0:0);
     readln;
end.

2. Tampilan Program dalam Pascal

3. Hasil Program