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

Сколько студентов могут заниматься в баскетбольной секции

16.04.2010, 16:46. Просмотров 1110. Ответов 2
Метки нет (Все метки)

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

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

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

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

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

2
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,187
16.04.2010, 17:07 2
Лучший ответ Сообщение было отмечено makakas2ruls как решение

Решение

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
uses crt;
const n=10;
type a=record
f: string;
n: string;
o: string;
r: word;
v: byte;
end;
var b: array[1..n] of a; i,l,k,m: byte; sr: real; max,min: word;
begin
m:=0;
clrscr;
For i:=1 to n do
begin
write('введите фамилию ',i,'-ого ученика: ');
read(b[i].f);
write('его имя: ');
read(b[i].n);
write('его отчество: ');
read(b[i].o);
write('рост: ');
read(b[i].r);
write('вес: ');
read(b[i].v);
writeln(^j);
end;
for i:=1 to n do
sr:=sr+b[i].r;
sr:=sr/n;
writeln('средний рост студентов = ',sr:4:2);
max:=b[1].r;
min:=b[1].r;
k:=1;
l:=1;
for i:=1 to n do
begin
if b[i].r>max then 
begin
max:=b[i].r;
k:=i;
end;
if b[i].r<min then 
begin
min:=b[i].r;
l:=i;
end;
end;
writeln('наибольший рост имеет ',k,'-ый студент: ',max,' см.');
writeln('наименьший рост имеет ',l,'-ый студент: ',min,' см.');
for i:=1 to n do
if b[i].r>170 then
inc(m);
writeln(m,' студентов могут заниматься баскетболом');
end.
The program was not compiled
1
0 / 0 / 0
Регистрация: 11.01.2010
Сообщений: 49
16.04.2010, 17:37  [ТС] 3
спасибо!!!!!!!!!!!!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.04.2010, 17:37

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

Записи. Определить сколько учеников могут заниматься в баскетбольной секции (рост > 170)
Определить сколько учеников могут заниматься в баскетбольной секции, если рост баскетболиста должен...

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

Подсчитать, сколько студентов знают язык Си, сколько – Turbo Pascal, сколько - оба языка
Сформировать список студентов группы со следующими сведениями: Фамилия, имя, отчество, знает ли...

Сколько способов посадить студентов так, чтобы ни одна четверка студентов, сидевшая за одним столом, не оказалась вместе
В аудитории 4n студентов сидит за n столами по четыре человека. Сколько способов пересадить...


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

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

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