0 / 0 / 0
Регистрация: 03.10.2016
Сообщений: 8
1

Для N человек с заданной датой рождения вывести сообщение, в какой декаде родился человек

21.06.2017, 15:29. Показов 1818. Ответов 2
Метки нет (Все метки)

Создайте структуру Дата с элементами День, Месяц, Год. Для N человек с заданной датой рождения вывести сообщение, в какой декаде родился человек.
P.S.декада — Единица исчисления времени, равная 10 дням
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.06.2017, 15:29
Ответы с готовыми решениями:

Структура "Дата": для N человек с заданной датой рождения найти самого младшего
Создайте структуру Дата с элементами День, Месяц, Год. Для N человек с заданной датой рождения...

По году рождения определить, в год какого животного по восточному календарю родился человек
2.Составит программу определяющую по введенному году рождения в год какого животного по восточному...

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

Описать массив записей, содержащий анкетные данные (Ф.и. о., дату рождения, пол, место рождения) нескольких человек
Если можно, то с блок-схемой. Спасибо заранее) Описать массив записей, содержащий анкетные данные...

2
0 / 0 / 0
Регистрация: 21.06.2017
Сообщений: 2
21.06.2017, 15:34 2
Да тут все просто
Создаешь запись и считаешь сколько дней от начала года прошло. Затем делишь на 10 округляешь в большую сторону, выводишь полученое.
0
Модератор
9478 / 4802 / 3210
Регистрация: 17.08.2012
Сообщений: 15,036
21.06.2017, 22:21 3
Лучший ответ Сообщение было отмечено MedvedevaDY как решение

Решение

BogaNetOtvechay, даже проще. Декады исчисляется, вообще-то, с начала месяца, а не с начала года. Так что, делишь номер дня на 10 нацело и прибавляешь 1.
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
const m = 20;
type data = record day, month, year: integer end;
var person: array[1..20] of data;
    i, n: integer;
begin
  repeat
    write('n in [1..', m, '];  , n = ');
    readln(n)
  until n in [1..m];
  writeln('Enter dates:');
  for i := 1 to n do
    with person[i] do
      begin
        writeln(i, ':');
        write('day: ');
        readln(day);
        write('month: ');
        readln(month);
        write('year: ');
        readln(year)
      end;
  for i := 1 to n do
    with person[i] do
      begin
        write(i, ': ', day, '.');
        if month < 10 then write('0');
        writeln(month, '.', year, ' - was born in the decade ', day div 10 + 1)
      end;
  readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.06.2017, 22:21
Помогаю со студенческими работами здесь

создать запрос к БД кто родился в первой декаде месяца
Я пишу: procedure TForm1.Button4Click(Sender: TObject); begin With ADOQuery1 do Begin Close;...

Составить список учебной группы, содержащей N человек. для каждого ученика указать дату рождения, год поступл
Составить список учебной группы, содержащей N человек. для каждого ученика указать дату рождения,...

Составить список учебной группы, включающей в себя 15 человек. Для каждого учащегося указать фамилию, дату рождения, мес
Составить список учебной группы, включающей в себя 15 человек. Для каждого учащегося указать...

Составить список учебной группы, включающей в себя 15 человек. Для каждого учащегося указать фамилию, дату рождения, мес
Составить список учебной группы, включающей в себя 15 человек. Для каждого учащегося указать...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru