IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Matristeki En Küçük Sayıyı Bulma ve Matrisi Sayıyla Çarpma

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:

 

 

 

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.