Program mencari nilai terbesar dari 3 bilangan dengan bahasa pascal

Posted by Unknown Wednesday, December 14, 2011 at 8:02 AM

Saya akan menujukan cara membuat Program mencari nilai terbesar dari 3 bilangan dengan menggunakan Bahasa Pemrograman Pascal.

Sorce codenya :

program bil_terbesar_heri;
uses wincrt;

var
bil_1,bil_2,bil_3 : integer;
terbesar : integer;

begin
     writeln('               *******Program Mencari Bilangan Terbesar*******         ');
     writeln('               -----------------------------------------------         ');
     writeln;

writeln('MASUKAN 3 BUAH BILANGAN = ');
     writeln;
     write('bil_1 = ');
     readln(bil_1);

write('bil_2 = ');
     readln(bil_2);

write('bil_3 = ');
     readln(bil_3);

terbesar:=0;

if (bil_1 > bil_2) then
                 terbesar:= bil_1
                 else terbesar:=bil_2;

if (terbesar > bil_3) then
                 terbesar := terbesar
                 else
                 terbesar:= bil_3;
                 writeln;
                 write ('jadi bilangan terbesarnya adalah = ', terbesar);
        writeln(' ') ;
        writeln('---------------------------------------------');
 writeln('************** Nama    : Heri Widyantoro  ************');
 writeln('##############  NIM    : 3105111352       ############');
 writeln('************** Prodi   : T.informatika/E  ************');
 writeln('---------------------------------------------');
end.

Tampilanya :