TUGAS PETRUK : MODUL 7 NO.2 (ALGORITMA - PASCAL - HASIL )

• ALGORITMA

algoritma dua_bilangan
deklarasi
   a,b : integer
deskripsi
function ket(a,b:integer):string
 begin
     if a > b then
    ket:=('a lebih besar dari b')
    else
    if b > a then
    ket :=('b lebih besar dari a')
    else
    ket:=('a sama dengan b');          
  end;

begin
  read(a,b)
  write('keterangan = ',ket(a,b))
end

• PASCAL

Program dua_bilangan;
uses wincrt;

var a,b :integer;
    

function ket(a,b:integer):string;
  begin
    if a > b then
    ket:=('a lebih besar dari b');
    if b > a then
    ket :=('b lebih besar dari a');
    if a=b then
    ket:=('a sama dengan b');       
     end;

begin
   writeln;
   writeln('            MENENTUKAN BILANGAN        ');
   writeln('  ======================================');
   write  ('     masukan nila a = ');readln(a);
   write  ('     masukan nila b = ');readln(b);
   
   writeln;
   writeln('     KETERANGAN = ',ket(a,b));
   writeln('  ======================================');
 
end.

• HASIL

---

Artikel Terkait: