Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
ghost96
0 / 0 / 0
Регистрация: 15.10.2015
Сообщений: 24
#1

Комбинированный тип данных: определить количество служащих, родившихся в заданном месяце - Free Pascal

21.05.2016, 22:29. Просмотров 183. Ответов 2
Метки нет (Все метки)

Организовать ввод, хранение в массиве, вывод на экран данных о служащих: фамилия, имя, отчество, дата рождения (число, месяц, год), образование. Вывести на экран данные о служащих, которые имеют высшее образование. По данным сведениям определить количество служащих, родившихся в данном месяце (вводится с клавиатуры).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.05.2016, 22:29
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Комбинированный тип данных: определить количество служащих, родившихся в заданном месяце (Free Pascal):

Количество дней в заданном месяце - Pascal
Надо составить программу, которая в зависимости от порядкового номера месяца(1,2,...12) выводит на экран количество дней в этом месяце....

Комбинированный тип данных - Pascal
Помогите с пакой задачей: напечатать фамилии и даты рождения студентов, не получивших ни одной оценки 3 за всё время обучения ...

Комбинированный тип данных - Pascal
Помогите пожалуйста с задачкой, очень вас прошу Составить программу назначения стипендии студентам по результатам сессии, используя...

Комбинированный тип данных... - Pascal
Известна зарплата каждого из 5 работников фирмы за каждый месяц первого квартала Организовать ввод информации по этой таблице...

Найти количество дней в заданном месяце - Free Pascal
program daysmonth; var days,month,flag:integer; begin write ('vvedite mesyac '); read (month); if (month)=1 or 3 or 8 or 10 ...

Комбинированный тип данных – записи - Pascal
Создать справочник «Хлебобулочный комбинат», содержащий информацию: предприятие, цех, наименование изделия, цена. Вывести в порядке...

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3642 / 2629 / 1797
Регистрация: 05.06.2014
Сообщений: 12,567
22.05.2016, 11:37 #2
Распечатать фамилии детей детского сада, которые родились в определённом месяце
0
ghost96
0 / 0 / 0
Регистрация: 15.10.2015
Сообщений: 24
22.05.2016, 21:09  [ТС] #3
помогите доделать что бы выводило еще образование
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
type d=record
 year,month,days:byte;
 fam:string[15];
 nam:string[10];
 ot:string[15];
 end;
var A:array[1..100] of d;
i,n,m:byte;
begin
write('Введите количество служащих: ');readln(n);
for i:=1 to n do
begin
writeln('Введите информацию о ',i,' служащем');
write('Фамилия ');readln(A[i].fam);
write('Имя');readln(A[i].nam);
write('Отчество');readln(A[i].ot);
write('День рождения ');readln(A[i].days);
write('Месяц рождения');readln(A[i].month);
write('Год рождения');readln(A[i].year);
end;
write('Введите месяц рождения для вывода списка: ');readln(m);
writeln('---------------------------------------------------');
writeln('Фамилия|Имя|Отчество|День рождения|Месяц рождения|Год');
writeln('---------------------------------------------------');
for i:=1 to n do
if A[i].month=m then writeln(A[i].fam:15,'|':1,A[i].nam:8,'|':1,A[i].ot:9,'|':1,A[i].days:5,'|':1,A[i].month:5,'|':1,A[i].year:9,'|':1);
readln;
end.
Добавлено через 5 часов 17 минут
А всё не надо допер своим тупым мозгом
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2016, 21:09
Привет! Вот еще темы с ответами:

Комбинированный тип данных (запись) - Pascal
Описать массив записей, который содержит информацию о нескольких деталях (наименование, масса, габаритные размеры: длина, ширина, высота;...

Обработка данных типа запись (комбинированный тип данных). - Pascal
Вывести ФИО и отметки по физике студентов, имеющих средний балл, больше 4,5. Помоги пожалуйста.... Заранее спасибо)))

Переделать под комбинированный тип данных - Pascal
Вот у меня есть задачка , найти периметр треугольника по координатам его вершин. Задачку решил вот так : program pr11; var...

Комбинированный тип (запись). Указатели и динамические структуры данных - Free Pascal
Помогите с задачей пожалуйста. Сведения о компьютерах содержат следующую информацию: марка компьютера, частота процессора, объем...


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

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

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