Разработать проект, запрашивающий дату рождения пользователя и рассчитывающий, в какой день им было прожито 5000 дней.

168

479

Посмотреть ответы 2

Ответы на вопрос:

333050708

Информатика

4,6(97 оценок)

Type dat = record d: integer; m: integer; y: integer end; function jday(pd: dat): longint; // алгоритм 199б // "переход от календарной даты к порядковому номеру дня и обратно" // взят из сборника // "библиотека алгоритмов 151б-200б", м.и.агеев и др., // м.: радио и связь, 1981 // // алгоритм возвращает порядковый номер дня по юлианскому календарю. // работает для дат, начиная с 01.01.4713 до н.э. var c, ya: longint; begin with pd do begin if m > 2 then m : = m - 3 else begin m : = m + 9; y : = y - 1 end; c : = y div 100; ya : = y mod 100; result : = ((146097 * c) div 4) + ((1461 * ya) div 4) + ((153 * m + 2) div 5) + d + 1721119 end; end; function jdate(j: longint): dat; // алгоритм 199б // "переход от календарной даты к порядковому номеру дня и обратно" // взят из сборника // "библиотека алгоритмов 151б-200б", м.и.агеев и др., // м.: радио и связь, 1981 // // алгоритм возвращает дату григорианского календаря по // порядковому номеру дня юлианского календаря. // работает для дат, начиная с 01.01.4713 до н.э. var dd, mm, yy: integer; begin j : = j - 1721119; yy : = (4 * j - 1) div 146097; dd : = (4 * j - 1 - 146097 * yy) div 4; j : = (4 * dd + 3) div 1461; dd : = (4 * dd + 7 - 1461 * j) div 4; mm : = (5 * dd - 3) div 153; dd : = (5 * dd + 2 - 153 * mm) div 5; yy : = 100 * yy + j; if mm < 10 then mm : = mm + 3 else begin mm : = mm - 9; yy : = yy + 1 end; result.d : = dd; result.m : = mm; result.y : = yy end; var d1,d2: dat; begin writeln('введите дату рождения в формате < день месяц год> : '); read(d1.d, d1.m, d1.y); d2: =jdate(jday(d1)+5000); writeln('5000 дней прожито ',d2.d,'.',d2.m,'.',d2.y) end. тестовое решение: введите дату рождения в формате < день месяц год> : 9 10 1997 5000 дней прожито 18.6.2011

nfjcgdh4

Информатика

4,7(24 оценок)

Pascal: var a,b: longint; begin write ('number 1: '); readln (a); write ('number 2: '); readln (b); writeln (abs(a-b)); readln; end. c++: #include < iostream> #include < cmath> using namespace std; int main() { int a,b; cout < < "number 1: "; cin > > a; cout < < "number 2: "; cin > > b; cout < < abs(a-b) < < endl; return 0; }

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.