По двум введенным датам (г. м. д) определить, какая из них более ранняя ( Паскаль )

[FROST4386]

Нужно написать которая заключается в том, что по двум введенным датам (г. м. д) паскаль мог определить, какая из них более ранняя? Сам не могу, поэтому прошу помощи у профессионалов)

[BDA]

FROST4386:
1) Нужно создавать свою тему, а не лезть в чужую
2) Считали две даты, сравнили года, если это не дало однозначного ответа (одинаковые), то сравнили месяца, если опять не помогло, то сравнили дни и, наконец, выдали ответ

[FROST4386]

Да-да я знаю, и дико извиняюсь за это. Понимаете, просто я учусь на экономическом, а информатика у нас обязательный предмет (понятия не имею почему). Поэтому я в ней так сказать "не бе не ме". Не могли вы бы написать все это на Паскале?

[Serge_Bliznykov]

То, что Вы учитесь на экономическом, не избавляет Вас от необходимости соблюдать правила форума!

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


Теперь по сути проблемы.
зайдите в эту тему Сравнение дат
возьмите оттуда код для сравнения.
Напишите описание переменных, их ввод, код для сравнения (который Вы взяли) и вывод результата.
Профит.

тут делов минут на 10, вместе с отладкой...


p.s. впрочем, возможно, для Вас, как для будущего экономиста, более подходут товарно-денежные отношения (я имею в виду раздел Фриланс)

[009]

зайдите в эту тему Сравнение дат

в дополнение того что написано в той теме (и в этой теме) можно сделать так:

d1 = dd+mm*100+yy*10000;
d2 = dd+mm*100+yy*10000;
if(d1>d2)

И еще один способ (если даты вводятся именно так: (г. м. д)): считать две даты в строки и сравнить их. )

[Serge_Bliznykov]

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

в дополнение того что написано в той теме (и в этой теме) можно сделать так:

d1 = dd+mm*100+yy*10000;
d2 = dd+mm*100+yy*10000;
if(d1>d2)

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

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

И еще один способ (если даты вводятся именно так: (г. м. д)): считать две даты в строки и сравнить их. )

Только если строки приведены к одному формату (выравнены), иначе '10' будет меньше '2'

Да и зачем извращаться со строками (да и вычислениями), когда есть простое и нагляное решение с логическими выражениями...

Впрочем, пусть это автор топика выбирает, какое решение ему более понятно и больше подходит.

[FROST4386]

Итак, что получилось у меня

program
var d1,m1,g1,d2,m2,g2;
read(d1);
read(m1);
read(g1);
read(d2);
read(m2);
read(g2);
if d1<d2 then write (' ');
else d1>d2 then write (' ');
if m1<m2 then write (' ');
else m1>m2 then write (' ');
if g1<g2 then write (' ');
else g1>g2 then write (' ');
readln;
end.

Какие мысли по этой программе?

[BDA]

FROST4386:
1) Это не Ваша тема, зачем обсуждать Вашу программу в чужой теме (при наличии собственной темы) не понимаю
2) Как-то она не удовлетворяет синтаксису паскаля (пока не обсуждаем сам алгоритм)
3) Предлагаю продолжать обсуждении ее в Вашей теме - http://programmersforum.ru/showthread.php?t=255111

UPD
Спасибо, Serge. 1 и 3 пункты более не актуальны.

[Serge_Bliznykov]

Перенёс сообщения пользователя в его же тему.

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

Итак, что получилось у меня
....
Какие мысли по этой программе?

Это не программа. Это бессмысленный набор строчек кода, причём с ошибками...

[009]

Какие мысли по этой программе?

ни каких.
проверяйте:

var d1,m1,g1,d2,m2,g2,t1,t2:integer;
begin
read(d1);
read(m1);
read(g1);
read(d2);
read(m2);
read(g2); 
t1:=d1+m1*100+g1*10000;
t2:=d2+m2*100+g2*10000;
if t1<t2 then write ('Первая')
else if t1>t2 then write ('Вторая') else
write('Равны');
readln;
end.