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

Тема: Не получаются программки((

  1. #1 Не получаются программки(( 
    Новичок
    Регистрация
    01.04.2013
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    1. Дан массив R(N,M). Найти количество и сумму квадратов элементов R(I,J) > 3, количество и произведение элементов R(I, J) < 3, количество элементов R(I,J)=3.
    Вот сумма квадратов вообще тьма для меня. Ничего в них не понимаю.

    2. Дана квадратная матрица MxM.
    Найти произведение элементов больших 0. Составить вектор, составленный из средних арифметических значений каждой строки матрицы.
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Чтож тут понимать? Есть квадрат числа, это понятно? (если нет, квадрат числа это число умноженное само на себя a2=a*a или в записи басика a2=a^2)
    Далее сумма квадратов это "складывание" полученных квадратов чисел
    Ну и условие, которое у Вас и так написано!
    Только один момент, перебрать все элементы матрицы, ну это просто в двойном цикле.
    Код :
    n=3
    m=3
    dim R(n,m)
     
    sum=0
    sumN=0
    mul=1
    mulN=0
    for i=0 to n
      for j=0 to m
        if R(i,j)>3 then 
          sum=sum+R(i,j)^2
          sumN=sumN+1
        endif
        if R(i,j)<3 then 
           mul=mul*R(i,j)
           mulN=mulN+1
        end if
      next j
    next i
    Последний раз редактировалось Dimon012; 02.04.2013 в 04:40.
    Ответить с цитированием  
     

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

    Абадябер (02.04.2013)

  4. #3  
    Разбирающийся Аватар для Stannum
    Регистрация
    26.03.2013
    Адрес
    Moscow
    Сообщений
    32
    Сказал(а) спасибо
    10
    Поблагодарили 1 раз в 1 сообщении
    там же в условии еще элементы =3, как их найти, у меня такая же задача, от чего искать надо?
    Ответить с цитированием  
     

  5. #4  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Цитата Сообщение от Stannum Посмотреть сообщение
    там же в условии еще элементы =3, как их найти, у меня такая же задача, от чего искать надо?
    А головой подумать это "внапряг"?
    Ладно, не напрягайся, там приведены два условия if R(i,j)>3 then и if R(i,j)<3 then, если добавить еще одно условие if R(i,j)=3 then, то вопрос будет решен,

    Код :
    n=3
    m=3
    dim R(n,m)
     
    sum=0
    sumN=0
    mul=1
    mulN=0
    ravN=0
    for i=0 to n
      for j=0 to m
        if R(i,j)>3 then 
          sum=sum+R(i,j)^2
          sumN=sumN+1
        endif
        if R(i,j)<3 then 
           mul=mul*R(i,j)
           mulN=mulN+1
        end if
        if R(i,j)=3 then 
           ravN=ravN+1
        end if
      next j
    next i
    Вот где-то так. несколько вопросов: Я догадываюсь, что программы у Вас проверяют не запуская (на компе), или я не прав? Почему про вторую задачу не спрашиваешь, не нужна или решил сам написать лучше бы конечно самостоятельно, или пояснить чего?
    Последний раз редактировалось Dimon012; 03.04.2013 в 07:15.
    Ответить с цитированием  
     

  6. #5  
    Разбирающийся Аватар для Stannum
    Регистрация
    26.03.2013
    Адрес
    Moscow
    Сообщений
    32
    Сказал(а) спасибо
    10
    Поблагодарили 1 раз в 1 сообщении
    Цитата Сообщение от Dimon012 Посмотреть сообщение
    А головой подумать это "внапряг"?
    Ладно, не напрягайся, там приведены два условия if R(i,j)>3 then и if R(i,j)<3 then, если добавить еще одно условие if R(i,j)=3 then, то вопрос будет решен,

    Код :
    n=3
    m=3
    dim R(n,m)
     
    sum=0
    sumN=0
    mul=1
    mulN=0
    ravN=0
    for i=0 to n
      for j=0 to m
        if R(i,j)>3 then 
          sum=sum+R(i,j)^2
          sumN=sumN+1
        endif
        if R(i,j)<3 then 
           mul=mul*R(i,j)
           mulN=mulN+1
        end if
        if R(i,j)=3 then 
           ravN=ravN+1
        end if
      next j
    next i
    Вот где-то так. несколько вопросов: Я догадываюсь, что программы у Вас проверяют не запуская (на компе), или я не прав? Почему про вторую задачу не спрашиваешь, не нужна или решил сам написать лучше бы конечно самостоятельно, или пояснить чего?
    программы проверяют, запускаю их на макинтоше, про вторую хотел как раз-таки спросить, не получается найти произведение и среднее арифметическое, по строке не пойму как делать, ведь там, вроде один цикл пускать надо?!
    Ответить с цитированием  
     

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

    Код :
    dim R(m,m)
    dim V(m)
     
    mul=1
    for i=0 to m
      for j=0 to m
        if R(i,j)>0 then
          mul=mul*R(i,j)
        end if
        V(i)=V(i)+R(i,j)/3
      next j
    next i

    Даже не знаю, хотел вас помучить, заставить самостоятельно написать, но получилось написание программы...
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Ответов: 0
    Последнее сообщение: 10.01.2012, 19:18
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •