ITS CAK

program its_cak;
uses wincrt;
var i,j,k:integer;
begin
for i:=9 downto 1 do
begin
for j:=1 to 1000 do
begin
gotoxy(1,1); write(i);
end;
for k:=1 to 500 do
clrscr;
end;

for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln(' *** * * ');
writeln(' * * ** * ');
writeln(' **** * * * * ');
writeln(' ****** ** * * ');
writeln(' ****** * * ');
writeln(' **** ');
end;
for k:=1 to 300 do
clrscr;

for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln(' *** * * ');
writeln(' * * * ');
writeln(' **** * * *');
writeln(' ****** ** * ');
writeln(' ****** ');
writeln(' **** ');
end;
for k:=1 to 300 do
clrscr;


for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln(' ** * ');
writeln(' * * * ');
writeln(' **** * * ');
writeln(' ****** ');
writeln(' ****** ');
writeln(' **** ');
end;
for k:=1 to 300 do
clrscr;

for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln(' * ');
writeln(' * ');
writeln(' **** ');
writeln(' ****** ');
writeln(' ****** ');
writeln(' **** ');
end;
for k:=1 to 300 do
clrscr;

for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln('* * * *');
writeln(' * * * * ');
writeln(' * * * ** ');
writeln('* * * * * ');
writeln(' * * ** * * * ');
writeln('* * * ** * ');
end;
for k:=1 to 300 do
clrscr;

for i:=1 to 50 do
begin
for j:=1 to 50 do
begin
gotoxy(i,1);
writeln(' *** ******** ***** ');
gotoxy(i,2);
writeln(' *** ******** *** ');
gotoxy(i,3);
writeln(' *** *** ** ');
gotoxy(i,4);
writeln(' *** *** *** ');
gotoxy(i,5);
writeln(' *** *** ***** ');

end;
for k:=1 to 50 do
clrscr;
end;
gotoxy(1,1);
writeln(' *** ** ** * ');
writeln(' ** * ** ** ** * ');
writeln(' ** ****** *** ');
writeln(' ** * ** ** ** * ');
writeln(' *** ** ** ** * ');
end.

Program Matriks

program matrik;
uses wincrt;
var a:array[1..10,1..10] of real;
i,j,baris,kolom:integer;

begin
write('ukuran matrik mxn ');
readln(baris,kolom);
writeln('memasukkan elemen matrik');
writeln(' ');
for i:=1 to baris do
begin
writeln('baris ke-',i);
for j:=1 to kolom do
read(a[i,j]);
writeln;
end;

writeln('hasil matrik');
for i:=1 to baris do
begin
for j:=1 to kolom do
write(a[i,j]:0:0,' ');
writeln;
end;
end.

Segitiga Pascal

program segitiga_pascal_kombinasi;
uses wincrt;
var a,b,c,n:integer;

function fkom(n:integer; m:integer): real;
var i,j,k: integer;
x,y,z: real;
begin
x:=1; y:=1; z:=1;
for i:=1 to n do x:=x*i;
for j:=1 to m do y:=y*j;
for k:=1 to (n-m) do z:=z*k;
fkom:=x/(y*z);
end;


begin
write('n = '); readln(n);
for a:=0 to n do
begin
for b:=n downto a+1 do
write(' ');
for c:=0 to a do
write(fkom(a,c):3:0,' ');
writeln;
end;
end.