º) Fazer um programa que leia 20 números inteiros. Os valores deverão ser armazenados em uma matriz e a leitura feita através de um procedimento. Deverão ser calculadas as médias da diagonal principal e secundária por uma função cada.
program calculo_media;
uses crt;
var
x,y, a,b:integer;
matriz:mat;
procedure ler (var m:mat);
begin
clrscr;
for x:=1 to 3 do
begin
clrscr;
for y:=1 to 3 do
begin
writeln('digite a matriz [',a,',',b,']');
readln(m[a,b]);
end;
end;
readkey;
end;
function media_principal (var m:mat):integer;
var
media:real;
begin
clrscr;
media:=0;
x:=1;
while(x<=5)do
begin
media:=media+(m[x,x]);
x:=x+1;
end;
media:=media/5;
writeln('a media da diagonal principal foi: ',media:10:2);
end;
function media_secundaria(var m:mat):integer;
var
media2:real;
begin
media2:=0;
x:=5;
y:=1;
while(x>=1)do
begin
media2:=media2+(m[y,x]);
x:=x-1;
y:=y+1;
end;
media2:=media2/5;
writeln('a media da diagonal secundaria foi: ',media2:10:2);
end;
begin
clrscr;
ler(matriz);
media_principal(matriz);
media_secundaria(matriz);
readkey;
end.
danielpenede...
Novo Membro
Registrado
9 Mensagens
0 Curtidas