0 / 0 / 0
Регистрация: 25.09.2016
Сообщений: 1
1

Программа для вычисления возраста человека в днях, часах, минутах и секундах

25.09.2016, 05:33. Показов 4896. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, помогите пожалуйста.
Что нужно добавить, чтоб вычислял общее число дней, часов, минут и секунд?


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
25
26
27
28
var
y, m, d,
yy, mm, dd, god,
vozrast: integer;
var
correct: boolean;
correct2: boolean;
correct3: boolean;
correct4: boolean;
begin
 
writeln ('Введите дату рождения: ДД ММ ГГГГ');
readln (d, m, y);
writeln ('Введите сегодняшнюю дату: ДД ММ ГГГГ');
readln (dd, mm, yy);
correct :=      ((y<=yy) and (m<mm));
correct2   :=      ((y<=yy) and (m=mm) and (d<=dd)) ;
correct3   :=      ((y<=yy) and (m=mm) and (d>dd)) ;
correct4   :=      ((y<=yy) and (m>mm))       ;
if correct or correct2 then
begin
god := (yy-y);
vozrast:= god;
writeln ('Ваш возвраст составил: ', vozrast);
end ;
if correct3 or correct4 then
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.09.2016, 05:33
Ответы с готовыми решениями:

По количеству секунд вывести время вывести в днях, часах, минутах, секундах отдельно
&quot;С начала суток прошло 100 000 секунд, сколько сейчас время? Время вывести в днях, часах, минутах,...

Определить в часах, минутах, секундах длину интервала времени, заданного отметками в часах, минутах и секундах
Друзья, добрый день. Нужно составить программу: С клавиатуры вводится время начала эксперимента...

Пользователь вводит время в Днях,часах,минутах и секундах,программа переводит все в секунды
Пользователь вводит время в Днях,часах,минутах и секундах,программа переводит все в секунды

Определить продолжительность события в часах, минутах и секундах, если событие задано в секундах
Задана продолжительность некоторого события в секундах целым числом. Считая, что в одном часе 60...

1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7655 / 4494 / 2811
Регистрация: 22.11.2013
Сообщений: 12,835
Записей в блоге: 1
25.09.2016, 12:42 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function Julian(y, m, d: Integer): Longint;
begin
  if m>2 then Dec(m,3)
  else begin
    Inc(m,9); Dec(y);
  end;
  Julian:=
    146097*(y div 100) div 4 +
    1461  *(y mod 100) div 4 +
    (153*m+2) div 5+d+1721119;
end;
var
  y,m,d: Integer;
  n: Longint;
begin
  Write('Дата рождения ДД ММ ГГГГ: '); ReadLn(d,m,y); n:=Julian(y,m,d);
  Write('Текущая дата  ДД ММ ГГГГ: '); ReadLn(d,m,y); n:=Julian(y,m,d)-n;
  WriteLn('Дней: ',n,' Часов: ',n*24,' Минут: ',n*24.0*60:0:0,' Секунд: ',n*24.0*3600:0:0);
end.
Осталось непонятным, зачем часы, минуты и секунды.
0
25.09.2016, 12:42
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.09.2016, 12:42
Помогаю со студенческими работами здесь

Дано время N в секундах. Выразить это время в сутках, часах, минутах и секундах.
Дано время N в секундах. Выразить это время в сутках, часах, минутах и секундах. Можете помочь...

Дан интервал времени в часах, минутах и секундах. Определить тот же интервал в секундах
Помогите с написанием кода Задача A. Часы Ограничение по времени: 1 сек Ограничение по...

Вывести введенное время в часах, минутах секундах
В программу вводится время. Программа выводит его в часах,минутах и секундах.

Описать секунды в часах, минутах и остаток в секундах
Пожалуйста проверьте код,я все правильно записал?и предлагайте свои варианты господа.Пример задачи:...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru