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

var Min : Byte;
Imin : Word;
i, j : Word;
begin
for i: = 0 to High (Vector) – 1 do
begin
Min : = Vector [i];
Imin : = i;
for j : = i + 1 to High (Vector) do
if Vector [j] < Min then
begin
Min : = Vector [j];
Imin : = j
end;
Vector [Imin] : = Vector [i];
Vector [i] : = Min;
end;
end;
{-----------------------------------------------------------------------------}
procedure InpVector (var Vector : array of Byte);
var i : Word;
begin
ClrScr;
Writeln (Киритинг, (High (Vector)+1):3,
 Byte турдаги элементларни:);
for i: = 0 to High (Vector) do Read (Vector [i]);
Readln;
end;
{-----------------------------------------------------------------------------}
procedure PrintVector (var Vector : array of Byte);
var i : Word;
begin
Writeln (Сараланган массив:);
for i: = 0 to High (Vector) do Write (Vector [i] : 8);
Writeln;
Writeln (Enter ни босинг … );
Readln;
end;
begin
InpVector (Vector1);
SortVector (Vector1);
PrintVector (Vector1);
{------------------------------------------------------------------------------}
InpVector (Vector2);
SortVector (Vector2);
PrintVector (Vector2);
end.
10.5. Процедурали директивалар
10.5.1. near ва for директивалари
near ва for директивалар компиляторга процедураларни чаќиришнинг ќайси моделига (near – яќин ёки for – узоќ) кўра чиќиш кодини ћосил ќилиш (генерирлаш) талаб ќилинаётганини кўрсатади. Яќин моделда чаќириш тезроќ, узоѓида – секинроќ бажарилади. Лекин яќин чаќиришларнинг таъсир соћаси чаќирилувчи процедура баён этилган модул чегарасидагина бўлади.