Summa : LongInt; r : Integer; begin Summa := 0; for r := 1 to N do Summa := Summa + T[r,v]; VeeruSumma := Summa; end; { Protseduur kahe suvalise täisarvu tüüpi muutuja väärtuste vahetamiseks. } procedure Vaheta(var a, b : Integer); { formaalsed parameetrid } 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
Summa : LongInt; r : Integer; begin Summa := 0; for r := 1 to N do Summa := Summa + T[r,v]; VeeruSumma := Summa; end; { Protseduur kahe suvalise täisarvu tüüpi muutuja väärtuste vahetamiseks. } procedure Vaheta(var a, b : Integer); { formaalsed parameetrid } 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 } Programmeerimise algkursus 71 - 89 end; { Protseduur maatriksi a-nda ja b-nda veeru vahetamiseks. } procedure VahetaVeerud(a, b : Integer); { formaalsed parameetrid } var { lokaalne muutuja }
annaabi.ee 
