![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
Shaman |
![]()
Сообщение
#1
|
Гость ![]() |
Дана задача.
Создать массив, что содержит номера рядов, упорядоваченных при повышении парных элементов в массиве К(9;9) целых чисел. Вопрос. Как это его так создать? не могу понять даже смысл. Подскажите пожалуйста. Заранее спосибо. |
GLuk |
![]()
Сообщение
#2
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 775 Пол: Мужской Репутация: ![]() ![]() ![]() |
Ну, судя по всему, мы имеем 2х-мерный массив без разницы чем заполненный, но во-всяком случае уже "упорядоваченный" очень может быть вот такой: array[1..9,1..2] of TypeVariable;
Но при всем моем огромном желании, я не смог осознать, что такое: Цитата упорядоваченных при повышении парных элементов в массиве К(9;9) целых чисел. " Условие в действительности так и звучит??! Или может ошибся где в формулировке? |
shaman |
![]()
Сообщение
#3
|
Гость ![]() |
Переводил с Украинского, а написано так, "упорядкованих за зростанням парних елементів у масиві K(9,9) цілих чисел".
Я понял надо делать вроде так, сортировать не числа, а строки в которых содержутся парные числа и сортировать получается по возврастанию! Эта моя первая прога, и как это т.е. сортировку составить я не знаю. |
GLuk |
![]()
Сообщение
#4
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 775 Пол: Мужской Репутация: ![]() ![]() ![]() |
Сортировка пузырьком в общем случае осуществляется так:
Код Program SortData_; Uses Crt; Const N = 10; Var X:array[1..N] of Word; i:Integer; Procedure SortData; {‘®авЁа®ўЄ ¬ ббЁў Ї® гЎлў Ёо} var b,t,j:Integer; Temp:Word; begin b:=N; While b<>0 do begin t:=0; For j:=1 to b-1 do {‡ ¬Ґпп § Є "<" ">" Їа®Ёб室Ёв б®авЁа®ўЄ Ї® ў®§а бв Ёо} If X[j]<X[j+1] then begin Temp:=X[j]; X[j]:=X[j+1]; X[j+1]:=Temp; t:=j; end; b:=t; end; end; Begin ClrScr; Randomize; For i:=1 to N do X[i]:=Random(4096); SortData; For i:=1 to N do WriteLn(X[i]); End. |
![]() ![]() |
![]() |
Текстовая версия | 11.02.2025 1:42 |