Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите Плиззз!!!!!! (Спасибки!!)
Помогите Плиззз!!!!!!
Помогите!!!
Задание: составить программу решения задачи.
Задача: Текущее показание электронных часов: m часов (0<=m<=23), n минут (0<= n<=59), k секунд (0<= k<= 59). Какое время будут показывать часы через p часов, q минут, r секунд?
1 | Автор: G@JL4ONOK | 2010-11-01, 14:14   |  Репутация: [ + 0 ]
Стучи, недорого.
64896*****
******@inbox.ru
2 | Автор: domny | 2010-11-03, 14:54   |  Репутация: [ + -3 ]
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.

(НЕ ЗАБЫВАЕМ СТАВИТЬ "ПЛЮСИК")


Тот, кто смеется последним, просто не врубился сразу.)
3 | Автор: Ifrit | 2010-11-04, 18:43   |  Репутация: [ + 12 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите Плиззз!!!!!! (Спасибки!!)
Страница 1 из 11
Поиск: