You are here

Program 3 menentukan bilangan terbesar (dengan if)

Ini adalah program terakhir untuk mematangkan penggunaan kondisi if. Pernah kah kalian membuat program dengan susah payah tetapi setelah ditunjukkan dengan orang lain, mereka bilang "Hanya gitu doank kerjanya?". He he he... sakit hati emang :-(, kalo bisa rasanya pengen nimpuk tu orang dengan hardisk SEAGATE BARACUDA 80 giga lima biji :)). Ini salah satu program yang panjang, tapi fungsinya... yaa... gitulah :D
 1: Program BilanganTerbesar;
 2: Var bil1, bil2, bil3 :real;
 3: Begin
 4:   Write('Masukkan Bilangan Pertama : ');Readln(bil1);
 5:   Write('Masukkan Bilangan Kedua : ');Readln(bil2);
 6:   Write('Masukkan Bilangan Ketiga : ');Readln(bil3);
 7:   If (bil1=bil2) and (bil2=bil3) then
 8:     Writeln('Semua bilangan yang anda masukkan sama
besar ', bil1:0:0)
 9:   Else If (bil1=bil2) or (bil1=bil3) or (bil2=bil3)
then
10:   Begin
11:     If bil1=bil2 then
12:     Begin
13:       Writeln('Bilangan Pertama dan Kedua Adalah
Sama');
14:       If Bil1  bil2 then
37:   Begin
38:     If bil1 > bil3 then
39:       Writeln('Bilangan terbesar adalah ',bil1:0:0)
40:     Else
41:       Writeln('Bilangan terbesar adalah ',bil3:0:0);
42:   End
43:   Else If bil1  bil3 then
46:       Writeln('Bilangan terbesar adalah ',bil2:0:0)
47:     Else
48:       Writeln('Bilangan terbesar adalah ',bil3:0:0);
49:   End;
50:   readln;
51: End.

Hue he he... keren kan? dengan bermodalkan if kita bisa menentukan bilangan mana yang terbesar dari 3 bilangan yang dimasukkan. Selain itu program ini bisa mendekteksi jika ada bilangan yang sama. Yup, hanya itu intinya. Prinsip utama program ini hanya membandingkan bilangan satu dengan yang lain. Mudah bukan? lebih baik kalian ngerjain yang ini tanpa ngeliat tu program, biar logikanya jalan...

Regards,

dj