Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 17.11.2021
Сообщений: 1

Определить, какой день недели будет через N дней

17.11.2021, 15:23. Показов 792. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
используя переменную типа type DayOfWeek=(Sunday, Monday, Tuesday, Wednesday, Friday, Saturday) и операцию Succ определить какой день недели будет через N дней если известен сегодняшний день недели
Как это сделать?
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
17.11.2021, 15:23
Ответы с готовыми решениями:

Известна дата и день недели некоторого события. Определить, на какой день недели приходится начало года
Известна дата и день недели некоторого события. Определить, на какой день недели приходится начало года.

по заданному количеству дней определить день недели
по заданному количеству дней определить день недели, если 1.01 - среда (Pascal и схему алгоритма)

Известна текущая дата и день недели. Определить дату следующего дня и день недели
Известна текущая дата и день недели. Определить дату следующего дня и день недели. Использовать два перечисляемых типа для названий...

1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7805 / 4627 / 2832
Регистрация: 22.11.2013
Сообщений: 13,144
Записей в блоге: 1
17.11.2021, 16:17
Четверга в этой неделе точно нет?

Добавлено через 9 минут
Цитата Сообщение от Dron0612 Посмотреть сообщение
Как это сделать?
Составитель задания предлагает добавлять по единичке:
Pascal Скопировано
1
2
3
4
  for n:=1 to n mod (Ord(High(d))-Ord(Low(d))+1) do
    if d=High(d) 
    then d:=Low(d)
    else d:=Succ(d);
или даже
Pascal Скопировано
1
2
3
4
  for n:=1 to n do
    if d=High(d) 
    then d:=Low(d)
    else d:=Succ(d);
Только смысла в этом ровно никакого, потому как:
Pascal Скопировано
1
  d:=DayOfWeek((Ord(d)+n) mod (Ord(High(d))-Ord(Low(d))+1));
сделает ровно то же самое намного эффективнее.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
17.11.2021, 16:17
Помогаю со студенческими работами здесь

Известна дата и день недели некоторого события. Определить на какой день недели приходится начало года
Решил сделать посчитав все дни недели от введённого до 1 января. const days: array of string =...

Известна дата и день недели некоторого события. Определить на какой день недели приходится начало года
Известна дата и день недели некоторого события. Определить на какой день недели приходится начало года. Использовать множества и не...

Определить, какой месяц будет через N дней от введенной даты
Требуется составить программу используя только If-Then(-Else) или Case of

Определить, на какой день недели приходится k-й день невисокосного года
Пусть k – целое от 1 до 365. Присвоить целой переменной n значение 1,2,…6 или 7 в зависимости от того, на какой день недели ( понедельник,...

Определить, какой день недели был чаще в году
Определить какой день недели был чаще в году, если это год невисокосный и начинается с четверга. Если таких дней несколько, то за...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Работа с объемным DOM в javascript
Htext 04.04.2025
Сегодня прочитал статью тут о расходах памяти в JS, ее утечках и т. п. И вот что вспомнил из своей недавней практики. Может, кому пригодится. Хотя, в той статье об этом тоже есть. Дело в том, что я. . .
Оптимизация производительности Node.js с помощью кластеризации
run.dev 04.04.2025
Масштабирование приложений для обработки тысяч и миллионов запросов — обыденная задача для многих команд. Node. js, благодаря своей асинхронной событийно-ориентированной архитектуре, стал популярной. . .
Управление зависимостями в Python с Poetry
py-thonny 04.04.2025
Стандартный инструмент для установки пакетов в Python - pip - прекрасно справляется с базовыми сценариями: установил пакет командой pip install и используешь его. Но что произойдёт, когда разные. . .
Мониторинг с Prometheus в PHP
Jason-Webb 04.04.2025
Prometheus выделяется среди других систем мониторинга своим подходом к сбору и хранению метрик. В отличие от New Relic, который использует агентный подход и отправляет данные во внешнее хранилище,. . .
Пакет Context в Golang: Управление потоками и ресурсами
golander 04.04.2025
Работа с горутинами в Go часто напоминает управление непослушными детьми - они разбегаются кто куда, делают что хотят и не всегда завершаются вовремя. К счастью, в Go 1. 7 появился пакет context,. . .
Контейнеризация React приложений с Docker
Reangularity 03.04.2025
Контейнеризация позволяет упаковать приложение со всеми его зависимостями в автономный контейнер, который можно запустить на любой платформе с установленным Docker. Это существенно упрощает процессы. . .
Свой попап в SwiftUI
mobDevWorks 03.04.2025
SwiftUI, как декларативный фреймворк от Apple, предоставляет множество инструментов для создания пользовательских интерфейсов. В нашем распоряжении есть такие API как alerts, popovers, action sheets. . .
Антипаттерны микросервисной архитектуры
ArchitectMsa 03.04.2025
Хорошо спроектированная микросервисная система может выдержать испытание временем, оставаясь гибкой, масштабируемой и устойчивой к большинству проблем. Такая архитектура обладает высоким уровнем. . .
std::mutex в C++: Советы и примеры использования
bytestream 03.04.2025
std::mutex - это механизм взаимного исключения, который гарантирует, что критический участок кода выполняется только одним потоком в каждый момент времени. Это простое, но могущественное средство. . .
Не удержался от оценки концепции двигателя Стирлинга.
Hrethgir 03.04.2025
Сколько не пытался - она выдавала правильные схемы, причём случайно рисовала горячие области в середине, холодные по краям, трубки с краёв в низ и магнит в соединяющей, но при этой выдавала описание. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер