02.01.2011, 16:17 | #1 (permalink) |
Новичок
Регистрация: 27.12.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Сортировка одномерного массива
задача:Дан массив с (n) . Переписать в мас¬сив х (n) все ненулевые элементы массива Затем упорядочить методом «выбора и перестановки» по возрастанию но¬вый массив Вот моя версия, я хоть правильно думаю? program o;const n=10; var c,x:array[1..n] of Integer; i,l,j,min,n_min,t,buf:integer; begin randomize; for i:=1 to n do begin c[i]:=random(10); write(c[i]); end; for i:=1 to n do begin for j:=1 to n do if c[i]<>0 then x[j]:=c[i]; writeln(x[j]); end; min:=100; for j:=1 to n do begin if x[j]<min then begin min:=x[j]; n_min:=j; end; t:=x[n_min]; x[n_min]:=x[j]; x[j]:=t; for j:=1 to n do writeln('x=',x[j]); end; end. Спасибо) |
02.01.2011, 16:17 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
По этим ссылкам содержится нужная вам информация Сортировка по алфавиту Сортировка по алфавиту(помогите) Сортировка в Паскале Сортировка в Pascal Сортировка одномерного массива-метод выбора и перестановки |
02.01.2011, 16:50 | #2 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Программа может выглядеть вот так, использована сортировка выбором
Код:
const n=10; var c,x:array[1..n] of Integer; i,l,k,j:integer; begin randomize; for i:=1 to n do begin c[i]:=random(10); write(c[i],' '); end; writeln ('Исходный массив'); writeln; for i:=1 to n do begin if c[i]>0 then x[i]:=c[i]; write(x[i],' '); end; writeln ('Новый массив X'); writeln; writeln ('Отсортированный массив'); for i:=1 to n-1 do begin l:=i; for j:=i+1 to n do if x[j]<x[l] then l:=j; k:=x[i]; x[i]:=x[l]; x[l]:=k; end; for i:=1 to n do write (x[i],' ' ); readln end. |
03.01.2011, 13:17 | #3 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Не моё, конечно, собачье дело, но так, вскользь... Касательно формирования массива Х.
В варианте от Major_Pain: Цитата:
В варианте Shrek'а: Цитата:
Я уже давал полностью отлаженный вариант решения задачи: Сортировка одномерного массива-метод выбора и перестановки , но, поскольку это решение было проигнорировано и задача выложена повторно, я заключаю, что ко мне доверия нет. Ну ладно, как говорится, "насильно мил не будешь". Дело ваше. |
||
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|