![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 | |
Регистрация: 21.11.2008
Сообщений: 5
|
![]()
накидайде пожалуйста рабочую программу,а то препод завалил работами меня
![]() задачка звучит так: Цитата:
![]() |
|
![]() |
![]() |
![]() |
#2 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
![]()
Банальная сортировка
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
![]() |
![]() |
![]() |
#3 |
Регистрация: 21.11.2008
Сообщений: 5
|
![]()
спасибки тебе сейчас постараюсь блок схемку сама нарисовать ! ты мастер ! :-*
|
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 24.10.2008
Сообщений: 32
|
![]()
зачем так долго?
___________________________________ ____________
ВОН ВЫГНАТЬ ПРОКЛЯТЫХ СПАММЕРОВ! ![]() |
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 24.10.2008
Сообщений: 32
|
![]()
program puzirok;
var a:array [1..100] of integer; n,i,k,w:integer; begin readln(n); for i:=1 to n do begin a[i]:=random(20);{заполняем массив случайными числами} write(a[i]); <<<<<вывод на экран первоначального массива write(' '); end; writeln; for w:=1 to n-1 do <<<<сотртировка методом пузырька for i:=1 to n-w do if a[i]>a[i+1] then begin k:=a[i+1]; a[i+1]:=a[i]; a[i]:=k; end; for i:=1 to n do <<<<вывод полученного массива begin write(a[i]); write(' '); end; writeln; end.
___________________________________ ____________
ВОН ВЫГНАТЬ ПРОКЛЯТЫХ СПАММЕРОВ! ![]() |
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 24.10.2008
Сообщений: 32
|
![]()
каждый челове должен уметь делать простую сортировку методом пузырька
___________________________________ ____________
ВОН ВЫГНАТЬ ПРОКЛЯТЫХ СПАММЕРОВ! ![]() |
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 24.10.2008
Сообщений: 32
|
![]()
вот те на будущие сам цикл сортировки
for w:=1 to n-1 do <<<<сотртировка методом пузырька for i:=1 to n-w do if a[i]>a[i+1] then begin k:=a[i+1]; a[i+1]:=a[i]; a[i]:=k; end;
___________________________________ ____________
ВОН ВЫГНАТЬ ПРОКЛЯТЫХ СПАММЕРОВ! ![]() |
![]() |
![]() |
![]() |
#8 | |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,591
|
![]() Цитата:
Код:
E-Mail: arigato.freelance@gmail.com
Последний раз редактировалось Arigato; 21.11.2008 в 20:22. |
|
![]() |
![]() |
![]() |
#9 | |
Регистрация: 21.11.2008
Сообщений: 5
|
![]()
alex_fcsm, Arigato спасибо и то и то подходит :-*
![]() - не хочется создавать мне новый топик,я напишу здесь. в общем задачка про работу с 2-х мерными массивами задали,как с этим работать я не совсем разобралась( задачка: Цитата:
![]() |
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задачка про массив - Из массива удалить четные элементы, стоящие после максимального | Crookers | Общие вопросы C/C++ | 4 | 23.09.2008 19:35 |
одномерный массив | ldx | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 06.06.2008 17:45 |
одномерный массив | fatdog | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 4 | 23.02.2008 10:05 |
Задачка на одномерный массив | RECREATOR | Помощь студентам | 1 | 18.12.2007 08:01 |
Массив Одномерный | flait111 | Помощь студентам | 3 | 15.12.2007 14:08 |