Вычислить количество полных лет и дней между датами

@vebsterwest · Регистрация: 30.09.2012

Author24 — интернет-сервис помощи студентам

Данные натуральные числа a1, b1, c1, a2, b2, c2, которые указывают две даты (день, месяц, год). Выяснить, сколько дней прошло между этими датами. Найти количество полных лет, Прошел между этими датами.
я посчитал кол-во дней из полных лет. а если в конце прошло пол года или больше половины года. как подсчитать эти дни(например от начала года до сентября или 10 октября. ведь у каждого месяца разное кол-во дней). и по поводу высокосного года. если мы не доходим 29 февраля или переходим. как это предугадать.??? помогите плз

Главная загвоздка в том, как подсчитать кол-во дней в первом году и в последнем.

Pascal

program dkr;
uses crt;
var
b1,c1,b2,c2:byte;
a1,a2:word;
dni,roku,vusokosni,i:integer;
begin
clrscr;
writeln ('ВВедите первую дату:');
writeln('Год'); readln(a1);
writeln('Месяц'); readln(b1);
writeln('День'); readln(c1);
writeln ('Вторая дата');
writeln('Год'); readln(a2);
writeln('Месяц'); readln(b2);
writeln('День'); readln(c2);
if a2<a1 then writeln('Введите сначала меньше дату, затем больше');
if (b1<=12) and (b2<=12) and(c2<=31) and(c1<=31)
 then begin
   if b2-b1>0
     then
       roku:=a2-a1
     else
       roku:=a2-a1-1;
   vusokosni:=0;
   for i:=a1 to a2 do begin
            if (a1 mod 4=0) and (a1 mod 100>0) and (a1 mod 400=0)
               then
                   vusokosni:=vusokosni+1; end;
   dni:=(roku-vusokosni)*365+vusokosni*366;
   writeln('Кол-во лет - ',roku);
   writeln('Колв-о дней - ',dni);
  
 else writeln('Неверный формат введения даты');
readln;
end.

Добавлено через 17 минут
Главная загвоздка в том, как подсчитать кол-во дней в первом году и в последнем.

@Ce7eH_111 · 26.11.2012, 00:38

Сообщение от vebsterwest

Pascal

1	if a2<a1 then writeln('Введите сначала меньше дату, затем больше');

От этой строки толку ноль поскольку выполение програмы продолжается, добавь туда exit или метку

Также советую использовать модуль - abs()

	26.11.2012, 00:38