Скачиваний:
17
Добавлен:
01.05.2014
Размер:
772 б
Скачать

uses sampler;

const
szUnit: String = 'tst_p5.pas';
Size = 10000;
Sized2 = 5000;
Sized5 = 2500;
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