|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.12.2011, 17:38 | #1 |
Новичок
Джуниор
Регистрация: 19.12.2011
Сообщений: 3
|
Сортировка...
Помогите, пожалуйста! Очень нужна помощь по информатике.
одномерный массив, элементы которого задаются с помощью датчика случайных чисел от -50 до +50. 1) использовать сортировку простыми вставками. 2) упорядочить массив по возрастанию. Вставить число В так, чтобы упорядоченность не нарушилась. |
20.12.2011, 02:58 | #2 |
Пользователь
Регистрация: 15.01.2011
Сообщений: 24
|
может сортировка не такая как надо
uses crt;
const r = 10; var a:array [1..r+1] of integer; t,q,b,rab: integer; begin clrscr; randomize; for t:=1 to r do a[t]:=random(101)-50; write('Masiv: '); for t:=1 to r do write(a[t],' '); writeln; for t:=1 to r-1 do for q:=t to r do if(a[t]>a[q])then begin rab:=a[t]; a[t]:=a[q]; a[q]:=rab; end; writeln('po vozrostaniy: '); write('masiv: '); for t:=1 to r do write(a[t],' '); writeln; write('vvedite b: '); readln(b); for t:=1 to r do if(a[t]>=b) then break; rab:=a[t]; a[t]:=b; for q:=t+1 to r do begin b:= a[q]; a[q]:=rab; rab:=a[q+1] end; write('masiv: '); for t:=1 to r do write(a[t],' '); writeln; readln; end. |
20.12.2011, 03:02 | #3 |
Пользователь
Регистрация: 15.01.2011
Сообщений: 24
|
можно было использовать процедуру для отоброжения масива, просто уж часто повторяеться один код:
Код:
|
20.12.2011, 16:09 | #4 |
Новичок
Джуниор
Регистрация: 19.12.2011
Сообщений: 3
|
оо, спасибо большое :*
ты мне очень помог! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сортировка Шелла и Шейкер-сортировка | AleksandrMakarov | Паскаль, Turbo Pascal, PascalABC.NET | 11 | 11.03.2012 12:18 |
Быстрая сортировка(сортировка хаора) с++ | LustHunter | Помощь студентам | 3 | 07.10.2011 19:37 |
Сортировка массива методами предсортировки и слияния, и пирамидальная сортировка. | lenny_24 | Помощь студентам | 2 | 17.04.2011 18:57 |
паскаль,одномерный массив,сортировка вставка,сортировка убывания,от максимального до конца | немозг | Помощь студентам | 11 | 06.02.2010 21:57 |
Сортировка файлов в Explorer vs сортировка в Delphi | mutabor | Общие вопросы Delphi | 11 | 04.09.2009 14:32 |