Operações de Pascal
Resenha: Operações de Pascal. Pesquise 860.000+ trabalhos acadêmicosPor: alexandregaspar1 • 27/8/2014 • Resenha • 936 Palavras (4 Páginas) • 147 Visualizações
Utiliando as operacoes randomize e random do Pascal, faca um
programa que:
(a) Gere o conteudo de uma matriz quadrada de dimensao 5, com
elementos aleatorios no intervalo 1 a 60;
(b) Escreva no video o conteudo da matriz;
(c) Escreva o numero da linha com maior soma de elementos;
(d) Escreva o numero da coluna com maior soma de elementos e.
(e) Escreva os valores da diagonal com maior soma de elementos.
}
program quest_03_AD1(input{teclado}, output{video});
const
tam = 5;
inicio = 1;
fim = 60;
type
dominio = 1..tam;
espectro = inicio..fim;
matriz = array[dominio,dominio] of espectro;
procedure gere(Var vs{s}: matriz);
var
lin, col: dominio;
begin
for lin:=1 to tam do
for col:= 1 to tam do
vs[lin,col]:= inicio+random(fim-inicio+1);
end;
procedure mostre(vs{e}: matriz);
var
lin, col: dominio;
begin
for lin:=1 to tam do
begin
for col:= 1 to tam do
write(output, vs[lin,col]:4);
writeln(output);
end;
end;
function somarLinha(lin{e}: integer; mats{e}: matriz): integer;
var
total, col: integer;
begin
total:= 0;
for col:= 1 to tam do
total:= total + mats[lin,col];
somarLinha:= total;
end;
function linhaComMaiorSoma(ms{e}: matriz): integer;
var
vencedora, somaVencedora, linha, somaDaLinha: integer;
begin
vencedora:= 1;
somaVencedora:= somarLinha(1, ms);
for linha:= 2 to tam do
begin
somaDaLinha:= somarLinha(linha, ms);
if somaDaLinha>somaVencedora then
begin
somaVencedora:= somaDaLinha;
vencedora:= linha;
end;
end;
linhaComMaiorSoma:= vencedora;
end;
function somarColuna(col{e}: integer; mats{e}: matriz): integer;
var
total, lin: integer;
begin
total:= 0;
for lin:= 1 to tam do
total:= total + mats[lin,col];
somarColuna:= total;
...