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

Тема: Помогите составить программу поиска в одномерном массиве медианы и среднее арифметическое

  1. #1 Помогите составить программу поиска в одномерном массиве медианы и среднее арифметическое 
    Новичок
    Регистрация
    16.05.2011
    Сообщений
    4
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Здравствуйте, помогите пожалуйста с одномерным массивом.
    Задание: Дан одномерный массив (60 чисел). Найти медиану для положительных и среднее арифметическое для отрицательных элементов массива. Массив распечатать по строкам. Формат числа (±ццц.ц)
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Завтра напишу обязательно
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

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

    Ну а теперь программа, уж и не знаю может я сделал слишком сложно? Но по другому не знаю как. В кратце все выглядит так: первоначально я создаю 3 массива, в основной "massiv" заношу 60 случайных чисел (как сказано в задании), далее в цикле его читаю и записываю положительные числа в массив "mplus", отрицательные числа в массив "mminus", при этом для обоих массивов сохраняю количество отобранных элементов в переменных "iplus" "iminus", соответственно. После этого сортирую массив "mplus" и выбираю медиану (используя количество элементов), и наконец обрабатываю массив "mminus" и получаю среднее (используя количество элементов)!
    Код :
    DIM massiv(60)
    DIM mplus(60)
    DIM mminus(60)
    FOR i = 1 TO 60
        massiv(i) = FIX((RND * 100 - 50) * 10) / 10
        PRINT massiv(i),
    NEXT i
    iplus = 0
    iminus = 0
    FOR i = 1 TO 60
        IF massiv(i) >= 0 THEN
            iplus = iplus + 1
            mplus(iplus) = massiv(i)
        ELSE
            iminus = iminus + 1
            mminus(iminus) = massiv(i)
        END IF
    NEXT i
    DO
        izm = 0
        FOR i = 1 TO iplus - 1
            IF mplus(i) > mplus(i + 1) THEN
                temp = mplus(i)
                mplus(i) = mplus(i + 1)
                mplus(i + 1) = temp
                izm = izm + 1
            END IF
        NEXT i
    LOOP WHILE izm <> 0
    FOR i = 1 TO iplus
        REM     PRINT mplus(i),
    NEXT i
    PRINT ""
    PRINT "positiv"
    REM PRINT "kol-vo=", iplus
     
    IF iplus = FIX(iplus) THEN
        mediana = (mplus(iplus / 2) + mplus(iplus / 2 + 1)) / 2
    ELSE
        mediana = mplus(CINT(iplus / 2))
    END IF
    PRINT "mediana=", mediana
     
    PRINT ""
    PRINT "negativ"
    sum = 0
    FOR i = 1 TO iminus
        sum = sum + mminus(i)
        REM     PRINT mminus(i),
    NEXT i
    REM PRINT "summa=", sum
    REM PRINT "kol-vo=", iminus
    PRINT "srednee=", (sum / iminus)
    ДА! ЗАБЫЛ! Строки помеченные REM можно удалить.
    Последний раз редактировалось Dimon012; 17.05.2011 в 09:50.
    Ответить с цитированием  
     

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

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

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

Похожие темы

  1. Ответов: 8
    Последнее сообщение: 30.10.2011, 11:29
  2. Ответов: 19
    Последнее сообщение: 03.06.2011, 04:49
  3. Ответов: 4
    Последнее сообщение: 24.04.2011, 18:42
  4. Ответов: 4
    Последнее сообщение: 19.04.2011, 10:06
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •