TENTANG PEMBUAT BLOG

Nama : Idi Suward
NIM : 0806012736
Jurusan : Teknik Informatika
Kelas : PAGI

Senin, 05 Januari 2009

Program PerkalianMatrix

Program PerkalianMatrix;

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 SegitigaPascal;

Program SegitigaPascal;
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(' -----------------------------------------------------------');
readln;
end.

Followers

Algoritma Pemrograman © 2008 Template by Dicas Blogger.

TOPO