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

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

12.03.2017, 12:48. Просмотров 182. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Подсчитайте количество людей, которые увлекаются музыкой (Turbo Pascal):

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

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

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

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

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

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

2
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3755 / 2452 / 2034
Регистрация: 22.11.2013
Сообщений: 6,821
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 / 1
Регистрация: 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
Привет! Вот еще темы с решениями:

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

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

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

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


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

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

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