{Mira esto}
program diagonales;
uses
crt;
const
num = 10;
type
matriz = array[1..num,1..num] of integer;
var
matri : matriz;
t, h, v : integer;
modoorijen : integer;
procedure rellenamatriz;
var
numeros : array[1..(num * num)] of integer;
si : boolean;
begin
randomize;
for t := 1 to (num * num) do
begin
si := true;
h := 1;
repeat
si := true;
v := random((num * num) + 2) + 1;
for h := 1 to t do
begin
if numeros[h] = v then
si := false
end;
until si = true;
numeros[t] := v;
end;
v := 1;
for h := 1 to num do
for t := 1 to num do
begin
matri[t,h] := numeros[v];
v := v + 1;
end;
end;
procedure presentamatriz;
begin
writeln(' La Matriz Es '); writeln;
for h := 1 to num do
begin
write(' '); for t := 1 to num do
begin
write(' ',matri[t,h]); end;
writeln;
end;
end;
procedure recorrediagonalizder;
begin
t := 1;
h := 1;
repeat
gotoxy(4 + t,(num + 3) + h);write(matri[t,h]);
t := t + 1;
h := h + 1;
until t > num;
end;
procedure recorrediagonalderiz;
begin
t := num;
h := 1;
repeat
gotoxy(60 - h,(num + 3) + h);write(matri[t, h]);
t := t - 1;
h := h + 1;
until t < 1;
end;
begin
modoorijen := lastmode;
textmode(C80 + Font8x8);
clrscr;
rellenamatriz;
presentamatriz;
recorrediagonalizder;
recorrediagonalderiz;
readkey;
textmode(modoorijen);
end.
Crear cuenta