Program Pascal Menampilkan Berat Badan Ideal

Program Pascal Menampilkan Berat Badan Ideal

Berikut adalah contoh Program Pascal Menampilkan Berat Badan Ideal

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

     BI :=(TB-100)*0.9;

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

2. Program pada Pascal