Написание программы на Pascal для определения времени окончания урока
Привет! Я решил поделиться с тобой своим опытом написания программы на языке Pascal‚ которая поможет определить время окончания урока в школе. Данная программа будет вводить номер урока и выводить его время окончания.
Для начала‚ нам необходимо знать‚ когда начинаются уроки в школе. В задаче указано‚ что занятия начинаются в 8⁚30. Дальше‚ нужно учесть‚ что длительность каждого урока составляет 45 минут‚ а перерывы между уроками ⎻ 10 минут.
Для написания программы‚ мы будем использовать переменные для хранения значений времени и номера урока. Ниже приведен код программы⁚
program TimeOfLesson;
var
lessonNumber⁚ integer;
startTimeHours‚ startTimeMinutes⁚ integer;
endTimeHours‚ endTimeMinutes⁚ integer;
begin
startTimeHours ⁚ 8;
startTimeMinutes ⁚ 30;
write(‘Введите номер урока⁚ ‘);
readln(lessonNumber);
endTimeMinutes ⁚ (startTimeMinutes lessonNumber * 45 (lessonNumber ⎻ 1) * 10) mod 60;
endTimeHours ⁚ startTimeHours (startTimeMinutes lessonNumber * 45 (lessonNumber ⎻ 1) * 10) div 60;
writeln(‘Время окончания урока ‘‚ lessonNumber‚ ‘ ⁚ ‘‚ endTimeHours‚ ‘-‘‚ endTimeMinutes);
end.
В этом коде lessonNumber ー это переменная‚ которая будет хранить номер урока‚ а startTimeHours и startTimeMinutes ⎻ время начала урока.
Мы сначала указываем время начала уроков 8⁚30. Затем‚ мы запрашиваем у пользователя ввод номера урока‚ используя функцию readln.
После этого‚ мы вычисляем время окончания урока‚ используя формулы. Мы умножаем номер урока на 45 минут (длительность урока) и добавляем (номер урока ー 1) умноженный на 10 (длительность перерыва между уроками). Затем‚ суммируем значения времени начала уроков и найденное время окончания и делим на 60‚ чтобы получить количество часов и минут.
Наконец‚ мы выводим результат на экран с помощью функции writeln.
Надеюсь‚ эта программа была полезной для тебя! Сейчас ты можешь написать свою собственную программу на языке Pascal для определения времени окончания урока.