VPF::Сортировка - Форум программистов

TapoK

Дата 26.3.2007, 00:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 25.3.2007

Репутация: нет
Всего: нет

Паскаль видел 5 раз в глаза! smile

Сама задачя:
Вводим любую числовую последовательность.Отсортировать в порядке спадания методом шейкерной сортировки!!!
Кто может помогите плз smile

TapoK

Дата 26.3.2007, 19:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 25.3.2007

Репутация: нет
Всего: нет

Все не надо уже есть!!!!

Код

Program L3;
type Ar=array[0..100] of real;
var
   A:Ar;
   n,l,r,k,i:integer;
   b:real;
begin
     write('Vvedite n= ');
     readln(n);
for i:=1 to n do begin
    write('A[',i,']=');
    readln (A[i]);
end;
    l:=1;
    r:=n;
WHile l<r do begin
      For i:=L to (r-1) do begin
      if A[i]<A[i+1] then begin
      b:=A[i];
      A[i]:=A[i+1];
      A[i+1]:=b;
      k:=i;
      end;
       End;
r:=k;
    For i:=(r-1) downto l do begin
     if A[i]<A[i+1] then begin
      b:=A[i];
      A[i]:=A[i+1];
      A[i+1]:=b;
      k:=i;
      end;
     End;
l:=k+1;
ENd;
    for i:=1 to n do
    write(A[i]:4:0);
    writeln;
    readln;
END.

Может комуто пригодится...

Это сообщение отредактировал(а) volvo877 - 27.3.2007, 10:36

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »