Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
0 / 0 / 1
Регистрация: 05.02.2014
Сообщений: 57
1

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

09.07.2014, 11:06. Просмотров 2787. Ответов 9
Метки нет (Все метки)

Задана продолжительность некоторого события в секундах целым числом. Считая, что в одном часе 60 минут, а в минуте 60 секунд, определить продолжительность события в часах, минутах и секундах.
Входные данные:
Во входном потоке задано единственное натуральное число T (T < 10000000)

Выходные данные:
Вывести три натуральных числа через пробел: часов, минут, секунд

Пример входного файла (input.txt):
3666
Пример выходного файла (output.txt):
1 1 6
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.07.2014, 11:06
Ответы с готовыми решениями:

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

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

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

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

9
Модератор
Эксперт Pascal/Delphi
6262 / 4221 / 4609
Регистрация: 05.06.2014
Сообщений: 20,792
10.07.2014, 13:41 2
Дано время N в секундах. Выразить это время в сутках, часах, минутах и секундах.
0
0 / 0 / 1
Регистрация: 05.02.2014
Сообщений: 57
12.07.2014, 22:51  [ТС] 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
   n:longint;
hour,min,sec:longint;
begin
   read(n);
   sec:=n mod 60;
   n:=n div 60;
   min:=n mod 60;
   n:=n div 60;
   hour:=n mod 24;
   writeln(hour,' ',min,' ',sec);
end
0
Модератор
Эксперт Pascal/Delphi
6262 / 4221 / 4609
Регистрация: 05.06.2014
Сообщений: 20,792
12.07.2014, 22:56 4
Вам из файла читать нужно и в файл писать. Сами сможете?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  n: longint;
  hour, min, sec: longint;
 
begin
  readln(n);
  sec := n mod 60;
  n := n div 60;
  min := n mod 60;
  n := n div 60;
  hour := n mod 24;
  writeln(hour, ' ', min, ' ', sec);
end.
0
0 / 0 / 1
Регистрация: 05.02.2014
Сообщений: 57
12.07.2014, 23:04  [ТС] 5
нет
0
Модератор
Эксперт Pascal/Delphi
6262 / 4221 / 4609
Регистрация: 05.06.2014
Сообщений: 20,792
12.07.2014, 23:06 6
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
{Задана продолжительность некоторого события в секундах целым числом. Считая, что в одном часе 60 минут, а в минуте 60 секунд, определить продолжительность события в часах, минутах и секундах.
Входные данные:
Во входном потоке задано единственное натуральное число T (T < 10000000)
 
Выходные данные:
Вывести три натуральных числа через пробел: часов, минут, секунд
 
Пример входного файла (input.txt):
3666
Пример выходного файла (output.txt):
1 1 6
}
var
  n: longint;
  hour, min, sec: longint;
  f,g:textfile;
begin
  assignfile(f,'input.txt');
  assignfile(g,'output.txt');
  reset(f);
  rewrite(g);
  readln(f,n);
  sec := n mod 60;
  n := n div 60;
  min := n mod 60;
  n := n div 60;
  hour := n mod 24;
  writeln(g,hour, ' ', min, ' ', sec);
  closefile(f);
  closefile(g);
end.
0
0 / 0 / 1
Регистрация: 05.02.2014
Сообщений: 57
12.07.2014, 23:09  [ТС] 7
и снова нет(((((((((
0
Модератор
Эксперт Pascal/Delphi
6262 / 4221 / 4609
Регистрация: 05.06.2014
Сообщений: 20,792
12.07.2014, 23:10 8
Чего нет? Я же проверил. Файл input.txt создали?
Его можно в блокноте сделать. И записать в него одно число.
0
0 / 0 / 1
Регистрация: 05.02.2014
Сообщений: 57
12.07.2014, 23:13  [ТС] 9
прости но не работает твои труды не напрасны
0
Модератор
Эксперт Pascal/Delphi
6262 / 4221 / 4609
Регистрация: 05.06.2014
Сообщений: 20,792
12.07.2014, 23:15 10
Лучший ответ Сообщение было отмечено Вова1230 как решение

Решение

Все работает. Если у вас не получается создать в блокноте исходный файл и положить его в рабочую папку Pascal ABC, то извините. Разбирайтесь сами.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.07.2014, 23:15

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

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

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

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

Продолжительность промежутка времени (в часах минутах секундах)
всем привет,пытаюсь составить программу вычисляющую продолжительность промежутка времени .(в часах...


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

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

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