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.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s