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.
Tidak ada komentar:
Posting Komentar