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

Тема: Не получается программу написать

  1. #1 Не получается программу написать 
    Новичок
    Регистрация
    06.04.2013
    Сообщений
    6
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Не получается программу написать, не понимаю что, после чего должно идти,помогите пожалуйста с задачей :
    Дана квадратная матрица R(M,M). Составить одномерный массив из элементов на главной диагонали ,определить максимальный элемент среди элементов выше главной диагонали .
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Про такую матрицу было уже: [Ссылки могут видеть только зарегистрированные пользователи. ]
    Если есть конкретные вопросы задавайте.

    Примем, что делаем цикл
    Код :
    For i=1 to M
     
    next i
    цикл повторится m раз и внутри него i будет меняться 1,2,3...
    если внутри цикла поставить R(i,i), от будут выбраны значения: R(1,1),R(2,2),R(3,3)... Это Вам ничего не напоминает?
    Код :
    For i=1 to M
      K(i)=R(i,i)
    next i
    Последний раз редактировалось Dimon012; 06.04.2013 в 18:54.
    Ответить с цитированием  
     

  3. #3  
    Новичок
    Регистрация
    06.04.2013
    Сообщений
    6
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    А что насчет элементов выше диагонали ?
    Ответить с цитированием  
     

  4. #4  
    Разбирающийся Аватар для Stannum
    Регистрация
    26.03.2013
    Адрес
    Moscow
    Сообщений
    32
    Сказал(а) спасибо
    10
    Поблагодарили 1 раз в 1 сообщении
    Вроде как-то так

    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] m
    [Ссылки могут видеть только зарегистрированные пользователи. ] r(1 TO m, 1 TO m), k
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Dimension R:"
    [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    FOR i = 1 TO m
        FOR j = 1 TO m
            r(i, j) = [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ] * 100 - 50)
            [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ] " ####"; r(i, j);
        NEXT
        [Ссылки могут видеть только зарегистрированные пользователи. ]
    NEXT
    FOR i = 1 TO m
        k(i) = r(i, i)
    NEXT
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Dimension K:"
    FOR i = 1 TO m
        [Ссылки могут видеть только зарегистрированные пользователи. ] k(i);
    NEXT
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Elements upper K(i):"
    max = -1E10
    FOR i = 1 TO m
        FOR j = 1 TO m
            IF i < j THEN
                IF r(i, j) >= max THEN
                    max = r(i, j)
                    imax = i
                    jmax = j
                [Ссылки могут видеть только зарегистрированные пользователи. ] IF
            [Ссылки могут видеть только зарегистрированные пользователи. ] IF
        NEXT
    NEXT
    [Ссылки могут видеть только зарегистрированные пользователи. ] "max=", max;
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] "imax=", imax;
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] "jmax=", jmax;
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  5. #5  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Stannum великолепно, стильно написано!
    Ответить с цитированием  
     

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

    Stannum (07.04.2013)

  7. #6  
    Разбирающийся Аватар для Stannum
    Регистрация
    26.03.2013
    Адрес
    Moscow
    Сообщений
    32
    Сказал(а) спасибо
    10
    Поблагодарили 1 раз в 1 сообщении
    Ну, можно, конечно, и так, всё по-английски для красоты:
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] m
    [Ссылки могут видеть только зарегистрированные пользователи. ] R(1 TO m, 1 TO m), k
    [Ссылки могут видеть только зарегистрированные пользователи. ] " Matrix R dimension MxM:"
    [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    FOR i = 1 TO m
    FOR j = 1 TO m
    R(i, j) = [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ] * 100 - 50)
    [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ] " ###"; R(i, j);
    NEXT
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    NEXT
    [Ссылки могут видеть только зарегистрированные пользователи. ] " —-----------------"
    [Ссылки могут видеть только зарегистрированные пользователи. ] " Main diagonal:"
    FOR i = 1 TO m
    k(i) = R(i, i): [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ] " ###"; k(i);
    NEXT
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] " —-----------------"
    max = -1E10
    FOR i = 1 TO m
    FOR j = 1 TO m
    IF i < j THEN IF R(i, j) >= max THEN max = R(i, j): imax = i: jmax = j
    NEXT
    NEXT
    [Ссылки могут видеть только зарегистрированные пользователи. ] " Maximal element above the main diagonal: ", max;
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] " The maximum number of element in the line:", imax;
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] " The maximum number of element in the column:", jmax;
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  8. #7  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Можно и так, но отступы то зачем убирать? Этож основное в нашей жизни!
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Ответов: 1
    Последнее сообщение: 22.01.2013, 03:34
  2. помогите написать программу
    от Стамус в разделе QBasic
    Ответов: 5
    Последнее сообщение: 18.10.2012, 20:35
  3. Ответов: 2
    Последнее сообщение: 26.05.2011, 17:44
  4. Ответов: 3
    Последнее сообщение: 09.01.2011, 01:25
  5. Ответов: 3
    Последнее сообщение: 29.11.2010, 02:08
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •