selamat datang para pengunjung anda pengunjung yang ke

Rabu, 25 Maret 2009

program pengukur berat badan ideal

Program pengukur berat ideal:


usues crt;
var
x,y,z,w:real;

begin
clsrscr;
write('masukkan tinggi badan;')
read (x);
y:=x-100;
z:=y*10/100;
w:=y-2;
writeln('jadi berat badan idealnya adalah;',w;y;z);
read key;
end.

Tidak ada komentar:

Posting Komentar

silahkan berkomentar