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'); For i := 1 to N-1 do For k := 2 to N do if ReaSumma(i) < ReaSumma(k) then { tegelikud parameetrid } VahetaRead(i, k); { tegelikud parameetrid } For j := 1 to M-1 do For k := 2 to M do
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 if ReaSumma(i) < ReaSumma(k) then { tegelikud parameetrid } VahetaRead(i, k); { tegelikud parameetrid } For j := 1 to M-1 do For k := 2 to M do if VeeruSumma(j) < VeeruSumma(k) then { tegelikud parameetrid }
annaabi.ee 
