Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

кто знает pascal abc помогите

тимур гумеров Знаток (344), на голосовании 12 лет назад
в паскале надо ввести програму на решение залачи . Электронные часы показывают m часов,n минут, k секунд . какое время они будут показывать через p часов , q минут , r секунд. за хороший ответ подарок
Голосование за лучший ответ
Саша Семёнов Профи (523) 12 лет назад
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
32
33
34
35
36
37
38
39
40
program chasj;
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 ch1,mn1,sc1:byte;{начальное время}
chd,mnd,scd:byte;{добавленное время}
chr,mnr,scr:byte;{результат}
mn,ch:byte;{добавление 1 к минутам и часам, если секунд или минут >60}
begin
clrscr;
writeln('Vvedite nachalnoe vremya:');
write(' Chasy=');readln(ch1);
write(' Minuty=');readln(mn1);
write(' Secundy=');readln(sc1);
writeln('Vvedite pribavlennoe vremya:');
write(' Chasy=');readln(chd);
write(' Minuty=');readln(mnd);
write(' Secundy=');readln(scd);
scr:=(sc1+scd) mod 60;
mn:=(sc1+scd)div 60;
mnr:=(mn1+mnd+mn) mod 60;
ch:=(mn1+mnd+mn) div 60;
chr:=(ch1+chd+ch) mod 24;
clrscr;
writeln('Nachalnoe vremya');
writeln(Conv(ch1),':',Conv(mn1),':',Conv(sc1));
writeln('vremy pribavlenia');
writeln(Conv(chd),':',Conv(mnd),':',Conv(scd));
writeln('konechnoe vremya');
writeln(Conv(chr),':',Conv(mnr),':',Conv(scr));
readkey;
end.
Похожие вопросы