Программирование алгоритмов итерационной циклической структуры.

[МакаРомка]

Программирование алгоритмов итерационной циклической структуры.

Я вас прошу мне помочь! Так как срочно надо! Заранее благодарен!

Ниже вложение! Так же если не сложно:

Сортировка массивов. Мне надо 2 сортировки в одной программе - Адресная сортировка и Сортировка Шелла.

[Poma][a]

Сортировка Шелла

Еще один Шелл

Адресная сортировка


Вот похожая задача
И вот её решение.. Доделайте (или хотя бы попытайтесь)

var
   n, i, t1, t : LongInt;
   r : Real;

begin
     ReadLn (n);

     r := 1;
     t := 3;
     t1 := -1;
     for i := 1 to n do begin
         r := r + t1 * 1 / t;
         t1 := t1* -1;
         Inc (t, 2)
     end;
     WriteLn (4 * r)
end.