Pascal/Turbo Pascal - Error al imprimir matriz en turbo pascal

   
Vista:

Error al imprimir matriz en turbo pascal

Publicado por Israel Chavarín (2 intervenciones) el 15/03/2014 04:05:17
Hola a todos, me gustaría que me ayudaran por favor con un problema, lo que pasa es que debo de leer primero una matriz de filas y columnas n (para lo que utilizo 2 for por ser matriz, uno mueve la fila, de arriba abajo, y el otro las columnas,de derecha a izquierda), y luego que muestre todos los datos que contenga ésta. El problema esta en que al momento de imprimir los datos (con otros dos for) me cambia el dato que va en la posición 1 de cada columna(hacia la derecha)por el último introducido en cada una. Entonces necesito saber si así con los dos for que utilizo se puede y como sería para que primero lea y luego imprima bien todos los datos.
Si alguien me pudiera ayudar con eso se lo agradecería mucho, ya que e intentado de varias maneras y aún no lo consigo.
Aquí esta mi código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Program matriz;
uses crt;
var
m:array[1..10,1..10] of integer;
f,c,ab,ad,nf,nc:integer;
 
Begin
clrscr;
 
Writeln('Introduce los siguientes datos sobre la matriz:');
writeln('');
writeln('¨De cuantos elementos ser  la fila?(hacia abajo)');
readln(nf);
writeln('¨De cuantos las columnas?(hacia la derecha)');
readln(nc);
 
Writeln('Ahora si llenala');
Writeln('');
 
For f:=1 to nf do
Begin
Writeln('Introduce el n£mero ',f,' de la fila');
readln(m[f,c]);
For c:=2 to nc do
Begin
Writeln('Introduce el n£mero ',c,' de la columna ',f,'');
readln(m[f,c]);
end;
end;
 
Begin
clrscr;
ab:=6;
For f:=1 to nf do
Begin
gotoxy(6,ab);Writeln(m[f,c]);
ad:=10;
For c:=2 to nc do
Begin
gotoxy(ad,ab);writeln(m[f,c]);
ad:=ad+4;
end;
ab:=ab+4;
end;
end;
readkey;
end.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Error al imprimir matriz en turbo pascal

Publicado por lion (6 intervenciones) el 15/03/2014 17:24:51
Hola Israel, te pongo mi programa para que veas el error

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
PROGRAM Ejercicio;
 
TYPE
 
  A=array[1..10,1..10] of real;
 
VAR
 
  Matriz:A;
  m:integer;
  i,j:integer;
 
BEGIN
 
  write('dimension de la matriz '); read(m);
 
 
  for i:=1 to m do
    for j:=1 to m do
      read(Matriz[i,j]);
 
  for i:=1 to m do begin
    for j:=1 to m do
      write(' ',Matriz[i,j]:6:0);
      writeln;
 
    end;
 
    readln;
    readln;
 
END.

Un saludo!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Error al imprimir matriz en turbo pascal

Publicado por Israel Chavarín (2 intervenciones) el 17/03/2014 17:27:25
Gracias por responder, creo que el error está en que lea e imprima la matriz para cada contador
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar