Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 195025
19.03.2019, 01:00
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте! Прошу помощи в следующем вопросе:

Разработать алгоритм шейкерной сортировки. Отсортировать с помощью него массив(динамический массив)

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
21.03.2019, 13:07
общий
это ответ
Здравствуйте, luxv99!

Смотрите код:
[code lang=pascal]var
a:array of integer;
b,d,e:integer;
begin
repeat
write('Enter array size:');
readln(e);//end
until e in [3..20];
b:=0;//begin
d:=1;//data
SetLength(a,e);
dec(e);
for var c:=0 to e do
begin
a[c]:=random(100);
write(a[c]:3);
end;
writeln;
while b<e do
begin
for var c:=b to e-1 do
if a[c]<a[c+1]then
begin
d:=a[c];
a[c]:=a[c+1];
a[c+1]:=d;
end;
for var c:=e-1 downto b do
if a[c]<a[c+1]then
begin
d:=a[c];
a[c]:=a[c+1];
a[c+1]:=d;
end;
inc(b);
dec(e);
end;
for var c:=0 to a.Length-1 do
write(a[c]:3);
writeln;
end.[/code]
Удачи!
5
спасибо))
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа