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('*****************************************************');
writeln('* Program untuk menghitung perkalian 2 matrix *');
writeln('*****************************************************');
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 ');
writeln('====================================================');
Writeln;
for i:=1 to x do
begin
for j:=1 to z do
write(c[i,j],' ');
writeln;
end;
writeln;
writeln;
Writeln('================= ========================');
readln;
end.

program segitiga pascal

uses crt;
var num:array[1..100] of longint;
i,j,n,batas:integer;
begin
clrscr;
Writeln('*********************************************************');
Writeln('* *');
Writeln('* Program Segitiga Pascal *');
Writeln('* *');
Writeln('*********************************************************');
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],' ');
writeln;
end;
Writeln;
Writeln;
Writeln(' *********************** santo's mine**************');
readln;
end.

WEB LINK ABOUT TURBO PASCAL IN ENGLISH

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

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

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

4.http://www.techimo.com/forum/webmastering-programming/122793-help-about-turbo-pascal.html

5.http://www.pascal-central.com/plinks.html

6.http://garbo.uwasa.fi/pc/turbopas.html

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

8.http://forums.devshed.com/delphi-programming-90/turbo-pascal-help-needed-again-425320.html

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

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

11.http://ubuntuforums.org/archive/index.php/t-519397.html

12.http://en.allexperts.com/q/Pascal-1624/error-use-unit-turbo.htm

13.http://www.fh-jena.de/~gmueller/Kurs_halle/systeme/tp7.html

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

ALAMAT-ALAMAT WEB TENTANG TURBO PASCAL

Ringkasan ini tidak tersedia. Harap klik di sini untuk melihat postingan.

Menghitung Volume Kubus

ALGORITMA PEMROGRAMAN TURBO PASCAL 7.0

Program_Menghitung_Volume_Kubus

Algoritma

1.Baca Input Nilai Sisi
2.Simpan ke Variable Sisi
3.Masukkan Rumus Kubus = Sisi x sisi x sisi, Simpan hasilnya ke Volume
4.Tampilkan ke Monitor Nilai Volume



PROGRAM_VOLUME_KUBUS;

Uses Crt;
Var
Sisi : word;
Volume : word;

Begin

Clrscr;

Write(‘Masukkan Sisi Kubus’);
Readln(Sisi);

Volume := Sisi*Sisi*Sisi;

Writeln(‘Volume Kubus Dengan Sisi = ‘,Sisi,’ Adalah ’,Volume);
Readln;
End.

Menghitung Volume Bola

ALGORITMA PEMROGRAMAN TURBO PASCAL 70

Program_Menghitung_Volume_Bola

Algoritma

1. Baca input nilai Jari-jari
2. Simpan ke variable jari_jari
3. Baca input nilai Tinggi
4. Simpan ke variable tinggi
5. Masukkan Rumus Bola = 4/3 x π x t3, simpan ke variable Volume
6. Tampilkan ke layer Monitor Volume



PROGRAM_VOLUME_BOLA;

Uses Crt;

Var
Jari_jari : word;
Tinggi : word;
Volume : real;

Begin

Clrscr;
Write(‘Masukkan Jari-jari Bola = ‘);
Readln(jari-jari);
Write(‘Masukkan Tinggi Bola = ‘);
Readln(tinggi);

Volume := 4/3 * 3.14159265 * tinggi * tinggi * tinggi ;

Writeln(‘Volume Bola adalah = ‘,volume);
Readln;
End.

Menghitung Volume Kerucut

ALGORITMA PEMROGRAMAN TURBO PASCAL 70

Program_Menghitung_Volume_Kerucut

Algoritma

1. Baca input nilai Jari-jari
2. Simpan ke variable jari_jari
3. Baca input nilai Tinggi
4. Simpan ke variable tinggi
5. Masukkan Rumus Kerucut = 1/3 x π x r 2 x t, simpan ke variable Volume
6. Tampilkan ke layer Monitor Volume Tabung


PROGRAM_VOLUME_KERUCUT;

Uses Crt;

Var
Jari_jari : word;
Tinggi : word;
Volume : real;

Begin

Clrscr;
Write(‘Masukkan Jari-jari Kerucut = ‘);
Readln(jari-jari);
Write(‘Masukkan Tinggi Kerucut = ‘);
Readln(tinggi);

Volume := 1/3 * 3.14159265 * jari_jari * jari_jari * tinggi ;

Writeln(‘Volume Kerucut adalah = ‘,volume);
Readln;
End.