10 June 2011

Pemrograman pascal sederhana (Mencari nilai minimal dari 2 angka)

program carinilaiminimal;
{mencari nilai terkecil dari 2 bilangan}
var x,y,min:integer;
begin
write(‘Bilangan Pertama: ‘); readln(x);
write(‘Bilangan Kedua: ‘); readln(y);
if x>y then
min:=y
else
min:=x;
write(‘Bilangan Terkecil: ‘, min);
writeln;
readln;
end.

No comments:

Post a Comment

COPYRIGHT © 2017 · ZARLINDA | THEME BY RUMAH ES