Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Gosu
0 / 0 / 0
Регистрация: 17.12.2010
Сообщений: 5
1

Паскаль. Сортировки

17.12.2010, 00:17. Просмотров 335. Ответов 0
Метки нет (Все метки)

Пишу лабу. Сравнение методов сортировок. Что-то совсем уж запарился. Помогите найти ошибку.
Вот сам текст программы(не обращайте внимание на символы в некоторых местах)
Это отрывок, в котором есть ошибка. Параметры процедуры "Слияние" заданы неправильно пишет компилятор. То есть(я отмечу красных подчёркиванием). То есть какие параметры я должен задавать в дальнейшем для этой процедуры.

Procedure Sli9nie(var first,second,res: TArray; m,n,k,beg : integer);
var
i,j : integer;
begin
first[n+1] := abs(first[n] + abs(second[m]));
second[m+1] := first[n+1];
k := 0;
j := 1;
i := 1;
while k <= n+m do
if first[i] < second[j] then
begin
res[beg+k] := first[i];
i := i + 1;
k := k + 1;
end
else
begin
res[beg+k] := second[j];
j := j + 1;
k := k + 1;
end;
end;

Procedure Time_Test(a: TArray; N : integer);
var
i, gettickcount : integer;
begin
writeln('Ћ¦Ё¤*©вҐ...');
Time[1,1] := GetTickCount;
puzirek(N, WorkArr);
Time[1,2] := GetTickCount;
WorkArr := InArr;
Time[2,1] := GetTickCount;
mega_puzirek(N, WorkArr);
Time[2,2] := GetTickCount;
WorkArr := InArr;
Time[3,1] := GetTickCount;
sort_vklu4enie(WorkArr, N);
Time[3,2] := GetTickCount;
WorkArr := InArr;
Time[4,1] := GetTickCount;
sort_shella(WorkArr, N);
Time[4,2] := GetTickCount;
WorkArr := InArr;
Time[5,1] := GetTickCount;
sort_min(WorkArr, N);
Time[5,2] := GetTickCount;
WorkArr := InArr;
Time[6,1] := GetTickCount;
sli9nie(WorkArr, N);
Time[6,2] := GetTickCount;
for i := 1 to 6 do
writeln(MenuSort[i],'-',
Time[i,2]-Time[i,1], '¬б');
writeln('Ќ*¦¬ЁвҐ «оЎго Є«*ўЁиг');
readln;
end;

Procedure MenuTest;
var
i : integer;
begin
for i := 1 to MenuTestSize do
writeln(Menu[i]);
end;

