Minggu, 07 November 2010

Menampilkan bilangan terbesar

Jawab:

Algoritma


Program BilanganTerbesar;
Kamus
Bilangan_1, Bilangan_2, Terbesar : Integer;
Algoritma
Input(Bilangan_1);
Input(Bilangan_2);
If(Bilangan_1>Bilangan_2) then
Terbesar := Bilangan_1
Else
Terbesar := Bilangan_2;
Write(Terbesar);


Program Pascal:
Program BilanganTerbesar;
Var
Bilangan_1, Bilangan_2, Terbesar : integer;

Begin
Readln (Bilangan_1);
Readln (Bilangan_2);
If Bilangan_1 > Bilangan_2 then
Terbesar := Bilangan_1
Else
Terbesar := Bilangan_2;
Writeln(Terbesar);
End.