222222
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Pawo
Цитата: nikrzd
Цитата:| Пусть даны четыре целых числа (hour, min, sec, time). Первые три (hour, min, sec) – это время запуска ракеты в часах, минутах, секундах, четвёртое time определяет время полёта в секундах. Найдите и напечатайте время возращения ракеты на землю. |
Код: program example1;
const {здесь указать значения констант hour, min, sec, time}
hour=14;
min=45;
sec=20;
time=135;
var
newhour,newmin,newsec:integer;
begin
newhour:=hour;
newmin:=min;
newsec:=sec+time;
while newsec>=60 do
begin
newsec:=newsec-60;
newmin:=newmin+1;
end;
while newmin>=60 do
begin
newmin:=newmin-60;
newhour:=newhour+1;
end;
while newhour>=24 do
newhour:=newhour-24;
writeln(newhour,':',newmin,':',newsec);
readln;
end. |
|
Ты извращенец! Можно было вообще перебирать по одной секунде пока не совпадет. Это не рац.
Код:
var
hour, min, sec, time, Launch_Sec, Landing_Sec: Longint;
hour2, min2, sec2: Real;
begin
write('hour=');readln(hour);
write('min=');readln(min);
write('sec=');readln(sec);
write('time=');readln(time);
Launch_Sec:=3600*hour+60*min+sec;
Landing_Sec:=Launch_Sec+time;
hour2:=Landing_Sec/3600;
min2:=60*Frac(hour2);
sec2:=60*Frac(min2);
writeln(hour2:0:0,':',min2:0:0,':',sec2:0:0)
end.
|
|
. Но работает 
!!!! 
)))) это совсем прога для вывода результат на экран. 
. 