109.1.. Formirati dvodimenzionalni niz čiji su svi elementi nula osim elemenata glavne dijagonale koji su 2. Ispisati dvodimenzionalni niz.
| 2, i=j
xij= |
| 0, i <> j
Opis programa: Za iste indekse elemenat matrice postaje 2 inače je 0. Glavna dijagonala -
Elementi glavne dijagonale ima iste indekse reda i kolone (i=j), Iznad
glavne dijagonale je indeks reda manji od indeksa kolone, a ispod glavne
dijagonale je indeks reda veći glavne dijagonale. Elementi a11, a22, ..., ann
čine glavnu dijagonalu.
![](10901t_11.jpg) |
Slika 1. Glavna dijagonala i=j |
Tekstualni algoritam:
Listing programa:
PROGRAM p10912005;
USES
WinCrt;
VAR
i, j, n : INTEGER;
X : ARRAY [1..15,1..15] OF INTEGER;
BEGIN
WRITE('n (kvadratna matrica) =');
READLN(n);
FOR i := 1 TO n DO {formiranje niza}
FOR j := 1 TO n DO
IF i = j THEN
X[i,j] := 2
ELSE
X[i,j] := 0;
WRITELN('Izlaz niza');
FOR i := 1 TO n DO {izlaz}
BEGIN
FOR j := 1 TO n DO
WRITE(X[i,j]:4);
WRITELN;
END;
END.
Izvođenje programa:
Index
|
![](../epp/000/Asistent.jpg) |