var { lokaalne muutuja } c : Integer; begin c := a; a := b; b := c; end; { Protseduur maatriksi a-nda ja b-nda rea vahetamiseks. } procedure VahetaRead(a, b : Integer); { formaalsed parameetrid } var { lokaalne muutuja } j : Integer; begin For j := 1 to M do Vaheta(T[a,j], T[b,j]); { tegelikud parameetrid } end; { Protseduur maatriksi a-nda ja b-nda veeru vahetamiseks. } procedure VahetaVeerud(a, b : Integer); { formaalsed parameetrid } var { lokaalne muutuja } i : Integer; begin For i := 1 to N do Vaheta(T[i,a], T[i,b]); { tegelikud parameetrid } end; { Protseduur maatriksi ridade ja veergude järjestamiseks. } procedure Jarjestamine; var { lokaalsed muutujad } i, j, k : Integer; begin Writeln; 91 / 115 Writeln('Toimub järjestamine');
c : Integer; begin c := a; a := b; b := c; end; { Protseduur maatriksi a-nda ja b-nda rea vahetamiseks. } procedure VahetaRead(a, b : Integer); { formaalsed parameetrid } var { lokaalne muutuja } j : Integer; begin For j := 1 to M do Vaheta(T[a,j], T[b,j]); { tegelikud parameetrid } Programmeerimise algkursus 71 - 89 end; { Protseduur maatriksi a-nda ja b-nda veeru vahetamiseks. } procedure VahetaVeerud(a, b : Integer); { formaalsed parameetrid } var { lokaalne muutuja } i : Integer; begin For i := 1 to N do Vaheta(T[i,a], T[i,b]); { tegelikud parameetrid } end; { Protseduur maatriksi ridade ja veergude järjestamiseks. } procedure Jarjestamine; var { lokaalsed muutujad } i, j, k : Integer; begin Writeln; Writeln('Toimub järjestamine'); For i := 1 to N-1 do For k := 2 to N do
annaabi.ee 
