Minggu, 17 Juni 2012
FINAL 1: PENJUMLAHAN MATRIKS DENGAN PROCEDURE
program matriks;
uses crt;
type data = array[1..10,1..10] of integer;
var matrikI,matrikII : data;
baris,kolom,pil : integer;
procedure isimatrik;
var i,j : integer;
begin
writeln('Penentuan ORDO MATRIKS I');
write('Masukan banyak baris matriks I = ');readln(baris);
write('Masukan banyak kolom matriks I = ');readln(kolom);
for i:=1 to baris do
for j:=1 to kolom do
begin
gotoxy(j*10,i*5);
readln(matrikI[i,j]);
end;
clrscr;
writeln('Penentuan ORDO MATRIKS II');
write('Masukan banyak baris matriks II = ');readln(baris);
write('Masukan banyak kolom matriks II = ');readln(kolom);
for i:=1 to baris do
for j:=1 to kolom do
begin
gotoxy(j*10,i*5);
readln(matrikII[i,j]);
end;
end;
procedure jumlahmatrik(m1,m2 : data);
var hasil : data;
i,j : integer;
begin
for i:=1 to baris do
for j:=1 to kolom do
begin
hasil[i,j]:=m1[i,j]+m2[i,j];
end;
clrscr;
writeln('Hasil Penjumlahan Matriks');
writeln('___________________________');
gotoxy(40,10); writeln('programmed by MUHAMMAD BIBI');
gotoxy(40,11); writeln(' F1A1 11 103');
gotoxy(40,12); writeln(' MATEMATIKA');
gotoxy(40,13); writeln(' _____________');
for i:=1 to baris do
for j:=1 to kolom do
begin
gotoxy(j*10,i*5);
write(hasil[i,j]);
end;
end;
begin
clrscr;
isimatrik;
jumlahmatrik(matrikI,matrikII);
readln;
end.
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar