Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
AndreykaD
0 / 0 / 2
Регистрация: 12.10.2017
Сообщений: 50
1

Определить в часах, минутах, секундах длину интервала времени, заданного отметками в часах, минутах и секундах

26.10.2017, 11:33. Просмотров 1269. Ответов 4
Метки нет (Все метки)

Друзья, добрый день.

Нужно составить программу: С клавиатуры вводится время начала эксперимента в часах, минутах и секундах, затем вводится время его окончания в часах, минутах и секундах. Программа определяет и выводит на печать, сколько часов минут и секунд продолжался эксперимент. Например, пусть время начала эксперимента 12 часов, 31 минута, 10 секунд, а время его окончания 13 часов 40 минут 3 секунды. Тогда программа должна вывести:

Эксперимент продолжался 0 ч. 8 мин. 53 сек.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.10.2017, 11:33
Ответы с готовыми решениями:

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

Определите время (в часах, минутах и секундах) прибытия автобуса в пункт
задача: автобус вышел из пункта А в пункт В в h1 часов m1 минут и s1 секунд и находился в пути h...

Определить время приземления самолета в часах, минутах и секундах по времени вылета и длительности полета
1. Определить время приземления самолета в часах X, минутах Y и секундах Z. Известно, что самолет...

Вывести данное значение длительности в часах, минутах и секундах
18. Дано натуральное число T, которое представляет длитель¬ность прошедшего времени в секундах....

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

4
Puporev
Модератор
57221 / 43670 / 30175
Регистрация: 18.05.2008
Сообщений: 104,115
26.10.2017, 11:53 2
Эксперимент проводится в пределах суток? Т.е.
0<=t1<t2<=24?

Добавлено через 1 минуту
Или начало может быть 21.00.00 а конец 05.00.00?
0
AndreykaD
0 / 0 / 2
Регистрация: 12.10.2017
Сообщений: 50
26.10.2017, 13:46  [ТС] 3
Добрый день.

Идеальным решение должно быть переходящим через 00/24.
а время его окончания 13 часов 40 минут 3 секунды
- тут ошибка. Должно быть 12 часов
0
Puporev
Модератор
57221 / 43670 / 30175
Регистрация: 18.05.2008
Сообщений: 104,115
26.10.2017, 14:32 4
Например так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var h1,m1,s1,h2,m2,s2,v1,v2,rs,h,m,s:integer;
begin
repeat
writeln('Введите время начала эксперимента, часы, минуты, секунды');
readln(h1,m1,s1);
until(h1 in [0..23])and(m1 in [0..59])and(s1 in [0..59]);
repeat
writeln('Введите время конца эксперимента, часы, минуты, секунды');
readln(h2,m2,s2);
until(h2 in [0..23])and(m2 in [0..59])and(s2 in [0..59]);
if h2<h1 then h2:=h2+24;//если второе время меньше
//переведем время в секунды
v1:=s1+m1*60+h1*3600;
v2:=s2+m2*60+h2*3600;
rs:=v2-v1;//разность
//вычислим время
h:=rs div 3600;
m:=rs div 60 mod 60;
s:=rs mod 60;
write(h,' чс. ',m,' мн. ',s,' ск.')
end.
1
AndreykaD
0 / 0 / 2
Регистрация: 12.10.2017
Сообщений: 50
26.10.2017, 14:56  [ТС] 5
У самого получилось так (в пределах одних суток):
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Program TIME;
Uses GraphABC;
Var
   BegH, BegMin, BegSec, EndH, EndMin, EndSec : Real;
   Hb, He, H, HMin, HSec : Real;
   
Begin
 
Writeln('Введите время начала эксперимента в часах, минутах и секундах:');
Writeln('Часовой формат суток = 24');
 
   Readln(BegH, BegMin, BegSec);
   
      BegMin:= BegMin / 60;
      BegSec:= BegSec / 3600;
       
 
        Hb:= BegH+BegMin+BegSec;
        
        {Writeln (Hb);}
 
        Writeln ('');
 
 
   
Writeln('Введите время окончания эксперимента в часах, минутах и секундах:');
Writeln('Часовой формат суток = 24');
 
   Readln(EndH, EndMin, EndSec);
  
 
 
      EndMin:= EndMin / 60; 
      EndSec:= EndSec / 3600;
 
        He:= EndH+EndMin+EndSec;
        
        {Writeln (He);}
        
        Writeln ('');
                
        H:= He - Hb;
        
        {Writeln (H);}
        
        HMin:= H * 60;
        HSec:= (HMin-Int(HMin)) * 60;
        
        
Writeln ('');
        
Writeln('Эксперимент продолжался: ', Int(H) :3,' часов', Int(HMin) :3, ' минут', Round(HSec) :5, ' секунд' );
 
End.
0
26.10.2017, 14:56
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.10.2017, 14:56

Функция, возвращающая время в часах и минутах на основе параметра - время в секундах
Создайте функцию, которая возвращает время в часах и минутах на основе параметра - время в секундах.

Написать программу, запрашивающую у тренера сборной колледжа по лыжам время в минутах и секундах
Тема: Ввод и отладка программ с использованием операторов выбора и условий. Задача№1: Написать...

Написать программу, которая запрашивает время в часах и минутах, после чего переводит в минуты затем в секунды и выводит
ПОМОГИТЕ нужно- Написать программу, которая запрашивает время в часах и минутах, после чего...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru