Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабы по МПО / Sissy_Metr / labs / lab3 / ST_SAMPL / TEST / TST_PR_P
.PASuses sampler;
const
szUnit: String = 'tst_pr.pas';
Size = 10000;
Sized2 = 5000;
Sized5 = 2000;
Sized10 = 1000;
var
i, tmp:Integer;
Dim: Array[0..Size] of Integer;
begin
Sample ( szUnit,1 ) ;
Sample ( szUnit,2 ) ;
for i:=0 to Sized10 do
begin
tmp:=dim[0]; dim[0]:=dim[i]; dim[i]:=tmp;
end;
Sample ( szUnit,4 ) ;
for i:=0 to Sized5 do
begin
tmp:=dim[0]; dim[0]:=dim[i]; dim[i]:=tmp;
end;
Sample ( szUnit,6 ) ;
for i:=0 to Sized2 do
begin
tmp:=dim[0]; dim[0]:=dim[i]; dim[i]:=tmp;
end;
Sample ( szUnit,8 ) ;
for i:=0 to Size do
begin
tmp:=dim[0]; dim[0]:=dim[i]; dim[i]:=tmp;
end;
Sample ( szUnit,10 ) ;
end.
Соседние файлы в папке TEST