Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/34: Рейтинг темы: голосов - 34, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 16.02.2015
Сообщений: 2

Расчет возраста человека

10.01.2016, 11:39. Показов 7335. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дана дата рождения человека. Нужно вывести на экран возраст человека (точнее, количество полных лет)
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
10.01.2016, 11:39
Ответы с готовыми решениями:

Программа для вычисления возраста человека в днях, часах, минутах и секундах
Здравствуйте, помогите пожалуйста. Что нужно добавить, чтоб вычислял общее число дней, часов, минут и секунд? var y, m, d, ...

Расчет возраста человека
Как рассчитать возраст человека? Не тупо отнимая дату от даты? DateDiff не работает (Informix-sql)

Вычисление возраста сотрудника и расчёт среднего возраста
Народ ПОМОГИТЕ пожалуйста!!! В Access не силён (на уровне пользователя). Имеется база данных с полем "Дата рождения" . ...

6
Заблокирован
10.01.2016, 13:15
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses System;
 
begin
 
var s := ReadString('date: ');
var birth := DateTime.Parse(s);
var space := DateTime.Now - birth;
var age := DateTime.MinValue.Add(space).Year;
writeln(age);
 
end.
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,059
11.01.2016, 09:11
Freelancer2017, для проверки:

date: 1.1.2016
1
0
Заблокирован
11.01.2016, 10:36
JuriiMW, в большинстве случаев все нормально считает, а с этим не знаю что можно сделать, минимальное значение DateTime - 01.01.0001
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,059
11.01.2016, 10:40
Freelancer2017, а для даты: 12.12.2000 выдаёт 16 !?
0
Эксперт Pascal/Delphi
2388 / 1300 / 1492
Регистрация: 29.08.2014
Сообщений: 4,665
11.01.2016, 10:48
Цитата Сообщение от JuriiMW Посмотреть сообщение
Freelancer2017, для проверки:
date: 1.1.2016
1
должно быть 0, т.к. нужно вывести количество полных лет
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33379 / 21503 / 8236
Регистрация: 22.10.2011
Сообщений: 36,899
Записей в блоге: 11
12.01.2016, 19:08
Лучший ответ Сообщение было отмечено oleynik96 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
uses
  System;
 
begin
  var birth := DateTime.Parse(ReadString('Дата рождения: '));
  var now := DateTime.Today;
  var age := now.Year - birth.Year;
  if (birth > now.AddYears(-age)) then dec(age); 
  writeln(age);  
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
12.01.2016, 19:08
Помогаю со студенческими работами здесь

Определить диапазон возраста человека
написать программу, которая запрашивает у пользователя пол (1-мужской, 2-женский) и возраст человека. В зависимости от введенных данных,...

Программа для возраста человека
Известен год и номер месяця рождения человека определит возраст на матрт 2012

Вывод возраста человека в словесном виде
Дано натуральное число n, определяющее возраст человека в годах. Дать для этого числа наименования "год", "года",...

Вычисление возраста человека. Калькулятор дат
Сколько б я не гуглил, сколько б не искал, всё равно не смог найти какой же код нужно написать, чтобы создать программу по вычислению...

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


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru