Utilizamos Cookies de terceros para generar estadísticas de audiencia y mostrar publicidad personalizada analizando tu navegación. Si sigues navegando estarás aceptando su uso. Más información X
PortadaForo AyudaTutoriales
InicioForosForo Programación

Matrices en turbo pascal

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

Posibles soluciones:
Matrices en turbo pascalMatrices en turbo pascal
Matrices en turbo pascalMatrices en turbo pascal
Matrices en turbo pascal!Matrices en turbo pascal!
Turbo pascalTurbo pascal
Turbo pascalTurbo pascal
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.
Página:1

Respuestas relacionadas:

Turbo pascalTurbo pascalForo
Turbo pascalTurbo pascalForo
Ayuda con turbo pascalAyuda con turbo pascalForo
Ayuda con turbo pascalAyuda con turbo pascalForo
Problemas con turbo pascalProblemas con turbo pascalForo
Problema en turbo pascalProblema en turbo pascalForo
Ejercicios de turbo pascalEjercicios de turbo pascalForo
Turbo pascal- programasTurbo pascal- programasForo
Problema turbo pascalProblema turbo pascalForo
Ayuda programación turbo pascalAyuda programación turbo pascalForo
InicioNoticias
^ SubirAviso legal
Política Privacidad
Configurarequipos17 Agosto 2018