Jawaban Nilai UAS AP2

Assalamualaikum wr wb,
Kali ini saya akan memberikan solusi dari soal UAS lab AP2, berikut soal beserta jawabannya.

Jawaban no.1 :


program satu;
uses crt;
var
   a,b : integer;
begin
     clrscr;
     write ('Masukkan a : ');
     readln (a);
     write ('Masukkan b : ' );
     readln (b);
     writeln;
     if a>b then
     begin
     write ('',a,' lebih besar dari ',b,'');
     end
     else
     begin
     write ('',b,' lebih besar dari ',a,'');
     end;


     readln;
end.

Jawaban no.2 :


program dua;


uses crt;
var
   n, m, hasil : integer;


procedure faktorial(n : integer; var hasil : integer);
   begin
      if n<=1 then
         hasil := 1
      else
         begin
           faktorial(n-1, hasil);
           hasil := n*hasil;
         end;
   end;


begin
   clrscr;
   write('Input n! = ');
   readln(n);
   faktorial(n, m);
   writeln;
   writeln(n ,' ! = ', m);
   readln;
end.

Jawaban no.3 :


program tiga;
uses crt;
var
   n,i,j,k : integer;
begin
     clrscr;
     write('Input n : ');
     readln(n);
     writeln;
     for i:=1 to n do
     begin
          for j:=1 to i do
          write(j);
          begin
          for k:=j-1 downto 1 do
          write(k);
          writeln;
          end;
     end;
     readln;
end.