Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Mary55rus
0 / 0 / 0
Регистрация: 18.12.2010
Сообщений: 1
1

Процедуры

21.12.2010, 21:14. Просмотров 816. Ответов 0
Метки нет (Все метки)

Доброго времени суток,знающие люди, помогите пожалуйста с задачкой:

Описать процедуру TimeToHMS(T, H, M, S), определяющую по времени T (в секундах) содержащееся в нем количество часов H, минут M и секунд S (T — входной, H, M и S — выходные параметры целого типа). Используя эту процедуру, найти количество часов, минут и секунд для пяти данных отрезков времени T1, T2, …, T5.

Добавлено через 3 часа 47 минут
Проверьте пожалуйста =)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses CRT;
var
t,s,h,x,m,i: integer;
 
Procedure TimeToHMS(var T,H,M,S:integer);
var x:integer;
begin
H:=t div 3600;    // вычисляем кол-во часов в отрезке времени
x:=(t-(h*3600)); // х:= сколько секунд в отрезке без полных часов
M:=x div 60;       // вычисляем кол-во минут
S:=x-(60*m);     // вычисляем кол-во секунд
end;
 
begin
clrscr;
for i:=1 to 5 do   // по условию 5 отрезков времени, цикл от 1 до 5
 begin
writeln('Vvedite ',i,' otrezok vremeny');
readln(t);          //вводим отрезок времени в секундах
TimeToHMS(t,h,m,s);
writeln(h,' ch.  ',m,' min.  ',s,' sek.');
 end;
readln;
end.
Добавлено через 52 минуты
Да, интегер нужно заменить на LongInt =)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.12.2010, 21:14
Ответы с готовыми решениями:

Использование имени процедуры в качестве параметра другой процедуры
Help! Для массива С из n элементов составить процедуру, которая находит...

Использование имени процедуры в качестве параметра другой процедуры
Предложите, пожалуйста, пример решения след. задачи с использованием...

Процедуры
Дана лабораторная работа №1 : Условие:вычислить значение выражения:

Процедуры
Нужна помощь (: Вообщем даны 4 числа -5.8 ; 5.8 ; -3.2 ; 3.2 ...

Процедуры и функции. Процедуры с числовыми параметрами
Описать процедуру RectPS (x1, y1, x2, y2, P, S), вычисляющую периметр P и...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.12.2010, 21:14

Процедуры и функции: решить через процедуры S=a*x+b*y+c*z.
Пожалуста помогите решить через процедуры S=a*x+b*y+c*z.

процедуры
решите пожалуйста Точки А(5.I,2.9,-3.7),В(0.8,-1.5,3.9),С(2.2,0.8,5.4) и...

процедуры
найти самую маленькую цифру целового числа (использовать процедуру)


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru