Ш. И. Раззоќов, М. Д. Юнусова turbo pascal алгоритмик тилида дастурлаш касб-ћунар коллеж талабалари учун ўќув ќўлланма

procedure MyProc (var Par 1, Par 2; const Par 3, Par 4);
Лекин тур йўќлиги натижасида турсиз расмий параметрларни, турли параметрлар каби ишлатиш мумкин эмас. Ишлатишдан олдин турсиз расмий параметрни ќандайдир бир турга келтириш керак.
Турсиз параметрлар, турлиларига ќараганда, ишлатишда анча ќулай, унинг тўѓри ќўлланилаётганлиги тўѓрисидаги маъсулият дастурчи зиммасида бўлади, чунки компилятор турларининг мослигини текшира олмайди.
Мисол сифатида, элементлари Byte тури соћасининг ихтиёрий турдаги, ихтиёрий ўлчамдаги бир ўлчовли массивларини киритиш, чиќариш ва саралаш универсал процедуралари ишлатилган дастурни кўрамиз.
Бунда ћар бир массив хотирада унга ќанча керак бўлса, шунча жой эгаллайди.
Бундан ташќари, SortVector процедураси Char туридаги массивларни саралашда ћам муваффаќият билан ишлатилиши мумкин, чунки ASCII белги кодлари Byte туридаги ќийматлар чегарасидан ташќарига чиќмайди. Inpvector ва Printvector процедуралар символли массивлар учун тўѓри келмайди, чунки улар сонли ќийматларни киритиш-чиќаришга йўналтирилган. Сонли ќийматларни киритиш-чиќариш эса символли ќийматларни киритиш-чиќаришдан фарќ ќилади.
10.2-дастур
program Sort;
uses Crt;
const
l = 7;
m = 10;
n = 15;
type
MaxVect = array [1..MaxInt] of Byte;
TVector Byte = array [1..l] of Byte;
TVector 100 = array [1..m] of 1..100;
TVector Char = array [1..1] of Char;
var
ByteVector : TVectorByte;
Vector 100 : TVector100;
CharVector : TVectorChar;
i : Word;
{----------------------------------------------------------}
procedure SortVector (var Vector; Len : Word);
var
Min : Byte;
Imin : Word;
i, j : Word;
begin
for i : = 1 to Len-1 do
begin
Min : = MaxVect (Vector) [i]; {Vector параметрини }
{MaxVect турига келтириш}
Imin : = i;