Microsoft Access & Paskal

After we got excel, then we got Microsoft Access introduction. How to make a database, entering data, how to make a form, make a report, and so on.
Actually i want to tell you more, but the problem is, in that time i forgot to copy my work to my disk because at that time i didn't have a notebook yet, and i ended up using the computer in the laboratory in my department. So i will give you some works which my friends did. But it's only few things, not all of them.
Here it is
Latihan Microsoft Access

Then we got paskal. The most difficult one i think (so do some of my friends *haha*).


Once again, i forgot about it and i also forgot where did i save my project that time. (-_-)
but here i will add my works (and only some of them is left) if you want to know what the output of this, then you should check it your self ;)
maybe you would like to share to me what's the result of that :D


uses wincrt;
var x,y:array[1..10,1..10] of integer;
z:array[1..10,1..10] of integer;
i,n,j,k,sum:integer;
       sum1,xbar,varian:real;
begin
for i:=1 to 2 do
for j:=1 to 2 do
readln(x[i,j]);
writeln('----------------');

for i:=1 to 2 do
for j:=1 to 3 do
readln(y[i,j]);
writeln('----------------');
for i:=1 to 2 do
begin
for j:=1 to 2 do
write(x[i,j],' ');
writeln;
end;
writeln('---------------');
for i:=1 to 2 do
begin
for j:=1 to 3 do
write(y[i,j],' ');
writeln;
end;

for i:=1 to 2 do
begin
for j:=1 to 3 do
begin
sum:=0;
for k:=1 to 2 do
sum:=sum+x[i,k]*y[k,j];
z[i,j]:=sum;
end;
end;

writeln('---------------');
for i:=1 to 2 do
begin
for j:=1 to 3 do
write(z[i,j],' ');
writeln;
end;

end.

I think that's all of what i got from Pengantar Ilmu Komputer (PIK). I would like to say thanks to Mrs Adatul as my lecturer and thanks for giving me an A :D

Feel free to download, leave a comment please! Thank You!