Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/15: Рейтинг темы: голосов - 15, средняя оценка - 4.80
dan63
1 / 1 / 0
Регистрация: 09.10.2011
Сообщений: 6
1

Вывести людей, рожденных в день z месяца

15.10.2011, 23:07. Просмотров 3097. Ответов 1
Метки нет (Все метки)

Надо создать программу(осталось решить три пункта h,i,j и k ), если Дано:

Pascal
1
2
3
4
5
6
7
8
9
type Data = record
        Ziua: 1..31;
        Luna: 1..12;
        Anul: integer;  end;
Persoana = record
        NumePrenume: string;
        DataNasterii: Data;
        end;
ListaPersoane = array[1..50] of Persoana;
Пояснения:
ListaPersoane -список лиц
Persoana-человек
Datanasterii-дата рождения
Ziua-день
anul-год
NumePrenume-имя и фамилия
Dati datele persoanei - введите даты
Data nasterii -день рождения
Ziua cautata - день который ищем
Ну уже комментарии там для себя делал, думаю не надо переводить)

Сделать программу которая будет читать с клавиатуры данные n человек(n< или равно 50) и выводить на экран:
a. людей рожденных в день z месяца;
b. людей рожденных в месяц l года;
c. людей рожденных в год a;
d. Людей рожденных z.l.a числа;
e. Самый старый человек
f. Самый молодой
g. Возраст каждого человека в годах, месяцах, днях
h. Список людей которые имеют больше v лет
i. Список людей в алфавитном порядке
j. Список людей упорядоченный в соответствии с датой рождения
k. Список людей такого же возраста (рожденных в том же году)
Понимаю что много, но помогите если сможете).
Вот сколько я смог сделать, осталось решить h,i,j,k:...

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Program Persoane;
uses crt;
type Data = record
        Ziua: 1..31;
        Luna: 1..12;
        Anul: integer;
        end;
Persoana = record
        NumePrenume: string;
        DataNasterii: Data;
        end;
ListaPersoane = array[1..50] of Persoana;
var a:ListaPersoane; n,i,z,l,an: integer; max,min: persoana;
begin
 
{Introducerea datelor}
writeln('Dati numarul de persoane: ');  readln(n);
For i:=1 to n do
begin
writeln('Dati datele persoanei: ',i);
writeln('Numele si Prenumele: '); readln(a[i].NumePrenume);
Writeln('Data nasterii: '); readln(a[i].DataNasterii.ziua);
Writeln('Luna nasterii: '); readln(a[i].DataNasterii.luna);
Writeln('Anul nasterii: '); readln(a[i].DataNasterii.anul);
end;
 
{Punctul a}
writeln('Ziua cautata: '); readln(z);
For i:=1 to n do
if a[i].DataNasterii.ziua = z then writeln(a[i].NumePrenume);
 
{Punctul b}
writeln('Luna cautata: '); readln(l);
For i:=1 to n do
if a[i].DataNasterii.luna = l then writeln(a[i].NumePrenume);
 
{Punctul c}
writeln('Anul cautat: '); readln(an);
For i:=1 to n do
if a[i].DataNasterii.anul = an then writeln(a[i].NumePrenume);
 
{Punctul d}
writeln('Persoanele nascute pe data(prin spatiu): '); readln(z,l,an);
For i:=1 to n do
if (a[i].DataNasterii.ziua = z) and ( a[i].DataNasterii.luna = l) and
( a[i].DataNasterii.luna = l ) then writeln(a[i].NumePrenume);
{Punctul d}
 
{Punctul e }
min.DataNasterii.anul := MaxInt;
For i:=1 to n do
   if a[i].DataNasterii.anul < min.DataNasterii.anul then min:=a[i];
writeln('Samyy staryy 4elovek: ' ,min.NumePrenume);
 
{Punctul f }
max.DataNasterii.anul := 0;
For i:=1 to n do
   if a[i].DataNasterii.anul > max.DataNasterii.anul then max:=a[i];
writeln('Samyy molodoy 4elovek: ' ,max.NumePrenume);
 
{Puctul g}
For i:=1 to n do
begin
writeln('Vozvrast ',i);
writeln('Numele si Prenumele: ',a[i].NumePrenume);
Writeln('Data nasterii: ',a[i].DataNasterii.ziua);
Writeln('Luna nasterii: ',a[i].DataNasterii.luna);
Writeln('Anul nasterii: ',a[i].DataNasterii.anul);
end;
.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.10.2011, 23:07
Ответы с готовыми решениями:

По номеру месяца вывести название следующего за ним месяца
помогите пожалуйста написать программу, которая по номеру месяца выдает на¬звание следующего за ним...

выбрать все те месяца которые имеют 31 день
Есть программа.. Задача в том, чтобы выбрать все те месяца которые имеют 31 день. program ffd;...

По числу текущего месяца определить день недели
По числу текущего месяца определить день недели Составьте программу с использованием команды...

Определить день недели по введенному числу месяца
Прощу помощи у программистов ) Задача такая: Введите с клавиатуры число от 1 до 31 ( день...

Определить название месяца, на который приходится указанный день
Задан S - номер дня не высокосного года (1&lt; S &lt; 365). Определить название месяца и номер дня такого...

1
dan63
1 / 1 / 0
Регистрация: 09.10.2011
Сообщений: 6
17.10.2011, 00:52  [ТС] 2
Спасибо за помощь, решил Почти все(
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.10.2011, 00:52

Задаётся с клавиатуры день и месяц. Вывести день недели
Задаётся с клавиатуры день и месяц 2011 года. Необходимо вывести на экран, какой это день недели....

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

По заданному числу n от 1 до 365 определите, на какое число какого месяца приходится день невисокосного года с
В чем моя ошибка? Free Pascal По заданному числу n от 1 до 365 определите, на какое число какого...


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

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

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