Biodata diri

Nama:Donny Novery
NIM:0806012781
Jurusan: S-1 Teknik Informatika A

Kelas:Pagi
Ruang:301
Semester:1 (Satu)

e-mail:donnynovery@gmail.com

Program Perkalian Matrix

uses crt;
var
a,b,c : array [1..50,1..50] of integer;
i,j,k,x,y,z : integer;
begin
clrscr;
writeln(' Program untuk menghitung perkalian 2 matrix ');
writeln;
writeln('Ukuran matrix A');
write('Baris : '); readln(x);
write('Kolom : '); readln(y);
writeln;
writeln;
writeln('Ukuran matrix B');
writeln('Baris : ',y);
write('Kolom : '); readln(z);
for i:=1 to x do
for j:=1 to y do
begin
write('Elemen A[',i,',',j,'] : ');
readln(a[i,j]);
end;
writeln;
for i:=1 to y do
for j:=1 to z do
begin
write('Elemen B[',i,',',j,'] : ');
readln(b[i,j]);
end;
for i:=1 to x do
for j:=1 to z do
for k:=1 to y do
c[i,j] := c[i,j] + a[i,k]*b[k,j];
writeln;
writeln;
writeln('Hasil dari perkalian Matrix A dengan Matrix B adalah ');
for i:=1 to x do
begin
for j:=1 to z do
write(c[i,j],' ');
writeln;
end;
readln;
end.

Program segitiga pascal

uses crt;
var num:array[1..100] of longint;
i,j,n,batas:integer;
begin
clrscr;
Writeln(' Program Segitiga Pascal ');
Writeln;
write('Masukkan nilai n : ');
readln(n);
num[1]:=1;
writeln(1);
for i:=1 to n do
begin
batas:=(i+1) div 2;
if not odd(i) then
num[batas+1]:=num[batas]*2;
for j:=batas downto 2 do
num[j]:=num[j]+num[j-1];
for j:=1 to batas do
write(num[j],' ');
if not odd(i) then write(num[batas+1],' ');
for j:=batas downto 1 do
write(num[j],' ');
end;
readln;
end.

Task 2 ( Web link for Turbo Pascal )

http://www.geocities.com/hotdogcom/ptutor/paslist.html

http://dreadnaut.altervista.org/pascal/tp7ita/

http://www.taoyue.com/tutorials/pascal/compilers.html

http://library.thinkquest.org/27297/usingPas.htm

http://en.wikiversity.org/wiki/Turbo_Pascal_Help

http://www.trevorchristian.com/programming/tp/?page=3

http://en.wikipedia.org/wiki/Pascal_programming_language

http://www.daniweb.com/forums/thread21883.html

http://www.programmingforums.org/thread15142.html

http://forums.guru3d.com/showthread.php?t=30811

http://www.programmersresource.com/forum/showthread.php?t=3651

http://forums.whirlpool.net.au/forum-replies-archive.cfm/657609

http://www.programmersheaven.com/mb/pasprog/162477/162617/re-help-me--problem-with-turbo-pascal-7/?S=B20000

http://www.noulakaz.net/weblog/2008/11/10/turbo-pascal-1-0-is-25-years-old/

Tugas 2 ( Alamat web Turbo Pascal )

http://kampuskami.orgfree.com/?p=5

http://kantor-online.blogspot.com/2008/04/pemrograman-pascal-3-mengenal-jendela.html

http://www.indoforum.org/archive/index.php?t-32029.

http://barkativeridical.blogspot.com/2008/11/belajar-dasar-turbo-pascal.html

http://goeschay.multiply.com/journal/item/9

http://www.aksespraktis.net/?p=143&cp=9

http://taufiksma2.blog2.plasa.com/2008/06/09/contoh-contoh-program-pascal/

http://id.answers.yahoo.com/question/index?qid=20080518190620AALhDuZ

http://moroners.wordpress.com/2008/04/11/compile-make-dan-running-source-code-pascal-di-linux/

