Program Mengurutkan 3 Buah Bilangan

--------------------------------------------------------------------------------------------------------------------------
program Mengurutkan_tiga_buah_bilangan_bulat;
{I.S. : user memasukan bilangan bulat}
{F.S. : menampilkan hasil pengurutan bil. bulat dari yang kecil ke yang besar}
uses crt;
var
     a,b,c : integer;

begin
     //memasukan bilangan
     window(15,6,65,18);textbackground(red);clrscr;
     gotoxy(15,2);
     writeln(' Memasukan bilangan bulat');
     gotoxy(15,3);
     writeln('==========================');
     gotoxy(13,4);
     write('masukkan bilangan bulat a : ');readln(a);
     gotoxy(13,5);
     write('masukkan bilangan bulat b : ');readln(b);
     gotoxy(13,6);
     write('masukkan bilangan bulat c : ');readln(c);
     gotoxy(13,7);
     writeln('===========================');

     //menampilakan bilangan bulat yang terurut
     gotoxy(16,8);
     if (c>b) and (b>a)
        then
            write('Urutan Bilangan= ',a,' ' ,b,' ',c)
        else
     if (a>b) and (c>a)
        then
            write('Urutan Bilangan= ',b,' ' ,a,' ',c)
        else
     if (b>a) and (a>c)
        then
            write('Urutan Bilangan= ',c,' ' ,a,' ',b)
        else
     if (c>a) and (b>c)
        then
            write('Urutan Bilangan= ',a,' ' ,c,' ',b)
        else
     if (a>c) and (c>b)
        then
             write('Urutan Bilangan= ',b,' ' ,c,' ',a)
        else
     if (b>c) and (a>b)
        then
            write('Urutan Bilangan= ',c,' ' ,b,' ',a);

readln;
end.

--------------------------------------------------------------------------------------------------------------------------

Download Scriptnya :

catatan :

hargailah tulisan orang lain, jika anda mengcopy-paste harap cantumkan link sumber.