PENENTUAN NILAI MAKSIMAL

program nilai_maksimal;

uses wincrt;

var

a,b,c:integer;

begin

gotoxy(30,1);writeln(‘==========================’);

gotoxy(30,2);writeln(‘”PENENTUAN NILAI MAKSIMAL”‘);

gotoxy(30,3);writeln(‘==========================’);

writeln;

write(‘a=’);readln(a);

write(‘b=’);readln(b);

write(‘c=’);readln(c);

writeln;

if (a>b) and (a>c) then write(‘Jadi nilai maksimal dari ketiga bilangan tersebut adalah ‘,a)

else

if (b>a) and (b>c) then write(‘Jadi nilai maksimal dari ketiga bilangan tersebut adalah ‘,b)

else

write(‘Jadi nilai maksimal dari ketiga bilangan tersebut adalah ‘,c)

end.

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

w

Connecting to %s

%d blogger menyukai ini: