Важная информация
Страница 1 из 2 12 ПоследняяПоследняя
Показано с 1 по 10 из 15

Тема: Помогите с массивом

  1. #1  
    Новичок
    Регистрация
    24.11.2010
    Сообщений
    20
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    пожалуйста
    Изображения
    • Тип файла: jpg 4-2.JPG (25.6 Кб, Просмотров: 4)
    Ответить с цитированием  
     

  2. #2  
    Гуру Аватар для Konstantin Shcherba
    Регистрация
    08.11.2010
    Сообщений
    1,336
    Сказал(а) спасибо
    26
    Поблагодарили 139 раз(а) в 107 сообщениях
    Записей в блоге
    1
    Пожалуйста!

    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    N = 10
    [Ссылки могут видеть только зарегистрированные пользователи. ] M1(N)
    [Ссылки могут видеть только зарегистрированные пользователи. ] M2(N)
    [Ссылки могут видеть только зарегистрированные пользователи. ] M3(N)
     
    ' Random DIM value
    FOR I = 1 TO N
    M1(I) = [Ссылки могут видеть только зарегистрированные пользователи. ](([Ссылки могут видеть только зарегистрированные пользователи. ] - [Ссылки могут видеть только зарегистрированные пользователи. ]) * 100)
    M2(I) = [Ссылки могут видеть только зарегистрированные пользователи. ](([Ссылки могут видеть только зарегистрированные пользователи. ] - [Ссылки могут видеть только зарегистрированные пользователи. ]) * 100)
    NEXT I
     
    ' M3
    FOR I = 1 TO N
    IF ([Ссылки могут видеть только зарегистрированные пользователи. ](M1(I)) > [Ссылки могут видеть только зарегистрированные пользователи. ](M2(I))) THEN
    Znak = [Ссылки могут видеть только зарегистрированные пользователи. ](M1(I))
    ELSE
    Znak = [Ссылки могут видеть только зарегистрированные пользователи. ](M2(I))
    [Ссылки могут видеть только зарегистрированные пользователи. ] IF
    M3(I) = Znak * [Ссылки могут видеть только зарегистрированные пользователи. ](M1(I) * M2(I))
    NEXT I
     
    ' Max value
    Imax = [Ссылки могут видеть только зарегистрированные пользователи. ](M3(1))
    Nmax = 1
    FOR I = 2 TO N
    IF Imax < [Ссылки могут видеть только зарегистрированные пользователи. ](M3(I)) THEN
    Imax = [Ссылки могут видеть только зарегистрированные пользователи. ](M3(I))
    Nmax = I
    [Ссылки могут видеть только зарегистрированные пользователи. ] IF
    NEXT I
     
    Plus = 0
    Minus = 0
    FOR I = (Nmax + 1) TO N
    Znak = [Ссылки могут видеть только зарегистрированные пользователи. ](M3(I))
    IF Znak >= 0 THEN
    Plus = Plus + 1
    ELSE
    Minus = Minus + [Ссылки могут видеть только зарегистрированные пользователи. ](M3(I))
    [Ссылки могут видеть только зарегистрированные пользователи. ] IF
    NEXT I
     
    ' Result
    [Ссылки могут видеть только зарегистрированные пользователи. ] "N p/p          M1            M2            M3"
    FOR I = 1 TO N
    [Ссылки могут видеть только зарегистрированные пользователи. ] I, M1(I), M2(I), M3(I)
    NEXT I
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Imax = ", Nmax, "Maxz=", M3(Nmax)
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Kolichestvo polozhit elementov =", Plus
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Summa otritsatelnyh elementov  =", Minus
    Ответить с цитированием  
     

  3. #3  
    Новичок
    Регистрация
    24.11.2010
    Сообщений
    20
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    qbasic, спасибо большое) если можно тогда еще вопросик. Дано два массива А и B, надо найти значение элементов массива C , как разность соответствующих элементов массивов А и B не превосходящих заданное число
    Ответить с цитированием  
     

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

  5. #5  
    Новичок
    Регистрация
    24.11.2010
    Сообщений
    20
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    qbasic, я так понимаю что да, если превышает, то в массив не надо
    Ответить с цитированием  
     

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

    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    N = 10
    [Ссылки могут видеть только зарегистрированные пользователи. ] A(N)
    [Ссылки могут видеть только зарегистрированные пользователи. ] B(N)
    [Ссылки могут видеть только зарегистрированные пользователи. ] C(N)
     
    ' Random DIM value
    FOR I = 1 TO N
    A(I) = [Ссылки могут видеть только зарегистрированные пользователи. ](([Ссылки могут видеть только зарегистрированные пользователи. ] - [Ссылки могут видеть только зарегистрированные пользователи. ]) * 100)
    B(I) = [Ссылки могут видеть только зарегистрированные пользователи. ](([Ссылки могут видеть только зарегистрированные пользователи. ] - [Ссылки могут видеть только зарегистрированные пользователи. ]) * 100)
    NEXT I
     
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Max value=", X
     
    ' DIM C
    FOR I = 1 TO N
    C(I) = A(I) - B(I)
    IF C(I) > X THEN
    C(I) = X
    [Ссылки могут видеть только зарегистрированные пользователи. ] IF
    [Ссылки могут видеть только зарегистрированные пользователи. ] C(I)
    NEXT I
    Ответить с цитированием  
     

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

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

  9. #9  
    Новичок
    Регистрация
    24.11.2010
    Сообщений
    20
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Можно еще раз попросить о помощи :( Нужно составить блок схему ,а у меня получается только первый маленький блок, а дальше не знаю как(( Помогите пожалуйста с ней
    Ответить с цитированием  
     

  10. #10  
    Гуру Аватар для Konstantin Shcherba
    Регистрация
    08.11.2010
    Сообщений
    1,336
    Сказал(а) спасибо
    26
    Поблагодарили 139 раз(а) в 107 сообщениях
    Записей в блоге
    1
    Никогда не занимался составлением блок-схем.

    Посмотрите вот здесь много примеров [Ссылки могут видеть только зарегистрированные пользователи. ]

    Должно помочь. :)
    Ответить с цитированием  
     

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

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

Похожие темы

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