Jumat, 30 Januari 2009

Membuat Program untuk Menampilkan Nilai terkecil

program bil_terkecil;
uses wincrt;
var
a,b,c,x:longint;
begin
x:=99999999;
write(' Masukkan bilangan pertama = ');readln(a);
write(' Masukkan bilangan kedua = ');readln(b);
write(' Masukkan bilangan ketiga = ');readln(c);
if (a < x) then
x:=a;
if (b < x) then
x:=b;
if (c < x) then
x:=c;
writeln(' Bilangan terkecil adalah ',x);
readln;
end.

Tidak ada komentar:

Posting Komentar

Kirim Komentar Anda
(Send Your Comment)