С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 12.12.2023
Сообщений: 2
1

Определить время, когда должен начаться перерыв

12.12.2023, 23:26. Показов 597. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
В школе, где учится Света, организуют научно-популярную лекцию для учащихся. Известно время начала и окончания лекции (часы и минуты). В течение лекции требуется сделать перерыв длительностью M минут так, чтобы длительность лекции до перерыва и длительность лекции после перерыва была бы одинаковой (если это сделать невозможно, то разница между первой частью лекции и второй частью лекции была бы минимальна и выражалась целым числом минут, при этом длительность первой части была бы больше, чем второй).

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

Помогите решить и найдите что я не так сделал,только начал заниматься кодированием,так что без негатива:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var a,b,c,d,ab,cd,g,h,m,s:integer;
begin
write('введите время начала лекции ');
read(a,b);
write('введите время конца лекции ');
read(c,d);
ab:=c-a;
cd:=d-b;
g:=ab*60;
h:=g+cd;
if (m>0) then
if h>s then
if h>m then
if s>m then
s:=h-m;
m:=h-s;
write('перерыв ',m,' минут ');
end.
Добавлено через 1 минуту
вот еще к этой задаче:
Формат ввода
Программа получает на вход 5 чисел:

A, B – время начала лекции (часы и минуты) и C, D – время окончания лекции (часы и минуты), M – длительность перерыва.

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

Формат вывода
Программа должна вывести два числа через пробел – время начала перерыва (часы и минуты)
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
12.12.2023, 23:26
Ответы с готовыми решениями:

Если сервер был Down в то время когда должен выпол. агент
Агент по расписаню. Если сервер был даун когда должен был выполнится агент по времени. Агент...

Как Telegram боту задать время, когда должен срабатывать определенный вывод?
Доброго времени суток! Я недавно начал создавать Telegram ботов. И пока не могу похвастаться...

Определить, когда должен быть звонок
Здравствуйте. На днях решал задачу под названием "Звонок". Собственно, вот условие задачи: ...

Определить по времени установки пирога в духовку время, когда будет подходящее время для его извлечения.
Пекарь ограничение по времени на тест1 секунда ограничение по памяти на тест256 мегабайт...

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

3
3048 / 1668 / 656
Регистрация: 19.03.2019
Сообщений: 5,373
13.12.2023, 09:13 2
Цитата Сообщение от levalekseevich Посмотреть сообщение
Программа получает на вход 5 чисел:
ты забыл прочитать из входного потока данных значение длительности перерыва m

Цитата Сообщение от levalekseevich Посмотреть сообщение
write('перерыв ',m,' минут ');
тебя не спрашивают, какой длительности перерыв, длительность перерыва задана изначально,
тебе нужно найти время (часы: минуты), когда его нужно начинать!
Цитата Сообщение от levalekseevich Посмотреть сообщение
Помогите Свете определить время, когда должен начаться перерыв.
Так что ты какую-то другую задачу решал.
1
0 / 0 / 0
Регистрация: 12.12.2023
Сообщений: 2
13.12.2023, 17:12  [ТС] 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var a,b,c,d,ab,cd,g,h,m,s,n:integer;v:real;
begin
write('введите время начала лекции ');
read(a,b);
write('введите время конца лекции ');
read(c,d);
ab:=c-a;
cd:=d-b;
g:=ab*60;
h:=g+cd;
if (m>0) then
if h>s then
if h>m then
if s>m then
s:=h-m;
m:=h-s;
n:=a;//с помощью if .... then доделывать?(типо если начало там 14:00 а конец 17:00)
v:=h mod 60;
write('время начала перерыва ',n,' ',v);
end.//работает пока что только если c=a и d не равно b

вот что можно добавить или вообще опять не правильно делаю?
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7797 / 4620 / 2831
Регистрация: 22.11.2013
Сообщений: 13,120
Записей в блоге: 1
13.12.2023, 17:49 4
Думаю, имелось в виду что-то наподобие:
Pascal
1
2
3
4
5
6
var a, b, c, d, m, p: Integer;
begin
  ReadLn(a,b,c,d,m);
  p:=(60*(c-a)+d-b-m) div 2;
  WriteLn(a+(b+p) div 60,' ',(b+p) mod 60);
end.
Добавлено через 3 минуты
возможно,
Pascal
4
  p:=(60*(c-a)+d-b-m+1) div 2;
1
13.12.2023, 17:49
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
13.12.2023, 17:49
Помогаю со студенческими работами здесь

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

Определить, когда должен быть подан звуковой сигнал
Таймер - это часы, которые умеют подавать звуковой сигнал по прошествии некоторого периода времени....

Определить время, когда пирог будет испечен
Помогите пожалуйста решить задачу. Заранее спасибо! Пекарь считает, что для получения...

Украли флешку. Возможно ли определить время, когда ее вытащили из компьютера?
Всем, Доброе время суток, ребята помогите, украли флешку с компа в универе>:o. Возможно ли...

Определить наименьшее время до момента когда совпадут часовая и минутная стрелки
Использование условного оператора if … / if … else при решении задач с условием Даны целые числа m...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD
InfoMaster 14.01.2025
Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .
Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD
InfoMaster 14.01.2025
В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
Как создать интернет-магазин на PHP и JavaScript
InfoMaster 14.01.2025
В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .
Как написать Тетрис на Ассемблере
InfoMaster 14.01.2025
Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .
Как создать игру "Танчики" на Unity3d и C#
InfoMaster 14.01.2025
Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .
Организую платный онлайн микро-курс по доработке Android-клиента Telegram
_Ivana 14.01.2025
Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin
InfoMaster 14.01.2025
Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .
Как создать приложение магазина для iOS/iPhone на Swift
InfoMaster 14.01.2025
Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .
Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь!
Hrethgir 13.01.2025
По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .
UserScript для подсветки кнопок языков программировани­­­­я в зависимости от текущего раздела
volvo 13.01.2025
В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .
Введение в модели и алгоритмы машинного обучения
InfoMaster 12.01.2025
Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .
Как на Python создать нейросеть для решения задач
InfoMaster 12.01.2025
В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru