Форум программистов [Powered by Invision Power Board]

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

Форум программистов > Центр помощи > [Pascal] Массивы, Сортировка

Автор: KoLobok 11.12.2006, 18:07

Народ помогите плиззззз... Три задачки smile

1. Дан одномерный числовой массив, упорядоченный по возрастанию размером N и число X. Вставить X в массив, чтобы он сохранил упорядоченность. Дополнительного массива не заводить.

2. Дан массив A[N]. Преобразовать массив A[N] по следующему правилу (воспользовавшись вспомогательным массивом) по следующему правилу: все отрицательные элементы массива A[N] перенести в его начало, а все остальные – в конец, сохраняя исходное взаимное расположение как среди отрицательных, так и среди остальных элементов.

3. Напишите программу сортировки элементов массива A[N] по возрастанию методом пузырька

M
alexeis1

Модератор: Пожалуйста, один топик - один вопрос.

Автор: Rodman 11.12.2006, 19:15

Цитата(KoLobok @ 11.12.2006, 17:07

)

. Напишите программу сортировки элементов массива A[N] по возрастанию методом пузырька

Код


for p:=1 to n do
    for k:=1 to n-j do
        if f[k,1]>f[k+1,1] then
            for l:=1 to n do 
              begin
                  f[k,l]:=f[k,l]+f[k+1,l]; {a=a+b}
                  f[k+1,l]:=f[k,l]-f[k+1,l]; {b=a}
                  f[k,l]:=f[k,l]-f[k+1,l]; {a=b}
               end;