Mencari Bilangan Terkecil dan Terbesar (Pascal)

Share On :

Tweet

Ini adalah sebuah coretan program pascal tentang mencari bilangan Terbesar dan Terkecil. Ada 3 variabel yang akan di bandingkan, tapi tidak berlaku jika ada 2 variabel yang sama, So Improve sendiri ya.

uses wincrt;
var
a,b,c,kcl,bsr:integer;



begin
     write('masukkan bil pertama: ');readln(a);
     write('masukkan bil kedua: ');readln(b);
     write('masukkan bil ketiga: ');readln(c);
     kcl:=a;
     bsr:=a;

     if (bsr<b) and (b>c)then
        bsr:=b
     else if (bsr<c) and (c>b) then
          bsr:=c ;


     if (kcl>b) and (b<c) then
        kcl:=b
     else if (kcl>c) and (c<b) then
          kcl:=c;

     if (a=b) and (b=c) then
        write('semua bilangan sama')
     else     
         begin
         writeln (bsr,' adalah bilangan terbesar.');
         write(kcl,' adalah bilangan terkecil.');
         end;
end.

kalau sudah baca dengan teliti, pasti bisa mendapatkan cara untuk membandingkannya dengan baik, kuncinya ada di operator pembandingnya.