begin
repeat
ShowMenu;
writeln('‚лЎЁаЁвҐ ¤Ґ©бвўЁҐ');
Read(Punkt);
case Punkt of
1: begin
writeln('Љ*Є бд®а¬Ёа®ў*вм? (1 - б«гз*©*®, 2 - ўагз*го)');
read(t);
if t = 1 then
begin
IsUnput := false;
begin
writeln('‚ўҐ¤ЁвҐ а*§¬Ґа*®бвм ¬*ббЁў*');
read(N);
for i := 1 to N do
begin
InArr[i] := random(100000)+1;
end;
WorkArr := InArr;
Writeln('‚뢥бвЁ ¬*ббЁў ** нЄа**? (1 - ¤*, 2 - *Ґв)');
read(punkt);
if punkt = 1 then
begin
for i := 1 to N do
writeln(InArr[i]);
end;
WorkArr := InArr;
IsUnput := true;
readln;
end;
end;
if t = 2 then
begin
IsUnput := false;
begin
writeln('‚ўҐ¤ЁвҐ а*§¬Ґа*®бвм ¬*ббЁў*');
read(N);
for i := 1 to N do
begin
writeln('‚ўҐ¤ЁвҐ н«Ґ¬Ґ*в ', i);
read(InArr[i]);
end;
WorkArr := InArr;
end;
IsUnput := true;
readln;
end;
end;
2: begin
repeat
if IsUnput = false then
begin
writeln('Њ*ббЁў *Ґ §*Ї®«*Ґ*!');
readln;
break;
end;
showMenuSort;
writeln('‚лЎЁаЁвҐ б®авЁа®ўЄг');
read(punkt);
case punkt of
1: begin
IsSort := false;
puzirek(N, WorkArr);
writeln('‚뢥бвЁ ®вб®авЁа®ў***л© ¬*ббЁў ** нЄа**?');
writeln('1 - ¤*, 2 - *Ґв');
read(punkt);
if punkt = 1 then
for i := 1 to N do
begin
writeln(WorkArr[i]);
end;
IsSort := true;
break;
end;
2: begin
IsSort := false;
mega_puzirek(N, WorkArr);
writeln('‚뢥бвЁ ®вб®авЁа®ў***л© ¬*ббЁў ** нЄа**?');
writeln('1 - ¤*, 2 - *Ґв');
read(punkt);
if punkt = 1 then
for i := 1 to N do
begin
writeln(WorkArr[i]);
end;
IsSort := true;
break;
end;
3: begin
IsSort := false;
sort_vklu4enie(WorkArr, N);
writeln('‚뢥бвЁ ®вб®авЁа®ў***л© ¬*ббЁў ** нЄа**?');
writeln('1 - ¤*, 2 - *Ґв');
read(punkt);
if punkt = 1 then
for i := 1 to N do
begin
writeln(WorkArr[i]);
end;
IsSort := true;
break;
end;
4: begin
IsSort := false;
sort_shella(WorkArr, N);
writeln('‚뢥бвЁ ®вб®авЁа®ў***л© ¬*ббЁў ** нЄа**?');
writeln('1 - ¤*, 2 - *Ґв');
read(punkt);
if punkt = 1 then
for i := 1 to N do
begin
writeln(WorkArr[i]);
end;
IsSort := true;
break;
end;
5: begin
IsSort := false;
sort_min(WorkArr, N);
writeln('‚뢥бвЁ ®вб®авЁа®ў***л© ¬*ббЁў ** нЄа**?');
writeln('1 - ¤*, 2 - *Ґв');
read(punkt);
if punkt = 1 then
for i := 1 to N do
begin
writeln(WorkArr[i]);
end;
IsSort := true;
break;
end;
6: begin
IsSort := false;
sli9nie(WorkArr, N);
writeln('‚뢥бвЁ ®вб®авЁа®ў***л© ¬*ббЁў ** нЄа**?');
writeln('1 - ¤*, 2 - *Ґв');
read(punkt);
if punkt = 1 then
for i := 1 to N do
begin
writeln(WorkArr[i]);
end;
IsSort := true;
break;
end;
until punkt := 0;
end;
3: begin
MenuTest;
writeln('‚лЎЁаЁвҐ ¤Ґ©бвўЁҐ');
read(punkt);
case punkt of
1: begin
if IsUnput = true then
begin
TimeTest(WorkArr, N);
readln;
end
else
begin
writeln('Њ*ббЁў *Ґ §*Ї®«*Ґ*!);
readln;
end;
end;
2: begin
writeln('‚ўҐ¤ЁвҐ а*§¬Ґа*®бвм ¬*ббЁў*');
readln(N);
for i := 1 to N do
begin
InArr[i] := random(100000)+1;
end;
WorkArr := InArr;
TimeTest(WorkArr, N);
end;
end;
end;
end;
until punkt := 4;
end.


end.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2010, 00:17
Ответы с готовыми решениями:

Разработать программу поиска и сортировки элементов массива на языке Паскаль.
Разработать алгоритм и программу поиска и сортировки элементов массива на языке...

Разработайте рекурсивную процедуру сортировки последовательности методом быстрой сортировки Хоара
Помогите!!!! Дана последовательность чисел a1, a2, ... , an. Разработайте...

Расставить элементы массива в порядке возрастания методом сортировки выбором и сортировки простыми вставками
Здрасьте еще раз!С прошедшим вас праздником! я глупая и бестолковая опять...

Сортировки
Реализовать три алгоритма внутренней сортировки 1.1 О(n) 1.2 O(n...

Сортировки
Сортировка массива различными способами { Описание всех алгоритмов можно...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2010, 00:17

Сортировки
Написать программу, реализующую сортировку массива заданными способами.Алгоритм...

Обменные сортировки
Задан массив AX (N). Добавить массив С(К). Выполнить обменную сортировку. В...

Внешние сортировки!!!
Помогите, пожалуйста!!! Очень срочно и очень нужно написать программу для...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru