Pascal programlama dilinde yazılmış bu programda 6x6 boyutlarındaki bir matrisin en küçük sayısını bularak, tablodaki bütün elemanların bu sayıyla çarpımından oluşan yeni bir 6x6 boyutlarında matris oluşturacak alt program icra edilmiştir.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
uses crt;
var
tablo:array[1..6,1..6] of integer;
i,j,min:integer;
procedure mincarp;
begin
min:=tablo[1,1];
for i:=1 to 6 do
for j:=1 to 6 do
if min > tablo[i,j] then min:=tablo[i,j];
for i:=1 to 6 do
for j:=1 to 6 do
tablo[i,j]:=tablo[i,j]*min;
end;
begin
clrscr;
writeln('Tablo degerlerini giriniz...');
for i:=1 to 6 do
for j:=1 to 6 do
read(tablo[i,j]);
readln;
mincarp;
writeln('');
for i:=1 to 6 do
begin
for j:=1 to 6 do
write(tablo[i,j]);
writeln('');
end;
readln;
end.