http://materi-praktek.blogspot.com/2007/03/bab-1-mengenal-tampilan-turbo-pascal.html

http://www.gamedevid.org/forum/archive/index.php?t-6384.html

http://kampuskami.orgfree.com/?cat=12

http://forums.marsudirini-bks.sch.id/index.php?t=msg&th=533&start=0&

http://www.kaskus.us/showthread.php?t=1172581

http://ilmukomputers.blogspot.com/2008/11/ilmukomputer-aplikasi-digest-number_18.html

http://groups.google.com.br/group/id-ubuntu/browse_thread/thread/058faf9883ce082a

http://www.aksespraktis.net/?p=143&cp=9

http://ballz.ababa.net/suryascience/delphi1.html

Program Hitung Volume Kerucut

uses crt;
var
r,t : byte;
v : real;
begin
clrscr;
writeln('*** Program Hitung Volume Kerucut ***');
writeln;
writeln('Program untuk menghitung volume kerucut ');
writeln('*Rumus V = 1/3 * 3.14 * r^2 * t *');
writeln;
writeln;
writeln;
write('Masukkan jari-jari kerucut = ');
readln(r);
Write('Masukkan tinggi kerucut = ');
readln(t);
v := 1/3 * 3.14 * r * r * t;
writeln;
writeln;
writeln('Volume kerucut yang dimaksud = ', v:6:2,'***');
writeln;
writeln;
readln;
end.

Program Hitung Volume Bola

uses crt;
var
r : byte;
v : real;
begin
clrscr;
writeln('*** Program Hitung Volume Bola ***');
writeln;
writeln('Program untuk menghitung volume bola');
writeln('*Rumus V = 4/3 * 3.14 * r^3*');
writeln;
writeln;
writeln;
write('Masukkan jari-jari bola = ');
readln(r);
v := 4/3*3.14* r * r * r;
writeln;
writeln;
writeln('Volume bola yang dimaksud = ', v:6:2,'***');
writeln;
writeln;
readln;
end.

Program Hitung Volume Kubus

uses crt;
var
s : longint;
begin
clrscr;
writeln('*** Program Hitung Volume Kubus ***');
writeln;
writeln('Program untuk menghitung volume kubus');
writeln('*Rumus V = s x s x s *');
writeln;
writeln;
writeln;
write(' Masukkan besar sisi kubus = ');
readln(s);
writeln;
writeln;
writeln('Volume kubus yang dimaksud = ' , s*s*s,'***');
writeln;
writeln;
readln;
end.

Program Hitung Volume Limas

uses crt;
var
a,at,t : byte;
l,v : real;
begin
clrscr;
writeln('*** Program Hitung Volume Limas ***');
writeln;
writeln('Program untuk menghitung volume limas');
writeln('*Rumus V = 1/3 * luas alas * t ');
writeln;
writeln;
writeln;
write(' Masukkan alas limas = ');
readln(a);
Write(' Masukkan tinggi alas limas = ');
readln(at);
write(' Masukkan tinggi limas = ');
readln(t);
l := 1/2 * a * at;
v := 1/3 * l * t;
writeln;
writeln;
writeln('Volume limas yang dimaksud = ', v:6:2,'***');
writeln;
writeln;
readln;
end.

Program Hitung Volume Tabung

uses crt;
var
r, t : byte;
v : real;
begin
clrscr;
writeln('*** Program Hitung Volume Tabung ***');
writeln;
writeln('Program untuk menghitung volume tabung');
writeln('*Rumus V = 3.14 x r^2 x t *');
writeln;
writeln;
writeln;
write(' Masukkan besar jari-jari tabung = ');
readln(r);
write(' Masukkan besar tinggi tabung = ');
readln(t);
v := 3.14 * r * r * t;
writeln;
writeln;
writeln('Volume tabung yang dimaksud = ', v:6:2,'***');
writeln;
writeln;
readln;
end.