Algoritmo de funções, procedimentos e funções
002
003 uses crt;
004
const tam=3;
005
006 type 007 TMATRIZ = array[1..tam,1..tam] of integer;
008
TVETOR = array[1..tam] of integer;
009
var
010
matriz:TMATRIZ;
011
vetor:TVETOR;
012
soma,i,cont,numero,maior,menor:integer;
013
media:real;
014
015 016 function buscarMatriz(num:integer;m:TMATRIZ):boolean;
017
var
018
i,j: integer;
019
achou:boolean;
020
begin
021
achou:=false;
022
for i:= 1 to tam do
023
begin
024
for j:= 1 to tam do
025
begin
026
if (num = m[i,j]) then
027
begin
028
achou:=true;
029
end;
030
end;
031
032 end;
033
BuscarMatriz:=achou;
034
end;//fim do buscarMAtriz
035
036 procedure preencherMatriz(var m:TMATRIZ);
037
var
038
numero,i,j: integer;
039
achou:boolean;
040
begin
041
randomize;
042
for i:= 1 to tam do
043
for j:= 1 to tam do
044
begin
045
repeat
046
numero:=random(10);
047
achou:=buscarMatriz(numero,m);
048
if (achou = false) then
049
begin
050
m[i,j]:= numero;
051
soma:=soma+m[i,j];
052
if (m[i,j] > maior) then maior:= m[i,j];
053
if (m[i,j]< menor) then menor:= m[i,j];
054
055 end;
056
until(achou =false);
057
end;
058
media:=soma/(tam * tam);
059
end;//fim do preencherMatriz
060
061 procedure exibirMatriz(m:TMATRIZ);
062
var
063
i,j: integer;
064
begin
065
;
066
for i:= 1 to tam do
067
begin
068
for j:= 1 to tam do
069
begin
070
write(m[i,j], ' ');
071
end;
072
writeln;
073
end;
074
end;//fim do exibirMatriz
075
procedure exibirMatrizTransposta(m:TMATRIZ);
076
var
077
i,j: integer;
078
begin
079
;
080
for i:= 1 to tam do
081
begin
082
for j:= 1 to tam do
083
begin
084