Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 10.12.2012
Сообщений: 28
1

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

19.12.2012, 12:05. Просмотров 838. Ответов 1
Метки нет (Все метки)

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

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

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

Сколько из учеников имеет рост больше 170 см
Известен рост 30 учеников школы. сколько из них имеет рост больше 170см? может ли сформироватса...

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

1
11 / 8 / 9
Регистрация: 05.11.2012
Сообщений: 65
19.12.2012, 15:59 2
Лучший ответ Сообщение было отмечено Bonanza-art как решение

Решение

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
type spisok=record
     all:string;
     rost:integer;
end;
const n=10;
var h, i, j, k, r:integer;
    s:string;
    a: array [1..n] of spisok;
begin
 {
  Тут должен быть ввод данных, но в условиях о вводе ничего не было сказано, поэтому вам придется добавить его самому :)
 }
 for i:=1 to n do begin
  for j:=1 to 3 do begin
   k:=pos(' ', a[i].all);
   delete(a[i].all, 1, k);
  end;
  k:=pos(' ', a[i].all);
  delete(a[i].all, k, length(a[i].all));
  val(a[i].all, a[i].rost, r);
 end;
 h:=0;
 for i:=1 to n do begin
  if a[i].rost>170 then h:=h+1;
 end;
 writeln(h);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.12.2012, 15:59

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

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

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

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

Известен рост 30 учеников школы, сколько из них имеет рост больше 170 см
Известен рост 30 учеников школы. Сколько из них имеет рост больше 170см? Можно ли сформировать...


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

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

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