0 / 0 / 0
Регистрация: 01.10.2012
Сообщений: 26
1

Для оставшихся оценок вычислить среднее арифметическое и найти оценку спортсмена

05.11.2012, 16:17. Показов 919. Ответов 6
Метки нет (Все метки)

Дана задача: в соревнованиях по фигурному катанию N судей выставляют оценки. Из объявленных оценок в целях объективности удаляют самую высокую и самую низкую оценки. Для оставшихся оценок вычисляют среднее арифметическое. Найти оценку спортсмена.

Я так написала программу, но чет подсчитав, она неверно подсчитывает среднее арифметическое,то есть эту оценку

вот моя программа

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
INPUT n
RANDOMIZE TIMER
INPUT b,c
DIM a(n)
FOR i=1 TO n
a(i) = FIX(RND*(c-b)+b)
PRINT a(i)
NEXT i
q=1
w=1
e=0
FOR i=1 TO n
IF a(i) >= a(q) THEN
q=i
ELSE
IF a(i) <= a(w) THEN
w=i
END IF
END IF
e= e+ a(q) -a(w)
s=e / (n-2)
PRINT s
что нужно исправить в программе?
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.11.2012, 16:17
Ответы с готовыми решениями:

(Студент) найти наименьшее из трех заданных чисел. Студент получил оценку (от 2 до 5) найти среднее значение оценок
(Студент) найти наименьшее из трех заданных чисел. Студент получил оценку (от 2 до 5) найти...

Найти среднее арифметическое значение оценок в списке
Очень срочно, завтра сдать надо, а в прологе вообще не смыслю.... Суть задачи: В списке...

Найти среднее арифметическое всех отрицательных элементов массива, а из оставшихся сформировать новый массив
В массиве а1, а2, ..., а30 найти среднее арифметическое всех отрицательных элементов, а из...

Среднее арифметическое оценок
В колледже дали задание, цитирую полностью: Написать программу: Ввод оценок по 5-ти бальной...

6
791 / 386 / 259
Регистрация: 09.12.2011
Сообщений: 759
Записей в блоге: 29
05.11.2012, 17:49 2
Цитата Сообщение от Вита456 Посмотреть сообщение
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
FOR i=1 TO n
IF a(i) >= a(q) THEN
q=i
ELSE
IF a(i) <= a(w) THEN
w=i
END IF
END IF
Сюда добавьте e=e+1(лучше сразу после for i=1 to n), а то у Вас сумма равняется нулю.

Ну и здесь:
QBasic/QuickBASIC
1
e= e+ a(q) -a(w)
Должно быть -a(q).
Вроде всё.
0
Платежеспособный зверь
8750 / 4183 / 1606
Регистрация: 28.10.2009
Сообщений: 11,320
06.11.2012, 09:22 3
Как-то всё сложно и наворочено. Если не ошибаюсь, высший балл в фигурном катании 6.
А так нельзя?:
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
INPUT N
DIM a(N)
PRINT"ocenki"
FOR i=1 TO N
a(i)=INT(RND(7))
PRINT a(i);
s=s+a(i)
NEXT
max=a(1)
min=a(1)
FOR i=1 TO n
IF a(i)> max THEN max=a(i)
IF a(i)< min THEN min=a(i)
NEXT
rez=(s-max-min)/(N-2)
PRINT rez
1
0 / 0 / 0
Регистрация: 01.10.2012
Сообщений: 26
06.11.2012, 16:26  [ТС] 4
Цитата Сообщение от КиберПёс Посмотреть сообщение
Сюда добавьте e=e+1(лучше сразу после for i=1 to n), а то у Вас сумма равняется нулю.

Ну и здесь:
QBasic/QuickBASIC
1
e= e+ a(q) -a(w)
Должно быть -a(q).
Вроде всё.
КиберПес, если будет -a(q) , то будет оценка отрицательная, а разве так должно быть?

Добавлено через 6 минут

у вас программа вычисляет среднее арифметическое всех оценок,которые в массиве, а надо чтоб программа откинула самую высокую и самую низкую оценку и из оставшихся среднее арифметическое нашла.
0
Платежеспособный зверь
8750 / 4183 / 1606
Регистрация: 28.10.2009
Сообщений: 11,320
06.11.2012, 16:43 5
Моя программа вычисляет то, что надо. Проверьте вручную и убедитесь в этом, раз в программировании плохо понимаете
QBasic/QuickBASIC
1
rez=(s-max-min)/(N-2)
0
0 / 0 / 0
Регистрация: 01.10.2012
Сообщений: 26
06.11.2012, 17:24  [ТС] 6
a(i)=INT(RND(7))
а почему на 7 умножаете?
0
Платежеспособный зверь
8750 / 4183 / 1606
Регистрация: 28.10.2009
Сообщений: 11,320
06.11.2012, 18:35 7
Там по-русски написано: высший балл в фигурном катании - 6, функция int(rnd*7) выдаёт число в диапазоне 0-6
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.11.2012, 18:35

Вычислить общую сумму баллов, наихудшую и наилучшую оценку по списку оценок
Оператор цикла:for, while Известны оценки студента по 10 дисциплинам. Вычислить общую сумму...

Найти среднее арифметическое и среднее геометрическое трёх чисел, вычислить периметр и площадь 10-угольника
Нужно написать программы с помощью функций: 1)Найти среднее арифметическое и среднее...

Среднее арифметическое оценок всех учеников
Добрый вечер! Есть база данных куда помещаю с помощью assert'a учеников вида schoolboy...

Среднее арифметическое оценок без неудов
Программа принимает на вход строку из оценок (2,3,4 или 5) неизвестной длины. Вычислить средний...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.