german08 | |
| 2007-10-05 16:31 - Respuestas: 4 - Tema nº: 2474030
Características: Windows XP Profesional, 1gb, pentium 3.
hola, tengo que crear un programa en turbo pascal que opere con matrices. debo hacelro creando subprogramas que lea una matriz, me saque el promedio y me diga cual es el maximo numero de mi matriz, mi problema esta en que no puedo hacer que me tire el maximo numero ingresado.
si alguien muy amable me puede ayudar, se lo voy agradecer
| |
|
|
Karlos2007 | |
|
Re: Matrices en turbo pascal - 2007-10-05 16:44 - Respuesta 2
podrias pegar aqui el programa que hasta ahora has desarrollado para poder ayudarte mejor
| |
|
|
Hurricane | |
|
Re: Matrices en turbo pascal - 2007-10-05 18:12 - Respuesta 3
Vamos a suponer que quieres averiguar cuál es el número máximo ingresado en la matriz M[], cuyo número de elemento está determinado por Num:
Maximo := M[1];
For Index := 2 to Num do
If (M[Index]>Maximo) then Maximo := M[Index];
La variable Maximo contendrá en número mayor almacenado en la matriz. Debes decalrar la variable Index de tipo Integer.
Saludos
HURRICANE
| |
|
|
german08 | |
|
Re: Matrices en turbo pascal - 2007-10-05 19:14 - Respuesta 4
aca te paso lo que tengo hecho
program TrabPract2;
uses
crt, dos;
const
m_rango = 5;
type
rango = 1..m_rango;
mientero = integer;
tmatriz = array[rango,rango] of mientero;
var
matriz: tmatriz;
fil,col: rango;
procedure cargar(var mat : tmatriz; m,n:rango);
var
i,j: rango;
begin
clrscr;
for i:= 1 to m do
for j:= 1 to n do
begin
write(' Ingrese el valor [',i,',',j, '] = ');
readln(mat[i,j]);
end;
readkey;
end;
Function promedio(mat : tmatriz; m,n: rango): real;
var
cant,i ,j : rango;
suma, prom: real;
begin
clrscr;
suma:=0;
for i:=1 to m do
begin
for j:= 1 to n do
suma:= suma + matriz[i,j];
end;
cant:= fil*col;
prom:= suma/cant;
write(' El promedio es: ',prom:0:2);
promedio:= prom;
readkey;
end;
begin
clrscr;
write(' Ingrese la cantidad de filas: ');
readln(fil);
write(' Ingrese la cantidad de columnas: ');
readln(col);
cargar(matriz,fil,col);
promedio(matriz,fil,col);
end.
| |
|
|
german08 | |
|
Re: Matrices en turbo pascal - 2007-10-08 19:14 - Respuesta 5
aca te paso lo que tengo hecho
program TrabPract2;
uses
crt, dos;
const
m_rango = 5;
type
rango = 1..m_rango;
mientero = integer;
tmatriz = array[rango,rango] of mientero;
var
matriz: tmatriz;
fil,col: rango;
procedure cargar(var mat : tmatriz; m,n:rango);
var
i,j: rango;
begin
clrscr;
for i:= 1 to m do
for j:= 1 to no do
begin
write(' Ingrese el valor [',i,',',j, '] = ');
readln(mat[i,j]);
end;
readkey;
end;
Function promedio(mat : tmatriz; m,n: rango): real;
var
cant,i ,j : rango;
suma, prom: real;
begin
clrscr;
suma:=0;
for i:=1 to m do
begin
for j:= 1 to no do
suma:= suma + matriz[i,j];
end;
cant:= fil*col;
prom:= suma/cant;
write(' El promedio es: ',prom:0:2);
promedio:= prom;
readkey;
end;
begin
clrscr;
write(' Ingrese la cantidad de filas: ');
readln(fil);
write(' Ingrese la cantidad de columnas: ');
readln(col);
cargar(matriz,fil,col);
promedio(matriz,fil,col);
end. | |
|
|
|