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

Тема: Вывести на экран те у которых количество положительных элементов больше отрицательных

  1. #1 Вывести на экран те у которых количество положительных элементов больше отрицательных 
    Новичок
    Регистрация
    21.12.2011
    Сообщений
    8
    Сказал(а) спасибо
    1
    Поблагодарили 1 раз в 1 сообщении
    даны три целочисленные матрицы размером 9х4.Вывести на экран те из них,у которых количество положительных элементов больше отрицательных[/BASIC]
    Ответить с цитированием  
     

  2. #2  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Я совсем недавно решил эту задачу в группе IForum вконтакте: [Ссылки могут видеть только зарегистрированные пользователи. ]
    Программа составлена верно, зачем еще один раз постить это же самое?
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ] A(1 TO 9, 1 TO 4) [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], B(1 TO 9, 1 TO 4) [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] C(1 TO 9, 1 TO 4) [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], I [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], J [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] AC [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], BC [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], CC [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] ANC [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], BNC [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], CNC [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
     
    [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    FOR J = 1 TO 4
        FOR I = 1 TO 9
            A(I, J) = [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ] * 21) - 10
            IF A(I, J) < 0 THEN ANC = ANC + 1
            IF A(I, J) > 0 THEN AC = AC + 1
            B(I, J) = [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ] * 21) - 10
            IF B(I, J) < 0 THEN BNC = BNC + 1
            IF B(I, J) > 0 THEN BC = BC + 1
            C(I, J) = [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ] * 21) - 10
            IF C(I, J) < 0 THEN CNC = CNC + 1
            IF C(I, J) > 0 THEN CC = CC + 1
        NEXT I
    NEXT J
     
    IF AC > ANC THEN
        FOR J = 1 TO 4
            FOR I = 1 TO 9
                [Ссылки могут видеть только зарегистрированные пользователи. ] "A("; I; ","; J; ") ="; A(I, J)
            NEXT I
        NEXT J
    [Ссылки могут видеть только зарегистрированные пользователи. ] IF
    IF BC > BNC THEN
        FOR J = 1 TO 4
            FOR I = 1 TO 9
                [Ссылки могут видеть только зарегистрированные пользователи. ] "B("; I; ","; J; ") ="; B(I, J)
            NEXT I
        NEXT J
    [Ссылки могут видеть только зарегистрированные пользователи. ] IF
    IF CC > CNC THEN
        FOR J = 1 TO 4
            FOR I = 1 TO 9
                [Ссылки могут видеть только зарегистрированные пользователи. ] "C("; I; ","; J; ") ="; C(I, J)
            NEXT I
        NEXT J
    [Ссылки могут видеть только зарегистрированные пользователи. ] IF
    Дружба-магия-радость!
    Ответить с цитированием  
     

  3. Пользователь сказал cпасибо:

    shemekeev (22.12.2011)

  4. #3  
    Новичок
    Регистрация
    21.12.2011
    Сообщений
    8
    Сказал(а) спасибо
    1
    Поблагодарили 1 раз в 1 сообщении
    DIM A(1 TO 9, 1 TO 4) AS INTEGER, B(1 TO 9, 1 TO 4) AS INTEGER
    DIM C(1 TO 9, 1 TO 4) AS INTEGER, I AS INTEGER, J AS INTEGER
    DIM AC AS INTEGER, BC AS INTEGER, CC AS INTEGER
    DIM ANC AS INTEGER, BNC AS INTEGER, CNC AS INTEGER

    в этом месте программа выдает ошибку..помогите пожалуйста где ошибка??
    Ответить с цитированием  
     

  5. #4  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    У меня все работает, как в QBasic, так и в QB 4.5. Стал бы я выкладывать нерабочую программу?
    Проверьте, правильно ли вы перенесли программу в среду разработки. Обычно текст программы просто копируется, затем вставляется в текстовой файл, и сохраняется с расширением BAS
    Дружба-магия-радость!
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Ответов: 3
    Последнее сообщение: 08.04.2012, 19:25
  2. Ответов: 0
    Последнее сообщение: 21.12.2011, 17:10
  3. Ответов: 5
    Последнее сообщение: 15.12.2011, 22:25
  4. Ответов: 4
    Последнее сообщение: 01.04.2011, 00:58
  5. Ответов: 2
    Последнее сообщение: 08.02.2011, 22:10
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •