Программа с case.

[badname47]

Доброго времени суток!

Нужно написать следующую программу: С клавиатуры вводятся две даты в формате ДД-ММ-ГГ. То есть сначала две цифры означающие номер дня, затем две цифры — номер месяца, и наконец, две цифры — номер года. Считая, что введенные даты корректны, определите какая из них раньше. Не забудьте учесть високосные годы.

Заранее спасибо !

[Arhangel7]

а сам что?

[Paster Fob]

сравнить годы если они совпадают,то сравнить месяцы,если месяцы совпадают,сравнить дни учитывая сколько дней в месяце.Решайте!

[Sayto]

program zz1;
uses crt;
var
d:array[1..2,1..3] of integer;
i,j:integer;
begin
writeln('ââåäèòå');
for i:=1 to 2 do begin
for j:=1 to 3 do
read(d[i,j]);
end;
for i:=3 downto 1 do begin
if d[1,i]>d[2,i] then begin writeln('d1 áîëüøå)'); break end;
if d[2,i]>d[1,i] then begin writeln('d2 áîëüøå)'); break end
end;
end.

[whatever]

Честно, не представляю, зачем это решать через case, но тем не менее:

var
  d,d2,m,m2,y,y2:integer;
begin
  readln(d,m,y);
  readln(d2,m2,y2);
  case y<y2 of
    true: writeln(d,':',m,':',y);
    false:
        case y>y2 of
          true: writeln(d2,':',m2,':',y2);
          false:
            case m<m2 of
              true: writeln(d,':',m,':',y);
              false:
                case m>m2 of
                  true: writeln(d2,':',m2,':',y2);
                  false:
                    case d<d2 of
                      true: writeln(d,':',m,':',y);
                      false:
                        case d>d2 of
                          true: writeln(d2,':',m2,':',y2);
                          false: writeln('dates are equals');
                        end;
                    end;
                end;
            end;
        end;
  end;
  readln;
end.

P.S. И каким боком в этом задании вообще могут помешать високосные года?

[Paster Fob]

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

P.S. И каким боком в этом задании вообще могут помешать високосные года?

ну типа того ты вводишь дату 29.02 и тебе выдаёт что в таком-то году нет такой-даты или если есть то,этот день раньше,так наверное.

[Serge_Bliznykov]

Сообщение от Paster Fob

ну типа того ты вводишь дату 29.02 и тебе выдаёт что в таком-то году нет такой-даты или если есть то,этот день раньше,так наверное.

категорически согласен с whatever!

Paster Fob, а Вы задание внимательно прочитали?!
в задании же чётко сказано

...Считая, что введенные даты корректны...

значит некорректные данные не могут быть заданы ПО УСЛОВИЮ задачи!
и проверять висосные года никакого смысла резона нет!


p.s. и, кстати, я тоже не понимаю, зачем использовать здесь конструкцию CASE, если здесь и банального IF then else хватит за глаза!

Короче. Резюмируя. Автору задачи НЕЗАЧЁТ!