Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
макс789
0 / 0 / 1
Регистрация: 23.05.2016
Сообщений: 37
#1

Программа нахождения среднего роста школьников и рост самого высокого школьника - Turbo Pascal

29.05.2016, 14:46. Просмотров 402. Ответов 1
Метки нет (Все метки)

составте программу нахождения среднего роста школьников и рост самого высокого школьника, если заранее неизвестно сколько всего школьников придут на медосмотр
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2016, 14:46
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Программа нахождения среднего роста школьников и рост самого высокого школьника (Turbo Pascal):

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

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

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

Дан список и рост учеников класса. Определить рост самого высокого.
Дан список и рост учеников класса. определить по мере рост самого высокого.

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

Записи: вывести средний рост учеников, рост самого высокого
Программа должна выводить средний рост учеников , рост самого высокого и...

1
SW Developer
59 / 59 / 71
Регистрация: 10.01.2016
Сообщений: 311
Записей в блоге: 6
30.05.2016, 01:04 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses Crt;
var height, max, sum : real;
    i, j : byte;
 
BEGIN
     ClrScr;
     i:= 0;
     sum:= 0;
     max:= 0;
     Repeat
           Inc(i);
           Write('Введите рост ', i, ' школьника: ');
           ReadLn(height);
           sum:= (sum + height);
           if height>max then
           begin
                max:= height;
                j:= i;
           end;
     Until (height=0);
     if sum>0 then
     begin
          sum:= sum/(i-1);
          WriteLn('Средний рост = ', sum:4:2);
          WriteLn('Максимальный рост = ', max, ' у школьника № ', j);
     end
     else WriteLn('Неудачный медосмотр. :)');
END.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.05.2016, 01:04
Привет! Вот еще темы с решениями:

Определить рост самого высокого студента в группе
4. Имеются данные о росте студентов в группе: Р=(165,173,186,170,...,182);...

Определить Фамилию, Имя и рост самого высокого ученика
Добрый вечер, помогите решить задачу Дан список учеников класса и рост....

Составьте программу определяющую средний рост учащихся класса и самого высокого юношу.
составьте программу определяющую средний рост учащихся класса и самого высокого...

Массивы. Определить количество учеников, рост которых больше среднего роста по классу
Помогите пожалуйста.Не могу решить=( Рост 25 учеников класса представлен в...


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

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

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