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:
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
0
