Pascal pomoc__HITNO

[misko_89]

Potrebno je da uradim program u pascalu:

2D matrica 7x7, tako da dijagonala ispisuje osmice, a ostalo da budu trojke...

Molim Vas pomozite mi... HITNO JE!!!

Unapred HVALA

 

Ovo ce naravno da izgleda ruzno ali snadji se sam mozes i da prekopiras sve ovo dole u tekstualnu datoteku i da je nazoves *.pas i otvoris je u pascal-u.

program Dijagonala(input, output);
const
{maksimalna dimenzija matrice}
Max_duzina = 7;
{tip koji definise matrice}
type
T_matrica = array[1..Max_duzina, 1..Max_duzina] of integer;
var
matrica : T_matrica;
i, j : integer;
begin
{popunjavanje matrice po dijagonali}
for i := 1 to Max_duzina do
for j := 1 to Max_duzina do
if i = j then matrica[i, j] := 8
else matrica[i, j] := 3;
{ispisivanje matrice}
for i := 1 to Max_duzina do
begin
for j := 1 to Max_duzina do
write(' ',matrica[i, j]);
writeln;
end;
{prazan red cisto razdvajanja radi}
writeln;
{popunjavanje matrice po suprotnoj dijagonali}
for i := 1 to Max_duzina do
for j := 1 to Max_duzina do
if i = (Max_duzina - j + 1) then matrica[i, j] := 8
else matrica[i, j] := 3;
{ispisivanje matrice}
for i := 1 to Max_duzina do
begin
for j := 1 to Max_duzina do
write(' ',matrica[i, j]);
writeln;
end;
{glupi izlaz iz programa}
writeln('Pritisnite Enter za kraj');
readln;
end.