![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Tauka |
![]()
Сообщение
#1
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 28 Репутация: ![]() ![]() ![]() |
[tt] Есть файл в котором размещается последовательность чисел. Сформировать из этих чисел двухмерный массив-матрицу. [/tt] Если элементы итовой строки матрицы - возрастающая последовательность,то первый елемент каждой из таких строк записать в одномерный массив. Почему то не получается сделать это условие ??? -------------------- С уважением,
Таука. |
![]() ![]() |
Ivs |
![]()
Сообщение
#2
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 209 Репутация: ![]() ![]() ![]() |
Tauka, ты что эти задачи сама придумываешь, никакой конкретики, что? откуда? как?
Например из нечетного числа элементов у нас не получиться никакая матрица, тем более что эти числа можно записать в разные матрицы (я имею в виду по столбам и строкам), Цитата Причем здесь итоговая строка!!!!! Здесь имеется ввиду допустим мы сформировали массив a[n,m]!!! да, ух ты какой, а где ты эти M и N возмешь, сам может быть придумаешь................. Короче: Конкретное условие - конкретный ответ. а пока я только процедуру дам которая определяет является ли итовая строка возрастающей последовательностью, и в соответствии с этим формирует одномерный массив (New). Код Procedure CheckStr; Begin k := 1; for i := 1 to N do begin Check := TRUE; for j := 2 to M do begin if A[i,j] <= A[i,j-1] then begin Check := FALSE; Break; end; end; if Check then begin New[k] := A[i,1]; k := k + 1; end; end; End; -------------------- Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
|
![]() ![]() |
![]() |
Текстовая версия | 19.07.2025 15:41 |