IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Не могу понять как создать массив.
сообщение
Сообщение #1


Гость






Дана задача.

Создать массив, что содержит номера рядов, упорядоваченных при повышении парных элементов в массиве К(9;9) целых чисел.

Вопрос.

Как это его так создать? не могу понять даже смысл.

Подскажите пожалуйста. Заранее спосибо.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 775
Пол: Мужской

Репутация: -  0  +


Ну, судя по всему, мы имеем 2х-мерный массив без разницы чем заполненный, но во-всяком случае уже "упорядоваченный" очень может быть вот такой: array[1..9,1..2] of TypeVariable;
Но при всем моем огромном желании, я не смог осознать, что такое:

Цитата
упорядоваченных при повышении парных элементов в массиве К(9;9) целых чисел. "


Условие в действительности так и звучит??!
Или может ошибся где в формулировке?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Переводил с Украинского, а написано так, "упорядкованих за зростанням парних елементів у масиві K(9,9) цілих чисел".

Я понял надо делать вроде так, сортировать не числа, а строки в которых содержутся парные числа и сортировать получается по возврастанию!

Эта моя первая прога, и как это т.е. сортировку составить я не знаю.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Профи
****

Группа: Пользователи
Сообщений: 775
Пол: Мужской

Репутация: -  0  +


Сортировка пузырьком в общем случае осуществляется так:

Код

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.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 21.09.2020 18:52
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name