Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ благодарнасть и просьба

Автор: trew 21.05.2008 21:11

Благодарю за то что вы мне помогли решить? Особенно благодарен:
mind abuse,
kvadrat,
ammaximus
И всех тех кто мне помогал и старался помощь. Но в тоже время есть у меня к вам просьба.
Мой одногруппник был на больничном и у него накопились долги помогите ему решить пару задач



Эскизы прикрепленных изображений
Прикрепленное изображение

Автор: trew 22.05.2008 0:07

пацаны помогите а blink.gif

Автор: Незнайка 013 22.05.2008 0:27

Цитата(trew @ 21.05.2008 21:07) *

пацаны помогите а blink.gif

к сожалению я не могу помочь тебе с сортировками поищи в нете алгоритмы сорптировок может чего и найдёте

Автор: trew 22.05.2008 0:28

напишите в лс поможет кто нибудь или нет очень надо через 5 дней экзамен

Автор: trew 22.05.2008 9:00

Program CountingSort;

Var A,B : array[1..1000] of byte;

C : array[byte] of integer;

N,i : integer;

Begin

{Определение размера массива A (N) и его заполнение}



{сортировка данных}

for i:=0 to 255 do

C[i]:=0;

for i:=1 to N do

C[A[i]]:=C[A[i]]+1;

for i:=1 to 255 do

C[i]:=C[i-1]+C[i];

for i:=N downto 1 do

begin

B[C[A[i]]]:=A[i];

C[A[i]]:=C[A[i]]-1; {здесь мы избегаем возможности записи двух одинаковых чисел в одну ячейку}

end;

{Вывод массива B}



End.

что дальше можно сделать

Автор: trew 22.05.2008 17:24

не ну хоть один может помочь плиз

Автор: mind abuse 23.05.2008 2:44

Так, во-первых, - какая ещё сортировка? Во-вторых - предлагаю использовать четыре разных по типу массива.

Ок, лс, так лс....