Script u/ menghitung Bilangan Terbesar
Uses wincrt;
Var
bil1,bil2, bil3:integer;
hasil :string;
Begin
Writeln(‘—————————————-’);
writeln(‘Program Menghitung Bilangan Terbesar’);
writeln(‘————-by:rhez-qhe—————-’);
writeln(‘Masukkan 3 bilangan bulat’);
write(‘Bilangan 1 = ‘); readln(bil1);
write(‘Bilangan 2 = ‘); readln(bil2);
write(‘Bilangan 3 = ‘); readln(bil3);
if (bil1 = bil2) and (bil2 = bil3) then hasil :=(‘Tidak Ada, Karena Semua Angkanya Sama Besar’)
else if (bil1 = bil2) then
if bil1 > bil3 then hasil := (‘Tidak Ada’) else hasil := (‘Bilangan 3′)
else if (bil2 = bil3) then
if bil1 > bil2 then hasil := (‘Bilangan 1′) else hasil := (‘Tidak Ada’)
else if (bil1 = bil3) then
if bil1 > bil2 then hasil := (‘Tidak Ada’) else hasil := (‘Bilangan 2′)
else if (bil1 > bil2) and (bil1 > bil3) then hasil :=(‘Bilangan 1′)
else if (bil2 > bil1) and (bil2 > bil3) then hasil :=(‘Bilangan 2′)
else if (bil3 > bil1) and (bil3 > bil2) then hasil :=(‘Bilangan 3′);
write(‘Bilangan Terbesar adalah ‘,hasil);
readln;
End.