Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
1 / 1 / 0
Регистрация: 13.04.2012
Сообщений: 52
1

Вычислить средний рост учеников, рост самого высокого и самого низкого ученика.

06.03.2013, 09:05. Просмотров 1505. Ответов 1
Метки нет (Все метки)

В таблице хранятся следующие данные о учениках: фамилия, имя, отчество, рост, масса. Вычислить средний рост учеников, рост самого высокого и самого низкого ученика. Сколько учеников могут заниматься в баскетбольной секции, если рост баскетболистов должен быть больше 170 см.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.03.2013, 09:05
Ответы с готовыми решениями:

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

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

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

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

1
91 / 91 / 99
Регистрация: 25.01.2013
Сообщений: 321
06.03.2013, 20:23 2
Лучший ответ Сообщение было отмечено Василий01 как решение

Решение

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
Uses crt;
const n=3;
Type zap=record
           familia:string[20];
           imya:string[20];
           otchestvo:string[20];
           rost:real;
           massa:real;
         end;
     mas=array[1..n] of zap;
Var x:zap; a:mas; kol,i:integer; sr:real;
Procedure Vvod(Var x:zap);
  Begin
    Write('familia:'); ReadLn(x.familia);
    Write('imya:'); ReadLn(x.imya);
    Write('otchestvo:'); ReadLn(x.otchestvo);
    Write('rost:'); ReadLn(x.rost);
    Write('massa:'); ReadLn(x.massa);
  End;
Procedure Print;
Var i:integer;
  Begin
    for i:=1 to n do
    WriteLn(a[i].familia:10,' ',a[i].imya:8,' ',a[i].otchestvo:12,' ',a[i].rost:4:2,' ',a[i].massa:4:2);
  End;
Procedure Sredni_rost(Var sr:real);
Var i:integer; sum:real;
  Begin
    sum:=0;
    for i:=1 to n do
     sum:=sum+a[i].rost;
    sr:=sum/n;
    WriteLn('sredni rost sr=',sr:4:2);
  End;
Procedure Vysoki(var a:mas);
Var i,k:integer; max:real;
  Begin
    max:=0;
    for i:=1 to n do
      if a[i].rost>max then
        Begin
          max:=a[i].rost;
          k:=i;
        End;
    WriteLn('samy vysoki uchenik');
    WriteLn(a[k].familia:10,a[k].imya:8,a[k].otchestvo:12);
  End;
Procedure Nizki(var a:mas);
  Var i,k:integer; min:real;
  Begin
    min:=300;
    for i:=1 to n do
      if a[i].rost<min then
        Begin
          min:=a[i].rost;
          k:=i;
        End;
    WriteLn('samy nizki uchenik');
    WriteLn(a[k].familia:10,a[k].imya:8,a[k].otchestvo:12);
  End;
Procedure basket(Var kol:integer; a:mas);
Var i:integer;
  Begin
    kol:=0;
    for i:=1 to n do
     if a[i].rost>170 then inc(kol);
    WriteLn('kolich v basket sekcia kol=',kol);
  End;
  Begin clrscr;
    for i:=1 to n do
     Begin
       Vvod(x);
       a[i]:=x;
       clrscr;
     End;
    Print;
    Sredni_rost(sr);
    Vysoki(a);
    Nizki(a);
    Basket(kol,a);
    ReadLn;
  End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.03.2013, 20:23

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

Вычислить рост самого длинного и самого мелкого ученика
Помогите решить задачу. В таблице хранятся данные о учениках. ФИО, рост, вес, вычислить рост самого...

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

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

Вывести на экран фамилию и имя самого высокого и самого низкого студентов
Имеются данные о студентах группы: фамилия, имя, рост в см. Составить программу выводящую на экран...


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

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

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