Нахождение количества дней до дня рождения

04.11.2018, 13:10. Показов 5866. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Не могу понять в чём ошибка.

Заданы день и месяц рождения ,а также текущий день, месяц и год в формате дд.мм.гг. Определить сколько дней осталось до дня рождения Составить программу.
Примечание: Високосный год делится на 400 или делится на 4 ,но не делится на 100
Ограничение: год от 1920 до 3000, месяц от 1 до 12, день от 1 до числа дней в месяце ,время 1 секунда.
Ввод: в первой строке находится разделенные точками день и месяц рождения ,во второй - разделенные точками текущий день, месяц и год.
Вывод: Вывести число дней, оставшихся до дня рождения.
Пример
Входные данные:
05.05
19.04.2018
Выходные данные:
16

Вот что получилось у меня:

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
program days_to_birthday;
var Q,Z,X,R,B,i,K,F,S,J:Integer ;
begin
WriteLn('введите число и месяц рождения');
read(Q,Z);
writeln('введите текущий день,месяц и год');
read(R,K,F); 
 if (1920<=F) and (F<=3000)and (1<=K) and(K<=12)
  then begin 
if K mod 2<>0 then J:=31;
if (4<=K) and (K<=11) and (F mod 2=0) then J:=30;
if (K=2) and (F mod 4=0) then J:=29; 
if (K=2) and (F mod 4<>0) then J:=28;
 end;
 if (1<=Z) and (Z<=12) then
  begin
if Z mod 2<>0 then S:=31;
if (4<=Z) and (Z<=11) and (F mod 2=0) then S:=30;
if (Z=2) and (F mod 4=0) then S:=29; 
if (Z=2) and (F mod 4<>0) then S:=28;
end;
  if (K-Z)=1 then X:=(S-Q)+(J-(J-R)) ;{кількість днів до дня народження}
 if (K-Z)>1 then 
 begin 
 X:= ((S-Q)+(J-(J-R))+B);
 B :=0;{кількість днів до дня народження між данними місями}
 for i :=(Z+1) to (K-1) do 
 if (4<=i) and (i<=11) and (F mod 2<>0) then B:=B+30;
if (i=2) and (i mod 4=0) then B:=B+29; 
if (i=2) and (i mod 4<>0) then B:=B+28;
end;
 WriteLn('Кількість днів до дня народження-',X);
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

04.11.2018, 13:10

Ответы с готовыми решениями:

Определить, сколько дней осталось до дня рождения
1) задача. Ввести дату рождения и текущую дату. Определить сколько дней осталось до др. 2) задача. Масив 10х10 . Заполнить...

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

проект+программа по определению количества дней, прошедших со дня рождения
Требуется выполнить: Разработать проект на языке программирования Delphi, который позволяет определить количество дней, прошедших со дня...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

04.11.2018, 13:10

Помогаю со студенческими работами здесь

Класс Персона, подсчет количества дней оставшихся до следующего дня рождения
Возникла проблема (труднорешаемая у меня). Суть задания: Создайте класс Persona, который содержит информацию о ФИО человека, дате...

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

Отсчёт дней до дня рождения
День добрый! Имеется база данных в которой есть фио сотрудников, дата рождения. Необходимо подсчитать сколько осталось дней до дня...

Вывод дней рождения за 3 дня
Я попробовала от сюда: 1.https://www.cyberforum.ru/delphi-database/thread1092957.html ...

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

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

Наверх