Помогите!!!
Задание: составить программу решения задачи.
Задача: Текущее показание электронных часов: m часов (0<=m<=23), n минут (0<= n<=59), k секунд (0<= k<= 59). Какое время будут показывать часы через p часов, q минут, r секунд?
|
|
|
|
Стучи, недорого.
64896*****
******@inbox.ru
|
|
|
|
Program Chasiki;
uses crt;
function Conv(x:byte): string; {функция преобразования чисел в строку(маска вывода)}
var s, t: string;
begin
str(x,t); {преобразуем число в строку}
if x=0 then s:='00' else {если это ноль}
if (x>0) and (x<=9) then s:='0'+t {если однозначное число} else s:=t; {двухзначное число}
conv:=s;
end;
var m, n, k: byte; {начальное время}
p, q, r: byte; {добавленное время}
i, j, e: byte; {результат}
m1, n1: byte; {добавление 1 к минутам и часам, если секунд или минут >60}
begin
clrscr;
writeln('Vvedite nachlnoe vremya:');
write('Chasy='); readln(m);
write('Minuty='); readln(n);
write('Secundy='); readln(k);
writeln('Vvedite pribavlennoe vremya:');
write('Chasy='); readln(p);
write('Minuty='); readln(q);
write('Secundy='); readln®;
e:=(k+r) mod 60;
m1:=(k+r) div 60;
j:=(n+q+m1) mod 60;
i:=(m+p+n1) mod 24;
clrscr;
writeln('Nachalnoe vremya');
writeln(Conv(m), ':',Conv(n), ':',Conv(k));
writeln('Vremya pribavlenia');
writeln(Conv(p), ':', Conv(q), ':', Conv®);
writeln('konechnoe vremya');
writeln(Conv(i), ':',Conv(j), ':',Conv(e));
readkey;
end. (НЕ ЗАБЫВАЕМ СТАВИТЬ "ПЛЮСИК")
Тот, кто смеется последним, просто не врубился сразу.)
|
|
|
|
