Важная информация
Показано с 1 по 7 из 7

Тема: массив,матрица.помогите пожалуйста!

  1. #1  
    Новичок
    Регистрация
    12.01.2011
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    1)Дана матрица из 3 строк и 2 столбцов. Найти количество отрицательных элементов в матрице.
    2)Дан массив из 14 элементов. Найти сумму элементов равных по абсолютной величине 19.

    3)Выделить первое слово в заданном тексте.
    как мне сказали,нужно просто в любом тексте выделить.

    спасибо заранее)
    Ответить с цитированием  
     

  2. #2  
    Гуру Аватар для Konstantin Shcherba
    Регистрация
    08.11.2010
    Сообщений
    1,336
    Сказал(а) спасибо
    26
    Поблагодарили 139 раз(а) в 107 сообщениях
    Записей в блоге
    1
    Первая задачка:
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    N = 3
    M = 2
    [Ссылки могут видеть только зарегистрированные пользователи. ] A(N, M)
     
    ' Random DIM A value
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Matrica:"
    FOR I = 1 TO N
      FOR J = 1 TO M
        A(I, J) = 50 - [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ] * 100)
        [Ссылки могут видеть только зарегистрированные пользователи. ] A(I, J);
      NEXT J
      [Ссылки могут видеть только зарегистрированные пользователи. ]
    NEXT I
     
    X = 0
    FOR I = 1 TO N
      FOR J = 1 TO M
       IF A(I, J) < 0 THEN X = X + 1
      NEXT J
    NEXT I
     
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Otricatelnyh elementov"; X
    Ответить с цитированием  
     

  3. #3  
    Гуру Аватар для Konstantin Shcherba
    Регистрация
    08.11.2010
    Сообщений
    1,336
    Сказал(а) спасибо
    26
    Поблагодарили 139 раз(а) в 107 сообщениях
    Записей в блоге
    1
    2) Нужно найти ко-во элементов равных по модулю 19 или несколько элементов, сумма которых равна 19?
    3) Выделить каким образом - цветом?
    Ответить с цитированием  
     

  4. #4  
    Новичок
    Регистрация
    12.01.2011
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    3)не знаю.выделите цветом)
    а 2 не надо)
    а вот 1)
    у меня просто 3 варианта как её написать.а как лучше не знаю.
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    1 [Ссылки могут видеть только зарегистрированные пользователи. ] a(1 TO 3, 1 TO 2) [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
     [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
     FOR i = 1 TO 3
     FOR j = 1 TO 2
     a(i, j) = [Ссылки могут видеть только зарегистрированные пользователи. ] * 45 - 22
     [Ссылки могут видеть только зарегистрированные пользователи. ] a(i, j);
    IF a(i, j) < 0 THEN s = s + 1
     NEXT j
     NEXT i
     [Ссылки могут видеть только зарегистрированные пользователи. ] "s="; s
     [Ссылки могут видеть только зарегистрированные пользователи. ]

    и вот 2
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ] a(1 TO 2, 1 TO 3) [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], i [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], j [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], s [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    s=0
    FOR i=1 TO 2
    FOR j=1 TO 3
    [Ссылки могут видеть только зарегистрированные пользователи. ] a(i,j)
    NEXT j
    NEXT i
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    FOR i=1 TO 2
    FOR j=1 TO 3
    [Ссылки могут видеть только зарегистрированные пользователи. ] a(i,j)
    NEXT j
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    NEXT i
    FOR i=1 TO 2
    FOR j=1 TO 3
    IF a(i,j) < 0 THEN
    s=s+1
    [Ссылки могут видеть только зарегистрированные пользователи. ] IF
    NEXT j
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    NEXT i
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] s
    [Ссылки могут видеть только зарегистрированные пользователи. ]

    и Ваш 3
    какой лучше?
    Ответить с цитированием  
     

  5. #5  
    Гуру Аватар для Konstantin Shcherba
    Регистрация
    08.11.2010
    Сообщений
    1,336
    Сказал(а) спасибо
    26
    Поблагодарили 139 раз(а) в 107 сообщениях
    Записей в блоге
    1
    Варианты по сути почти не отличаются, выбирайте какой больше нравится. :)
    Ответить с цитированием  
     

  6. #6  
    Гуру Аватар для Konstantin Shcherba
    Регистрация
    08.11.2010
    Сообщений
    1,336
    Сказал(а) спасибо
    26
    Поблагодарили 139 раз(а) в 107 сообщениях
    Записей в блоге
    1
    3) Если под первым словом имелось в виду сочетание букв до первого пробела - то мой вариант такой:
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Vvedite text: ", T$
    COLOR 13
    FOR I = 1 TO [Ссылки могут видеть только зарегистрированные пользователи. ](T$)
      [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ](T$, I, 1);
      IF [Ссылки могут видеть только зарегистрированные пользователи. ](T$, I, 1) = " " THEN COLOR 7
    NEXT I
    Ответить с цитированием  
     

  7. #7  
    Новичок
    Регистрация
    12.01.2011
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    спасибо)очень помогли)
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. помогите пожалуйста
    от finer в разделе Turbo Pascal
    Ответов: 3
    Последнее сообщение: 14.06.2012, 16:10
  2. Помогите с программой пожалуйста
    от shemekeev в разделе Visual Basic
    Ответов: 3
    Последнее сообщение: 18.04.2012, 18:11
  3. матрица
    от Marina krasa в разделе Turbo Pascal
    Ответов: 2
    Последнее сообщение: 01.06.2011, 16:22
  4. Ответов: 11
    Последнее сообщение: 25.12.2010, 02:33
  5. Снова массив. помогите)
    от PreF1993 в разделе QBasic
    Ответов: 1
    Последнее сообщение: 08.12.2010, 22:11
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •