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

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

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

> использование массивов и файлов
Tauka
сообщение 2.07.2003 22:19
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 28

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


       
      [tt] Есть файл в котором размещается последовательность чисел.
        Сформировать из этих чисел двухмерный массив-матрицу. [/tt]

        Если элементы итовой строки матрицы - возрастающая последовательность,то первый елемент каждой из таких строк записать в одномерный массив.
Почему то не получается сделать это условие   ???
                                         


--------------------
С уважением,
Таука.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Ivs
сообщение 22.08.2003 20:55
Сообщение #2


Бывалый
***

Группа: Пользователи
Сообщений: 209

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


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

Сообщений в этой теме
Tauka   использование массивов и файлов   2.07.2003 22:19
Noname   Re: использование массивов и файлов   3.07.2003 10:46
Tauka   Re: использование массивов и файлов   3.07.2003 13:20
Noname   Re: использование массивов и файлов   3.07.2003 15:40
AlaRic   Re: использование массивов и файлов   3.07.2003 16:14
Noname   Re: использование массивов и файлов   3.07.2003 18:07
Alex   Re: использование массивов и файлов   4.07.2003 20:47
Noname   Re: использование массивов и файлов   5.07.2003 11:35
Tauka   Re: использование массивов и файлов   22.08.2003 6:38
Ivs   Re: использование массивов и файлов   22.08.2003 20:55
Tauka   Re: использование массивов и файлов   25.08.2003 8:05
zx1024   Re: использование массивов и файлов   28.08.2003 17:06
Ivs   Re: использование массивов и файлов   29.08.2003 15:14
zx1024   Re: использование массивов и файлов   31.08.2003 7:30
Ivs   Re: использование массивов и файлов   31.08.2003 10:16
Alex   Re: использование массивов и файлов   31.08.2003 13:57
Alex   Re: использование массивов и файлов   31.08.2003 13:59
Alex   Re: использование массивов и файлов   31.08.2003 13:59
Ivs   Re: использование массивов и файлов   31.08.2003 19:07
Ivs   Re: использование массивов и файлов   31.08.2003 19:11


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

 



- Текстовая версия 19.07.2025 15:41
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"