Turbo pascal Program example: calculate the array Matrix 2 dimensions - I will give you how to create Turbo Pascal programs, this Program is a program to calculate the number of the 2 dimensional matrix.
You can use the Turbo Pascal applications, if you do not already have it, you can download it, click here.
Just give me the code to run the program, and you can edit a bit in which you can edit, the code is :
program summation matrix :
uses crt;
type data = array[1..10,1..10] of integer;
var matrikI,matrikII : data;
baris,kolom,pil : integer;
Ul : char;
procedure isimatrik;
var i,j : integer;
begin
write ('Ukuran Matriks (a x a) : '); readln(baris);
writeln;
writeln ('A =');
writeln;
for i:=1 to baris do
begin
for j :=1 to baris do
begin
gotoxy (j*5,i+8);
read(matrikI[i,j]);
end;
end;
writeln;
writeln('B =');
writeln;
for i:=1 to baris do
begin
for j:=1 to baris do
begin
gotoxy(j*5,i+12);
read(matrikII[i,j]);
end;
end;
end;
procedure jumlahmatrik(m1,m2 : data; baris,kolom :integer);
var hasil : data;
i,j : integer;
begin
for i:=1 to baris do
for j:=1 to baris do
begin
hasil[i,j]:=m1[i,j]+m2[i,j];
end;
writeln;
writeln('Output : A+B = ');
for i:=1 to baris do
for j:=1 to baris do
begin
gotoxy(j*5,i+17);
write(hasil[i,j]);
end;
readln;
end;
begin
clrscr;
writeln('Program : Penjumlahan pada Matriks');
writeln('Nama : _________ ');
writeln('NPM : __________');
writeln('Universitas : __________');
writeln;
writeln;
isimatrik;
jumlahmatrik(matrikI,matrikII,baris,kolom);
readln;
end.
that's the code that you need right and you can edit it yourself ...
Read Also :
1. List of best-selling Hatchback in 10 months.
2. New Ford Everest 2015.
3. Simple application for laptops and computers.
4. Examples And How To Create A PHP Program: The Sum Of A Matrix
0 komentar:
Post a Comment