Pascal/Turbo Pascal - matrices

 
Vista:

matrices

Publicado por sonny (10 intervenciones) el 16/04/2008 07:33:41
hola a todos si me pueden ayudar con esto

hice una matriz en la cual el usuario le da da las filas y las columnas para mi pregunta supongamos que es de 2*2 correcto!
Al momento de imprimir los elementos los imprime de esta forma

1 2 3 4

yo quiero que los imprima de esta forma

1 2
3 4
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

RE:matrices

Publicado por eli (14 intervenciones) el 16/04/2008 14:35:54
Seria bueno que colocaras la matriz que hicistes y asi te podria ayudar a completar lo la forma como quieres resolverlo...
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

RE:matrices

Publicado por sonny (10 intervenciones) el 17/04/2008 04:19:45
program matrices;
uses crt;
var
a:array[1..10,1..10] of integer;
f,c,i,j:integer;

begin
clrscr;
textcolor(yellow);
gotoxy(25,10);
write('CUANTAS FILAS: ');read(f);
gotoxy(25,12);
write('CUANTAS COLUMNAS: ');read(c);
for i:=1 to f do
for j:=1 to c do
begin
clrscr;
gotoxy(20,10);
write('DIGITE EL ELEMENTO ',i,',',j,': ');
read(a[i,j]);
end;
clrscr;
gotoxy(25,10);
for i:=1 to f do
for j:=1 to c do
begin
write(' ');
write(a[i,j]);
end;
readkey;
end.
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

RE:matrices

Publicado por eli (14 intervenciones) el 17/04/2008 16:34:40
Bueno esto lo que pude hacer para que mostrara la matriz :

program matrices;
uses crt;
var
a:array[1..10,1..10] of integer;
f,c,i,j:integer;

begin
clrscr;
textcolor(yellow);
gotoxy(25,10);
write('CUANTAS FILAS: ');read(f);
gotoxy(25,12);
write('CUANTAS COLUMNAS: ');read(c);
for i:=1 to f do
for j:=1 to c do
begin
clrscr;
gotoxy(20,10);
write('DIGITE EL ELEMENTO ',i,',',j,': ');
read(a[i,j]);
end;
clrscr;
for i:=1 to f do
begin
for j:=1 to c do
write(a[i,j]:4);
writeln(' ');
end;
readkey;
end.
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

pregunta

Publicado por sonny (10 intervenciones) el 18/04/2008 10:04:00
te agradezco mucho me sirvio mucho tu ayuda gracias de nuevo.......una pregunta tu sabes programar en delphi?
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

RE:pregunta

Publicado por eli (14 intervenciones) el 18/04/2008 14:39:26
bueno no me ha iniciado en programar con delphi...
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