Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 19.03.2016
Сообщений: 24
1

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

19.03.2016, 17:28. Просмотров 2176. Ответов 3
Метки нет (Все метки)

1. Определить время приземления самолета в часах X, минутах Y и секундах Z. Известно, что самолет вылетел в X0 часов, Y0 минут и Z0 секунд и находился в воздухе Q секунд. Учесть переход времени на другие сутки.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.03.2016, 17:28
Ответы с готовыми решениями:

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

По заданному времени взлета и длительности полета определить время посадки самолета
Здравствуйте. Получил в школе следующее задание. Самолёт вылетел в 23 часа (a=23) и 55 минут (b=55)...

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

Дан интервал времени в часах, минутах и секундах. Определить тот же интервал в секундах
Помогите с написанием кода Задача A. Часы Ограничение по времени: 1 сек Ограничение по...

3
Модератор
60609 / 45583 / 31471
Регистрация: 18.05.2008
Сообщений: 109,594
19.03.2016, 19:05 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var x0,y0,z0,q,x,y,z,s:integer;
begin
repeat
writeln('Введите показания часов часы, минуты и секунды:');
readln(x0,y0,z0);
until(x0 in [0..23])and(y0 in [0..59])and(z0 in [0..59]);
repeat
writeln('Введите добавленное время в секундах:');
readln(q);
until q>0;
s:=3600*x0+60*y0+z0+q;
z:=s mod 60;//секунды
y:=s div 60 mod 60;
x:=s div 3600 mod 24;
writeln('Время приземления:');
if x<10 then write('0',x,':') else write(x,':');
if y<10 then write('0',y,':')else write(y,':');
if z<10 then write('0',z) else write(z);
end.
1
0 / 0 / 0
Регистрация: 12.04.2014
Сообщений: 38
13.10.2016, 23:35 3
а как будет выглядеть код на Delphi и С++ этой же задачи?
0
Модератор
60609 / 45583 / 31471
Регистрация: 18.05.2008
Сообщений: 109,594
14.10.2016, 10:13 4
Делфи.
Delphi
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
uses DateUtils;
procedure TForm1.Button1Click(Sender: TObject);
var vv,vp:TTime;
    sc,k:integer;
begin
//установим формат времени
TimeSeparator:='.';
ShortTimeFormat:='h.mm.ss';
vv:=StrToTimeDef(Edit1.Text,0);//проверим ввод времени вылета
if vv=0 then
 begin
  showmessage('Неверно введено время вылета');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
Val(Edit2.Text,sc,k);//проверим правильность ввода секунд
if(k<>0)or(sc<0)then
 begin
  showmessage('Неверно введено количество секунд');
  Edit2.Clear;
  Edit2.SetFocus;
  exit
 end;
vp:=IncSecond(vv,sc);//вычислим новое время
Edit3.Text:=TimeToStr(vp);//выведем его строкой
end;
1
Вложения
Тип файла: rar Прибавить секунды к времени.rar (168.9 Кб, 2 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.10.2016, 10:13

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

Дано время N в секундах. Выразить это время в сутках, часах, минутах и секундах.
Дано время N в секундах. Выразить это время в сутках, часах, минутах и секундах. Можете помочь...

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

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

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


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

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

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