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

Подсчитайте количество людей, которые увлекаются музыкой

12.03.2017, 12:48. Просмотров 207. Ответов 2
Метки нет (Все метки)

Пусть дан фрагмент программы
посчитайте количество людей которые увлекаются музыкой
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
type 
  Person = record
    Surname,
    Name, 
    Address, 
    City: string [20]; 
    Post_index: string [4]; 
    Telephone: string [12]: 
    case hobby: (Computer, Music) of 
    Computer: (type_computer: string [21]; Mbyte: byte); 
    Music: (Instrument: array[1..3] of string [10]); 
  end; 
  tList = array [1..20] of Person: 
  var 
  List: tList;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.03.2017, 12:48
Ответы с готовыми решениями:

В полученном числе подсчитайте количество цифр, которые больше пяти
1. Датчиком случайных чисел сгенерируйте натуральное число в интервале от 100...

Одномерный массив. Подсчитайте количество элементов одномерного массива, которые совпадают со своим номером и при этом кратны 3
Подсчитайте количество элементов одномерного массива, которые совпадают со...

Подсчитайте количество гласных букв
В тексте,состоящем из латинских букв и заканчивающемся точкой, подсчитайте...

Подсчитайте в строке количество иностранных слов
напишите программу обработки строки в соответствии с вариантом задания.ввод...

подсчитайте в строке количество иностранных слов
подсчитайте в строке количество иностранных слов Прекратите дублировать темы...

2
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3906 / 2563 / 2085
Регистрация: 22.11.2013
Сообщений: 7,174
12.03.2017, 14:52 2
Pascal
1
2
3
4
var i, n: Integer;
...
  for i:=Low(List) to High(List) do Inc(n,Ord(List[i].hobby=Music));
  WriteLn(n);
1
Mega212
0 / 0 / 0
Регистрация: 12.03.2017
Сообщений: 16
10.05.2017, 20:24  [ТС] 3
Можно поподробнее?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2017, 20:24

Подсчитайте количество запятых в заданном тексте
1. Подсчитайте количество запятых в заданном тексте.

Подсчитайте количество максимальных элементов списка
Подсчитайте количество максимальных элементов списка Добавлено через 12...

Во введенной строке подсчитайте количество определенных символов
Во введенной строке подсчитайте количество символов "*" и символов "!".


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

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

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