109.1.. Učitati dvodimenzionalni niz X i formirati drugi dvodimenzionalni niz Y čiji je opšti član: y ij = xji (elementi i-tog reda matrice X se razmjenjuju sa elementima i-te kolone matrice Y). Ispisati oba niza.

Opis programa: Za iste indekse elemenat matrice postaje 1 inače je 0.

Tekstualni algoritam:

Listing programa:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
PROGRAM p10912016;
 USES    WinCrt;
 VAR    i,j, n, m : INTEGER;   
 X, y, C : ARRAY [1..15,1..15] OF INTEGER;
 BEGIN   
 WRITE('n m =');    {dimenzije matrice}  
 READLN(n,m);   
 WRITELN('Matrica X');   
 FOR i := 1 TO n DO  {ulaz X[i,j]}     
  FOR j := 1 TO m DO       
   BEGIN        
    WRITE('X[',i,',',j,']=');         
    READLN(X[i,j]);      
   END;  
 WRITELN('Matrica Y');  
 FOR i := 1 TO n DO  {formiranje matrice Y}    
  FOR j := 1 TO m DO      
  Y[i,j] := X[i,j];   
 WRITELN('Izlaz matrica X');   
  FOR i := 1 TO n DO  {izlaz}    
  BEGIN      
  FOR j := 1 TO m DO        
 WRITE(X[i,j]:4);      
 WRITELN;     
END;   
WRITELN('Izlaz matrica Y');  
 FOR i := 1 TO n DO  {izlaz}    
 BEGIN      
 FOR j := 1 TO m DO         
WRITE(Y[i,j]:4);      
 WRITELN;    
 END; 
END.
1
  

Izvođenje programa:

Index