Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 06.10.2013
Сообщений: 32

Составить программу на вычисление среднего результата

16.10.2013, 23:50. Показов 1263. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
По итогам соревнований по метанию гранаты для N-участников. Вычислить средний результат для всех участников. Помогите пожалуйста! Буду очень благодарен!
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
16.10.2013, 23:50
Ответы с готовыми решениями:

Составить программу вычисления среднего арифметического отрицательных значений и среднего геометрического положительных значений функции
Составить программу вычисления среднего арифметического отрицательных значений и среднего геометрического положительных значений функции...

Составить программу вычисления среднего балла каждого учащегося, среднего балла в группе в целом
В группе 5 учеников , известны результаты сдачи экзаменов по трем предметам.Составьте программу вычисления среднего балла каждого...

Составить программу вычисления среднего балла каждого учащегося, среднего балла в классе в целом
в классе 8 учеников, известны результаты сдачи экзаменов по 3- м предметам. Составить программу вычисления среднего балла каждого...

4
Почетный модератор
 Аватар для ildwine
6201 / 2963 / 1300
Регистрация: 04.03.2013
Сообщений: 5,797
Записей в блоге: 1
17.10.2013, 07:45
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
type
  res = record
    name : string[50];
    score : byte
  end;
var
  a : array[1..100] of res;
  i, n, s : word;
  av : real;
begin
  s := 0;
  repeat
    writeln('введите количество участников n:');
    readln(n)
  until (n > 0) and (n <= 100);
  for i := 1 to n do
  begin
    write('введите ФИО ', i , ' участника: ');
    readln(a[i].name);
    write('введите результат ', i , ' участника: ');
    readln(a[i].score)
  end;
  writeln('таблица результатов:');
  for i := 1 to n do
  begin
    writeln(a[i].name:20, a[i].score:4);
    s := a[i].score + s;  
  end;
  av := s / n;
  writeln('средний результат: ', av:6:2, ' м');
  readln  
end.
1
0 / 0 / 0
Регистрация: 06.10.2013
Сообщений: 32
17.10.2013, 10:03  [ТС]
Спасибо вам большое!!!
0
0 / 0 / 0
Регистрация: 06.10.2013
Сообщений: 32
17.10.2013, 13:05  [ТС]
Помогите составить алгоритм решения для данной задачи!!! Пожалуйста!
0
Почетный модератор
 Аватар для ildwine
6201 / 2963 / 1300
Регистрация: 04.03.2013
Сообщений: 5,797
Записей в блоге: 1
17.10.2013, 13:23
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Вот блок-схема:
Миниатюры
Составить программу на вычисление среднего результата  
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
17.10.2013, 13:23
Помогаю со студенческими работами здесь

Я написал программу (вычисление среднего арифметического). Как можно ее улучшить?
Написал простенькую программу по вычислению среднего арифметического из суммы не более чем двадцати вещественных чисел. Как можно сделать,...

составить программу среднего арифметического
дан двумерный массив т*т.составить программу среднего арифметического : а)всех его элементов: б)элементов расположенных выше главной...

Написать программу, осуществляющую вычисление среднего балла каждого студента за все обучение
Условие: База данных студентов содержит ФИО и средние баллы за 5 сессий. Написать программу, осуществляющую вычисление среднего балла...

Составить циклический алгоритм и программу для вычисления результата по формуле
Составить циклический алгоритм и программу для вычисления результата по формуле. Для проверки программы задать X=0.5, N=20 Заранее спасибо)

Составить циклический алгоритм и программу для вычисления результата по формуле
Составить циклический алгоритм и программу для вычисления результата по формуле. Для проверки программы задать х=0.5, n=20. Составить...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru