Написал программу. Пока что она просто сортирует один и то же набор тестовых записей разными способами сортировки, и разным количеством элементов.
Но возникает ошибка. В хелпе почитал, советы. Которые понял - те сделал, но ошибка та же.
Плюс ко всему я еще планирую туда добавить еще один метод, который будет, как и все остальные, выполняться три раза. И еще надо засекать время выполнения каждого метода. Вобщем еще не конец, а уже проблемы.
Что Вы мне можете посоветовать в этом случае?
| Код |
type words = record
number: word;
word: string[20];
end;
var T:words;
a: array [1..1500,1..9] of ^ words;
f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11:text;
ch:char;
s,str1, str2, min: string;
c,i,n,j,l,p,kol,ww,q,imin,u:integer;
BEGIN
assign(f2, 'd:\2.txt');
reset(f2);
assign(f3, 'd:\3.txt');
rewrite(f3);
assign(f4, 'd:\4.txt');
rewrite(f4);
assign(f5, 'd:\5.txt');
rewrite(f5);
assign(f6, 'd:\6.txt');
rewrite(f6);
assign(f7, 'd:\7.txt');
rewrite(f7);
assign(f8, 'd:\8.txt');
rewrite(f8);
assign(f9, 'd:\9.txt');
rewrite(f9);
assign(f10, 'd:\10.txt');
rewrite(f10);
assign(f11, 'd:\11.txt');
rewrite(f11);
s:='';
p:=0;
i:=0;
writeln(memavail);
for i:=1 to 1500 do
for j:=1 to 9 do new(a[i,j]);
{======================Заносим слова в масив=============================}
for j:=1 to 9 do begin
reset(f2);
while not eof(f2) do begin
readln(f2,s);
inc(p);
a[p,j]^.word:=s;
a[p,j]^.number:=p;
end;
end;
{=================СОРТИРОВКА ВЫБОРОМ==========================}
{количество элементов = 500}
j:=1;
for i:=1 to 499 do begin
min:=a[i,j]^.word;
imin:=i;
for p:=i+1 to 500 do
if a[p,j]^.word<min then
begin
min:=a[p,j]^.word;
imin := p;
end;
a[imin,j]:=a[i,j];
a[i,j]^.word:=min;
a[i,j]^.number:=imin;
end;
{количество элеменов = 1000}
j:=2;
for i:=1 to 999 do begin
min:=a[i,j]^.word;
imin:=i;
for p:=i+1 to 1000 do
if a[p,j]^.word<min then
begin
min:=a[p,j]^.word;
imin := p;
end;
a[imin,j]:=a[i,j];
a[i,j]^.word:=min;
a[i,j]^.number:=imin;
end;
{количество элементов = 1500}
j:=3;
for i:=1 to 1499 do begin
min:=a[i,j]^.word;
imin:=i;
for p:=i+1 to 1500 do
if a[p,j]^.word<min then
begin
min:=a[p,j]^.word;
imin := p;
end;
a[imin,j]:=a[i,j];
a[i,j]^.word:=min;
a[i,j]^.number:=imin;
end;
{============================СОРТИРОВКА ПУЗЫРЬКОВАЯ=========================}
{количество элементов = 500}
j:=4;
for i:=500 downto 2 do
for u:=1 to 499 do begin
if (a[u,j]^.word < a[u+1,j]^.word) then begin
T.word:=a[u,j]^.word; T.number:=a[u,j]^.number;
a[u,j]:=a[u+1,j];
a[u,j]^.word:=t.word; a[u,j]^.number:=t.number;
end; end;
{количество элементов = 1000 }
j:=5;
for i:=100 downto 2 do
for u:=1 to 500 do begin
if (a[u,j]^.word < a[u+1,j]^.word) then begin
T.word:=a[u,j]^.word; T.number:=a[u,j]^.number;
a[u,j]:=a[u+1,j];
a[u,j]^.word:=t.word; a[u,j]^.number:=t.number;
end; end;
{количество элементов = 1500 }
j:=6;
for i:=1500 downto 2 do
for u:=1 to 1499 do begin
if (a[u,j]^.word < a[u+1,j]^.word) then begin
T.word:=a[u,j]^.word; T.number:=a[u,j]^.number;
a[u,j]:=a[u+1,j];
a[u,j]^.word:=t.word; a[u,j]^.number:=t.number;
end; end;
{===========================СОРТИРОВКА ВСТАВКАМИ===========================}
{количество элементов = 500}
j:=7;
for p:=2 to 500 do begin
T.word:=a[u,j]^.word; T.number:=a[u,j]^.number;
ww:=p-1;
while (ww>0) and (T.word > a[ww,j]^.word) do begin
a[ww+1,j] := a[ww,j]; dec(ww);
end;
a[u,j]^.word:=t.word; a[u,j]^.number:=t.number;
end;
{количество элементов = 1000}
j:=8;
for p:=2 to 1000 do begin
T.word:=a[u,j]^.word; T.number:=a[u,j]^.number;
ww:=p-1;
while (ww>0) and (T.word > a[ww,j]^.word) do begin
a[ww+1,j] := a[ww,j]; dec(ww);
end;
a[u,j]^.word:=t.word; a[u,j]^.number:=t.number;
end;
{количество элементов = 1500}
j:=9;
for p:=2 to 1500 do begin
T.word:=a[u,j]^.word; T.number:=a[u,j]^.number;
ww:=p-1;
while (ww>0) and (T.word > a[ww,j]^.word) do begin
a[ww+1,j] := a[ww,j]; dec(ww);
end;
a[u,j]^.word:=t.word; a[u,j]^.number:=t.number;
end;
{===============================ВЫВОД======================================}
for p:=1 to 500 do writeln(f3,a[p,1]^.word,' ',a[p,1]^.number);
for p:=1 to 1000 do writeln(f4,a[p,2]^.word,' ',a[p,2]^.number);
for p:=1 to 1500 do writeln(f5,a[p,3]^.word,' ',a[p,3]^.number);
for p:=1 to 500 do writeln(f6,a[p,4]^.word,' ',a[p,4]^.number);
for p:=1 to 1000 do writeln(f7,a[p,5]^.word,' ',a[p,5]^.number);
for p:=1 to 1500 do writeln(f8,a[p,6]^.word,' ',a[p,6]^.number);
for p:=1 to 500 do writeln(f9,a[p,7]^.word,' ',a[p,7]^.number);
for p:=1 to 1000 do writeln(f10,a[p,8]^.word,' ',a[p,8]^.number);
for p:=1 to 1500 do writeln(f11,a[p,9]^.word,' ',a[p,9]^.number);
close(f4);
close(f5);
close(f6);
close(f7);
close(f8);
close(f9);
close(f10);
close(f11);
close(f2);
close(f3);
END.
|
П.С. Я чет представить себе не могу, как создают огромные проекты, если даже на такой учебной программе уже не хватает памяти
|
