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

@katareva · Регистрация: 19.03.2016

Студворк — интернет-сервис помощи студентам

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

@Puporev · 19.03.2016, 19:05

Pascal

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.

@Udji · 13.10.2016, 23:35

а как будет выглядеть код на Delphi и С++ этой же задачи?

@Puporev · 14.10.2016, 10:13

Делфи.

Delphi

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;

@katareva 0 / 0 / 0 Регистрация: 19.03.2016 Сообщений: 24
		1
	Определить время приземления самолета в часах, минутах и секундах по времени вылета и длительности полета 19.03.2016, 17:28. Показов 4967. Ответов 3 Метки нет (Все метки) 1. Определить время приземления самолета в часах X, минутах Y и секундах Z. Известно, что самолет вылетел в X0 часов, Y0 минут и Z0 секунд и находился в воздухе Q секунд. Учесть переход времени на другие сутки. 0

@Udji 0 / 0 / 0 Регистрация: 12.04.2014 Сообщений: 40
	13.10.2016, 23:35	3
	а как будет выглядеть код на Delphi и С++ этой же задачи? 0

Опции темы

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

Решение