Selasa, 09 Juni 2009
Selasa, 02 Juni 2009
Senin, 25 Mei 2009
program perkalian matriks dengan cara yang lain
program perkalian_matrik;
uses crt;
var
mat_A,mat_B,mat_C :array [1..10,1..10] of integer;
ordo_x,ordo_y:integer;
x,y,koor_brs:integer;
begin
clrscr;
writeln('perkalian matrik');readln;
writeln('-----------------');readln;
write('tentukan ordo matrik
writeln('input matrik : ');
writeln('hasil perkalian matrik A*B = ');readln;
mat_C [x,y] :=mat_A[x,y]*mat_B[x,y];
program determinan matriks
(*PROGRAM KOMPUTER*)
(*PROGRAM KOMPUTER METODE DETERMINAN MATRIKS*)
(*======================================*)
PROGRAM DETERMINAN_MATRIKS;
USES CRT,PRINTER;
LABEL
ULANG;
type
daftar=array[1..10,1..10]of real;
asal = array[1..100] of real;
var
aa,a:daftar;x,h:asal;i,j:byte;deta:real;ab:char;
begin (*Memulai program komputer invers dan determinan matriks*)
ulang:
clrscr;
write('tulis koefisien koefisien matriks yang akan diproses');
writeln;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write ('A',i,j,' ');read(a[i,j]);
end;
write('H',i,' ');readln(h[i]);
end;
(*mencari determinan matriks ordo tiga*)
deta := a[1,1]*(a[2,2]*a[3,3]-a[2,3]*a[3,2])+a[1,2]*(a[3,1]*a[2,3]-a[2,1]*a[3,3])+a[1,3]*(a[2,1]*a[3,2]-a[3,1]*a[2,2]);
(*nilai minor matriks ordo tiga *)
aa[1,1] :=(a[2,2]*a[3,3]-a[3,2]*a[2,3])/deta;
aa[1,2] :=-(a[1,2]*a[3,3]-a[3,2]*a[1,3])/deta;
aa[1,3] :=(a[1,2]*a[2,3]-a[2,2]*a[1,3])/deta;
aa[2,1] :=-(a[2,1]*a[3,3]-a[3,1]*a[2,3])/deta;
aa[2,2] :=(a[1,1]*a[3,3]-a[3,1]*a[1,3])/deta;
aa[2,3] :=-(a[1,1]*a[2,3]-a[2,1]*a[1,3])/deta;
aa[3,1] :=(a[2,1]*a[3,2]-a[2,2]*a[3,1])/deta;
aa[3,2] :=-(a[1,1]*a[3,2]-a[3,1]*a[1,2])/deta;
aa[3,3] :=(a[1,1]*a[2,2]-a[2,1]*a[1,2])/deta;
(*matriks koefisien yang dicari*)
x[1]:=aa[1,1]*h[1]+aa[1,2]*h[2]+aa[1,3]*h[3];
x[2]:=aa[2,1]*h[1]+aa[2,2]*h[2]+aa[2,3]*h[3];
x[3]:=aa[3,1]*h[1]+aa[3,2]*h[2]+aa[3,3]*h[3];
writeln('nilai matriks x adalah');
for i:= 1to 3 do
begin
writeln(x[i]);
end;clrscr;
write('matriks A ');write('');
write('matriks x ');
write('');writeln('matriks H');
writeln;writeln;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin write(a[i,j]:3:1);write(' ');
end;
write(' ');write(' x',i,' ');write(' ');
for j:=1 to 3 do
begin write(aa[i,j]:6:3);write(' ');
end;
writeln;
write('apakah anda ingin mengulangi(y/t) : ');
readln(ab);
if (ab='y') or (ab='Y')then
begin
goto ulang;
end
else
begin
end;
end;
end.
Kamis, 21 Mei 2009
program penghitungan perkalian matriks
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.
Senin, 23 Maret 2009
tugas program konputer
1. Menghitung keliling dan luas lingkaran yang diketahui r.
2. Menghitung Volume tabung, selimut ( luas ).
3. Menghitung SPLTV.
4. Menghitung FPB
k = 2r
L = r2
Langganan:
Postingan (Atom)