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

Тема: Определение среднее арифметических элементов матрицы

  1. #1 Определение среднее арифметических элементов матрицы 
    Новичок
    Регистрация
    17.02.2011
    Сообщений
    17
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Код :
    CLS
    PRINT TAB(30); "Определение среднее арифметических элементов матрицы,";
    PRINT TAB(30); "лежащих на пересечении строк,номера которых кратны R, ";
    PRINT TAB(30); "и столбцов, номера которых кратны S.";
    DIM a(10, 10) 'массив
    PRINT
    PRINT "Размерность массива:";
     
    DO
    f = 0
    INPUT "Введите высоту:"; nx
    IF nx <> INT(nx) OR nx <= 0 THEN PRINT "Высота должна быть целой и положительной"; : f = 1
    LOOP UNTIL f = 0
     
    DO
    f = 0
    INPUT "Введите высоту:"; ny
    IF ny <> INT(ny) OR ny <= 0 THEN PRINT "Длинна должна быть целой и положительной"; : f = 1
    LOOP UNTIL f = 0
     
     
    INPUT "Введите R:"; R
    INPUT "Введите S:"; S
    'считываем и выводим массив
    PRINT "Исходный массив:"
     
    FOR i = 1 TO nx
      FOR j = 1 TO ny
      INPUT a(i, j)
        NEXT j
    NEXT i
     
    FOR i = 1 TO nx
      FOR j = 1 TO ny
      INPUT a(i, j)
     PRINT TAB((j - 1) * 7); a(i, j);
      PRINT
    NEXT j
    NEXT i
    'вычисляем среднее арифметическое
    sa = 0
    ns = 0
    FOR i = 1 TO nx
      FOR j = 1 TO ny
        IF (i MOD R) = 0 AND (j MOD S) = 0 THEN
          sa = sa + a(i, j)
          ns = ns + 1
        END IF
      NEXT j
    NEXT i
    IF (ns > 0) THEN
      sa = sa / ns
    END IF
     
     
    PRINT
    PRINT "Среднее арифметическое элементов матрицы "
    PRINT "с пересечений строк кратных"; R; "и столбцов кратных"; S; "= "; sa

    С этим заданием вообще встрял.....
    Ответить с цитированием  
     

  2. #2  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Вот. Не стоит вводить числа R и S больше чем длина и ширина матрицы соответственно, т.к не найдутся числа, которые будут удовлетворять условию.
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Определение среднее арифметических элементов матрицы,"
    [Ссылки могут видеть только зарегистрированные пользователи. ] "лежащих на пересечении строк,номера которых кратны R, "
    [Ссылки могут видеть только зарегистрированные пользователи. ] "и столбцов, номера которых кратны S."
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Размерность массива:"
     
    DO
        [Ссылки могут видеть только зарегистрированные пользователи. ] "Введите высоту:", NX
        IF NX < 1 [Ссылки могут видеть только зарегистрированные пользователи. ] NX > 10 THEN [Ссылки могут видеть только зарегистрированные пользователи. ] "Высота должна быть в диапазоне [1..10]";
    LOOP WHILE NX < 1 [Ссылки могут видеть только зарегистрированные пользователи. ] NX > 10
     
    DO
        [Ссылки могут видеть только зарегистрированные пользователи. ] "Введите длину:", NY
        IF NY < 1 [Ссылки могут видеть только зарегистрированные пользователи. ] NY > 10 THEN [Ссылки могут видеть только зарегистрированные пользователи. ] "Длина должна быть в диапазоне [1..10]";
    LOOP WHILE NY < 1 [Ссылки могут видеть только зарегистрированные пользователи. ] NY > 10
    [Ссылки могут видеть только зарегистрированные пользователи. ] A(NX, NY) 'массив
     
    DO
        [Ссылки могут видеть только зарегистрированные пользователи. ] "Введите R:", R
    LOOP WHILE R <= 0
    DO
        [Ссылки могут видеть только зарегистрированные пользователи. ] "Введите S:", S
    LOOP WHILE S <= 0
     
    'считываем и выводим массив
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Исходный массив:"
    Sum = 0: Count = 0
    FOR I = 1 TO NX
        FOR J = 1 TO NY
            [Ссылки могут видеть только зарегистрированные пользователи. ] "A("; I; ","; J; ") = ";
            [Ссылки могут видеть только зарегистрированные пользователи. ] "", A(I, J)
            IF (I [Ссылки могут видеть только зарегистрированные пользователи. ] R = 0) [Ссылки могут видеть только зарегистрированные пользователи. ] (J [Ссылки могут видеть только зарегистрированные пользователи. ] S = 0) THEN
                Count = Count + 1
                Sum = Sum + A(I, J)
            [Ссылки могут видеть только зарегистрированные пользователи. ] IF
        NEXT J
    NEXT I
     
    IF Sum > 0 [Ссылки могут видеть только зарегистрированные пользователи. ] Count > 0 THEN
        SA = Sum / Count
        [Ссылки могут видеть только зарегистрированные пользователи. ] "Среднее арифметическое элементов матрицы "
        [Ссылки могут видеть только зарегистрированные пользователи. ] "с пересечений строк кратных"; R; "и столбцов кратных"; S; "="; SA
    ELSE
        [Ссылки могут видеть только зарегистрированные пользователи. ] "Элементов, обладающих необходимой кратностью не нашлось"
    [Ссылки могут видеть только зарегистрированные пользователи. ] IF
    Дружба-магия-радость!
    Ответить с цитированием  
     

  3. #3  
    Профи Аватар для Dispetcher14
    Регистрация
    12.12.2010
    Адрес
    Раменское
    Сообщений
    597
    Сказал(а) спасибо
    35
    Поблагодарили 68 раз(а) в 56 сообщениях
    Записей в блоге
    13
    Никогда не любил и не понимал матрицы.
    "Спокойно, Маша, я Дубровский" (с) Дубровский, "Дубровский".
    Ответить с цитированием  
     

  4. #4  
    Модератор Аватар для pingvin
    Регистрация
    11.02.2011
    Сообщений
    389
    Сказал(а) спасибо
    80
    Поблагодарили 75 раз(а) в 48 сообщениях
    А ведь они очень помогают при создании графических интерфейсов
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Определение моб. устройства
    от Ultra_Dragonoid в разделе PHP
    Ответов: 6
    Последнее сообщение: 17.01.2013, 22:54
  2. Определение цвета пикселя
    от Стас в разделе .NET
    Ответов: 0
    Последнее сообщение: 19.11.2012, 12:50
  3. Ответов: 0
    Последнее сообщение: 06.10.2012, 19:21
  4. Ответов: 1
    Последнее сообщение: 09.11.2011, 22:38
  5. Ответов: 3
    Последнее сообщение: 17.05.2011, 21:36
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •