Pascal/Turbo Pascal - DIAGONAL INVERTIDA DE UNA MATRIZ

   
Vista:

DIAGONAL INVERTIDA DE UNA MATRIZ

Publicado por AUGUSTO canb007@gmail.com (2 intervenciones) el 14/04/2011 03:16:30
HOLA !! necesito ayuda para realizar la impresion(que me muestre por pantalla), una diagonal inversa de una matriz(n) en PASCAL de esta manera:

1 1 1 0
1 1 0 1
1 0 1 1
0 1 1 1

Los CEROS son los valores que deseo imprimir, les agredecia mucho su ayuda cuanto antes =).
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

DIAGONAL INVERTIDA DE UNA MATRIZ

Publicado por ramon (2072 intervenciones) el 14/04/2011 13:57:43
[es loquee pides espero lo sea]

program muestra;
uses
crt;
type
arraymatriz = array[1..4,1..4] of integer;
var
matriz : arraymatriz;
y, x, i, t : integer;

begin
clrscr;
textcolor(15);
gotoxy(2,2);write('Entre valores matriz');
y := 4;
for i := 1 to 4 do
begin
y := y + 3;
x := 3;
for t := 1 to 4 do
begin
gotoxy(3,3);write('matriz : ', i,'-',t);
gotoxy(x,y);read(matriz[t,i]);
gotoxy(x,y);write(matriz[t,i]);
x := x + 3;
end;
end;
i := 1;
t := 4;
x := 15;
y := 3;
clrscr;
textcolor(14);
repeat
gotoxy(x,y);write(matriz[t,i]);
y := y + 3;
x := x - 3;
t := t - 1;
i := i + 1;
until i > 4;
textcolor(15);
repeat until keypressed;
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

DIAGONAL INVERTIDA DE UNA MATRIZ

Publicado por AUGUSTO (2 intervenciones) el 14/04/2011 15:42:24
MUCHAS GRACIAS RAMON !! SI ESO ESTABA BUSCANDO , GRACIAS KAPO.
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