1 / 1 / 0
Регистрация: 16.09.2016
Сообщений: 17
1

Ввести номер урока и вывести время его окончания

16.09.2016, 19:40. Показов 39085. Ответов 2
Метки нет (Все метки)

Занятия в школе начинаются в 8-30. Урок длится 45 минут, перерывы между
уроками – 10 минут. Ввести номер урока и вывести время его окончания.
Пример:
Введите номер урока: 6
13-50
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.09.2016, 19:40
Ответы с готовыми решениями:

По номеру урока определить время его окончания
Здравствуйте, видел подобную тему, однако меня интересует другое. Вот сама задача: В некоторой...

Ввести номер дня недели и вывести его название
Ввести номер дня недели. Вывести его название C++ VS p.s sps Добавлено через 1 час 38 минут...

Ввести номер трамвая. Вывести названия его конечных остановок.
Ввести номер трамвая. Вывести названия его конечных остановок.

Ввести номер автобуса, вывести количество остановок его маршрута
Ввести номер автобуса. Вывести количество остановок его маршрута.

2
Почетный модератор
64256 / 47556 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
16.09.2016, 19:59 2
Лучший ответ Сообщение было отмечено SooThSayer как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var n,du,dp,tn,tk,h,m:integer;
begin
writeln(' ');
repeat
write('Введите номер урока от 1 до 6 n=');
readln(n);
until n in [1..6];
tn:=480+30; //начало занятий
du:=45; //длина урока
dp:=10; //длина перерыва
if n=1 then tk:=tn+du //первый урок
else tk:=tn+du+(n-1)*(du+dp);//другие
h:=tk div 60;
m:=tk mod 60;
write(h,'-',m);
end.
1
Модератор
9361 / 4722 / 3174
Регистрация: 17.08.2012
Сообщений: 14,837
18.09.2016, 09:41 3
Можно упростить, начав отсчёт не с начала занятий, а на перемену раньше:
Pascal
1
2
3
4
5
6
7
8
9
var n, t: integer;
begin
  repeat
    write('Введите номер урока от 1 до 6 n = ');
    readln(n)
  until n in [1..6];
  t := 500 + 55 * (n - 1);
  write(t div 60, '-', t mod 60)
end.
Добавлено через 9 часов 15 минут
Нет, ночью как-то не учлось... Обе программы, и моя, и от Puporev, выдают время не совсем в общепринятой форме. Если количество минут менее 10, время принято писать с ведущим нулём в минутах. Подправил:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var n, t, m: integer;
begin
  repeat
    write('Введите номер урока от 1 до 6 n = ');
    readln(n)
  until n in [1..6];
  t := 500 + 55 * (n - 1);
  m := t mod 60;
  write(t div 60, '-');
  if m < 10 then write(0);
  write(m)
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.09.2016, 09:41
Помогаю со студенческими работами здесь

Ввести номер дня недели. Вывести его название, и количество пар в этот день
Ввести номер дня тижня. Вивести його назву і кількість пар (использовать switch case)

С клавиатуры ввести одномерный массив, вывести его на экран, найти номер минимального элемента
С клавиатуры ввести одномерный массив, вывести его на экран, найти номер минимального элемента.

Программа должна вывести вопрос и три варианта ответа. Пользователь должен выбрать правильный ответ и ввести его номер.
3) Написать программу проверки знания истории архитектуры. Программа должна вывести вопрос и три...

Как вывести время до окончания теста?
Помогите пожалуйста с созданием тестера.Возникло 2 проблемы: - не сохраняется отчество, а только...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru