Определить ближайшую (следующую) дату полнолуния или новолуния

@turbomx · Регистрация: 12.10.2020

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

Ввести число от 1 до 31. Определить ближайшую (следующую) дату полнолуния или новолуния (лунный месяц содержит 28 дней), если последнее полнолуние было 27 августа.

@mr-Crocodile · 19.10.2020, 14:47

Сообщение от turbomx

Ввести число от 1 до 31.

и что это число означает?
Дата? В октябре?

Сообщение от turbomx

Определить ближайшую (следующую) дату полнолуния или новолуния

и как связаны полнолуние и новолуние?

@turbomx · 19.10.2020, 14:55 **[ТС]**

Сообщение от mr-Crocodile

и как связаны полнолуние и новолуние?

Насчет связи полнолуния и новолуния я сам не понял, но думаю новолуние можно опустить, учитывая что просят одно или другое.

Сообщение от mr-Crocodile

и что это число означает?
Дата? В октябре?

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

@JuriiMW · 19.10.2020, 16:15

Функция moon_posit возвращает возраст луны от новолуния.

новолуние ≈ 0
0 < растущая луна < 0.5
полнолуние ≈ 0.5
0.5 < убывающая луна < 1

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
function moon_posit(y,m,d:Integer):Real;
begin
  var mm:=m+9;if mm>=12 then mm-=12;
  var jd:=floor(365.25*(y-floor((12-m)/10)+4712))+floor(30.6*mm+0.5)+d+59;
  if jd>2299160 then jd-=floor(floor(y-floor((12-m)/10)/100+48)*0.75)-38;
  Result := frac((jd-2451550.1)/29.530588853);
end;
 
begin
  var русский:=System.Globalization.CultureInfo.GetCultureInfo('ru-RU');
  var s:=ReadLnString;
  var dt:=System.DateTime.Parse(s,русский);
  $'{dt.ToString(''dd-MM-yyyy'')} - {moon_posit(dt.Year, dt.Month, dt.Day)}'.println;
end.

@turbomx · 19.10.2020, 18:21 **[ТС]**

А нельзя написать программу используя более простые операторы?

Добавлено через 5 минут
Через условные операторы.

@JuriiMW · 20.10.2020, 04:01

Сообщение от turbomx

А нельзя написать программу используя более простые операторы?

Можно.
Разрешаю!

Добавлено через 1 минуту

Сообщение от turbomx

Через условные операторы.

А здесь как раз через условные операторы.
Смотри строка 5.

Добавлено через 4 минуты
И эта программа не решает ваш вопрос.
Если бы вы её запустили и посмотрели, то поняли, что вам от неё нужна только функция!
А в функции все операторы типовые для большинства диалектов паскаля…

@turbomx · 20.10.2020, 09:15 **[ТС]**

Сообщение от JuriiMW

А здесь как раз через условные операторы.
Смотри строка 5.

Это я заметил, только имел ввиду используя только условные операторы.

Сообщение от JuriiMW

Если бы вы её запустили и посмотрели, то поняли, что вам от неё нужна только функция!

Программу я как раз-таки запустил.

@JuriiMW · 20.10.2020, 09:42

Ну и к чему тогда все эти придирки?
Сказал же:

Сообщение от JuriiMW

Можно.
Разрешаю!

@turbomx · 20.10.2020, 09:50 **[ТС]**

Сообщение от JuriiMW

Ну и к чему тогда все эти придирки?

Никаких придирок

Ну если бы я мог, поэтому тут вопрос и задал.

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в КА2. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа в КА2. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию. . .

@turbomx 0 / 0 / 0 Регистрация: 12.10.2020 Сообщений: 18

	Определить ближайшую (следующую) дату полнолуния или новолуния 19.10.2020, 14:27. Показов 2757. Ответов 8 Метки нет (Все метки) Ввести число от 1 до 31. Определить ближайшую (следующую) дату полнолуния или новолуния (лунный месяц содержит 28 дней), если последнее полнолуние было 27 августа. 0

@turbomx 0 / 0 / 0 Регистрация: 12.10.2020 Сообщений: 18
	19.10.2020, 18:21 [ТС]
	А нельзя написать программу используя более простые операторы? Добавлено через 5 минут Через условные операторы. 0