· juhtida hobuse tähelepanu kõrvale selleks ajaks kui klipatakse raskeid kohti (pea, kõhualune jne.) Eesti Ratsaspordi Liit 5 Hobuste käsitlemine (Horsemanship) Klippamise koht · ohutus, rahulikus kohas, soovitavalt õues päevavalguses · piisavalt valges kohas Nõuandeid klippamiseks · klippamiseks kuluv aeg on vähemalt 3 tundi · hobusele heinavõrk ette SADULDAMINE, VALJASTAMINE JA KAITSMED · Enne saduldamist peab hobuse puhastama väga korralikult ja jälgima, et sadula, valjaste ja kaitsmete all olev pind oleks puhas. · Hobusega peab alati toimetama rahulikult ja kindlalt. · Hobusel on väga hea mälu, seetõttu halvad mälestused saduldamisest ja valjastamisest vähendavad hobuse usaldust inimese vastu. · Boksi minnes tuleb alati ennast hobusele eelnevalt nähtavaks teha.
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 } VahetaVeerud(j, k); { tegelikud parameetrid } end; { Protseduur maatriksi sisu väljastamiseks koos pealkirjaga. } procedure Valjastamine(Pealkiri : String); { formaalne parameeter } var { lokaalsed muutujad } i, j : Integer; begin WriteLn; WriteLn(Pealkiri); For i := 1 to N do begin For j := 1 to M do begin Write(T[i,j]:4); end; WriteLn(ReaSumma(i):4); { tegelik parameeter } end; For j := 1 to M do Write(VeeruSumma(j):4); { tegelik parameeter } Writeln; end; { Põhiprogramm } begin Sisestamine;
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 } VahetaVeerud(j, k); { tegelikud parameetrid } end; { Protseduur maatriksi sisu väljastamiseks koos pealkirjaga. } procedure Valjastamine(Pealkiri : String); { formaalne parameeter } var { lokaalsed muutujad } i, j : Integer; begin WriteLn; WriteLn(Pealkiri); For i := 1 to N do begin For j := 1 to M do begin Write(T[i,j]:4); end; WriteLn(ReaSumma(i):4); { tegelik parameeter } end; For j := 1 to M do Write(VeeruSumma(j):4); { tegelik parameeter } Writeln; end; { Põhiprogramm } begin Sisestamine;
annaabi.ee 
