Praktikum 4 FOR … TO … DO, WHILE ... DO, ... REPEAT … UNTIL …

1. Program Tabel Perkalian
Program Tblkali;
uses wincrt;
var
dimensi, i,j: integer;
begin
writeln('Mencetak tabel perkalian');
write('Masukkan ukuran tabel (1 .. 15): ');
readln(dimensi); writeln;
if (dimensi>=1) and (dimensi<=15) then

begin
write('*|':3); {judul tabel & pembatas judul}
for i := 1 to dimensi do write(i:4);
writeln;
for i := 1 to (dimensi+1)*4 do write('=');
writeln;
for i := 1 to dimensi do {cetak tabel }
begin
if i < 10 then write(' ');
write(i,'|');
for j := 1 to dimensi do write(i*j :4);
writeln;
end;
end
else writeln('Anda salah memasukkan ukuran!');
end.



2. Program Perpangkatan Bil. Bulat
Program Pgktblt;
uses wincrt;
var basis,pangkat,hasil,i:integer;
begin
writeln('Program Perpangkatan Bilangan Bulat');
write('Tulis basis: ');readln(basis);
write('Tulis pangkat: ');readln(pangkat);
hasil:=1;
i:=1;
while i<pangkat do

begin
inc(i);
hasil:=hasil*basis;
end;
writeln(basis,'^',pangkat,' = ', hasil:6);
writeln(basis,'^',pangkat,' = ',
exp(pangkat*ln(basis)):5:3,'(dengan rumus a^x =
e^[x ln (a)])');

end.

3. Program Faktorial
program fktorial;
uses wincrt;
var
i,n: byte;
faktorial: integer;
begin
writeln('Menghitung nilai faktorial');
write('Masukkan bilangan asli n = ');readln(n);
faktorial:=1;
for i:= 1 to n do faktorial:=faktorial*i;
writeln(n,'! = ',faktorial);
end.


4. Program Desimal Ke Biner
program dec2bin;
uses wincrt;
var
n : integer;
sisa : integer;
biner,bit:string;
begin
writeln('Konversi sistem desimal ke biner.');
write('Masukkan bilangan asli n = ');readln(n);
biner:='';
sisa:=0;
while n>0 do
begin
sisa:=n mod 2;
n:= n div 2;
str(sisa,bit);
biner:=bit+biner;
end;
writeln(n, ' dalam sistem biner = ',biner);

end.

5. Program FPB KPK
program FPBnKPK;
uses wincrt;
var
a,b,r,m,n : integer;
begin
writeln('Mencari FPB dan KPK');
write('Masukkan bilangan asli pertama a = '); readln(a);
write('Masukkan bilangan asli kedua b = '); readln(b);
m:=a;n:=b;
repeat
r:= m mod n;
if (r<>0) then
begin
m:=n;
n:=r;
end;
until (r=0);
writeln('FPB(', a,',',b,') = ',n);
writeln('KPK(', a ,',', b ,') = ',a*b div n);

end.