Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2783563 Sun, 19 Dec 2010 12:26:44 +0000 Дата следующего дня https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2783563 volvo877
Спасибо!]]> Yagami Pascal https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2783552 Sun, 19 Dec 2010 11:49:47 +0000 Дата следующего дня https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2783552 Цитата Yagami @ 19.12.10, 10:36

Не знаю как исправить.

Все просто: ты проверяешь, високосный ли год, и если да - то 28-му февраля присваиваешь статус НЕпоследнего дня, да? Но ведь у тебя и в самом начале Last := false. Сделай так:

2: if d=28 then

begin

last := true;

if ((y mod 4) = 0) and not (((y mod 100) = 0) and ((y mod 400) <> 0))

then last:=false; // Если год - високосный, то 28 февраля - не последний день месяца !!!

end;

Ну, и ниже по тексту. Ты ж выводишь d1, m1, y1? вот и работай ТОЛЬКО с ними. D, M, Y оставь в покое! Они уже не нужны тебе... Все изменения - только с d1, m1, y1...

if last

then begin

d1:=1;

if m1=12

then begin

m1:=1;

y1:=y+1;

end

else m1:=m1+1;

end

else d1:=d1+1;

writeln('Следующий день: ', d1, '-', m1, '-', y1);

]]> volvo877 Pascal https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2783518 Sun, 19 Dec 2010 10:36:50 +0000 Дата следующего дня https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2783518
Ввод: 28 2 2010
Вывод: 29 2 2010

Но 2010 - не высококлассный год.

program NextDay;

uses crt;

var

y, y1, r: integer;

d, d1: 1..31;

m, m1: 1..12;

last: boolean;

BEGIN

Write('Введите день, месяц, год, разделяя пробелами: ');

{$I-} {Проверка коррекности введенных данных}

read(d, m, y);

{$I+}

if IOResult <> 0 then

begin

writeln('Вы не ввели три числа. Повторите ввод.');

reset(input);

readln;

exit;

end;

if (d<1) or (d>31) then

begin

writeln('Ошибка ввода. Введите день (1-31)');

reset(input);

readln;

exit;

end;

if (m<1) or (m>12) then

begin

writeln('Ошибка ввода. Введите месяц (1-12)');

readln;

exit;

end;

if y<1 then

begin

writeln('Ошибка ввода. Год не долшен быть меньше 1.');

reset(input);

readln;

exit;

end;

last:=false;

d1:=d;

m1:=m;

y1:=y;

case m of

4, 6, 9, 11: if d=30

then last:=true;

2: if d=28

then begin

if ((y mod 4) = 0) and

not (((y mod 100) = 0) and ((y mod 400) <> 0))

then last:=true;

end;

else if d=31

then last:=true;

end;

if last

then begin

d:=1;

if m=12

then begin

m:=1;

y1:=y+1;

end

else m1:=m+1;

end

else d1:=d+1;

writeln('Следующий день: ', d1, '-', m1, '-', y1);

END.

При попытке внесения таких изменений в код:

last:=true;

d1:=d;

m1:=m;

y1:=y;

case m of

4, 6, 9, 11: if d=30

then last:=true;

2: if d=28

then begin

if ((y mod 4) = 0) and

not (((y mod 100) = 0) and ((y mod 400) <> 0))

then last:=false;

end;

else if d=31

then last:=true;

end;

Ввод: 28 2 2010
Вывод: 1 3 2010

Ввод: 27 2 2010
Вывод: 1 3 2010

Не знаю как исправить. :wall:]]> Yagami Pascal https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2744085 Wed, 03 Nov 2010 16:42:44 +0000 Дата следующего дня https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2744085 volvo877
Поправил, вроде.]]> Yagami Pascal https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2743804 Wed, 03 Nov 2010 11:48:39 +0000 Дата следующего дня https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2743804

Цитата

if last

then begin

d:=1;

if m=12

then begin

m:=1;

y1:=y+1;

end

else m1:=m+1;

end

else d1:=d+1;

И что? Ну, допустим, при Last = true в Y1 что-то хотя бы теоретически может записаться (правда произойдет это только если месяц = декабрь, и должен меняться год, но хоть когда-то). Но если Last = False - то даже теоретически этого не произойдет. У тебя по Else просто нет кода, изменяющего Y1 и M1.

Выходов 2:
1) либо в самом начале присвоить Y1 := Y; M1 := M; D1 := D, и дальше все оставить без изменений, как сейчас есть, если данные должны измениться, они изменятся, нет - останутся те, что ты ввел (это может быть нужно в случае, если ты не хочешь портить начальную дату)
2) либо работать вообще без Y1, M1, D1. То есть, изменять прямо Y, M, D и печатать их же.

Выбирать тебе.]]> volvo877 Pascal https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2743748 Wed, 03 Nov 2010 11:04:27 +0000 Дата следующего дня https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2743748 Например:
Ввод: 10 2 1999
Вывод: 11,0,0]]> Yagami Pascal https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2743674 Wed, 03 Nov 2010 10:45:12 +0000 Дата следующего дня https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2743674 Цитата Yagami @ 03.11.10, 10:35

writeln(d1, ',', m1, ',', y1);

У тебя этих запятых (разделяющих строки и числа) не было, были только строковые литералы для вывода запятой на экран.]]> volvo877 Pascal https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2743663 Wed, 03 Nov 2010 10:35:32 +0000 Дата следующего дня https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2743663

program NextDay;

uses crt;

var

y, y1, r: integer;

d, d1: 1..31;

m, m1: 1..12;

last: boolean;

BEGIN

Write('Введите день, месяц, год, разделяя пробелами: ');

{$I-}

read(d, m, y);

{$I+}

if IOResult <> 0 then

begin

writeln('Вы не ввели три числа. Повторите ввод.');

reset(input);

readln;

exit;

end;

if (d<1) or (d>31) then

begin

writeln('Ошибка ввода. Введите день (1-31)');

reset(input);

readln;

exit;

end;

if (m<1) or (m>12) then

begin

writeln('Ошибка ввода. Введите месяц (1-12)');

readln;

exit;

end;

if y<1 then

begin

writeln('Ошибка ввода. Год не долшен быть меньше 1.');

reset(input);

readln;

exit;

end;

last:=false;

case m of

4, 6, 9, 11: if d=30

then last:=true;

2: if d=28

then begin

if ((y mod 4) = 0) and

not (((y mod 100) = 0) and ((y mod 400) <> 0))

then last:=true;

end;

else if d=31

then last:=true;

end;

if last

then begin

d:=1;

if m=12

then begin

m:=1;

y1:=y+1;

end

else m1:=m+1;

end

else d1:=d+1;

writeln('Следующий день: ');

writeln(d1',', m1',', y1',');

END.

]]> Yagami Pascal https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2743659 Wed, 03 Nov 2010 10:32:49 +0000 Дата следующего дня https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2743659 полностью, либо ищи ошибки сам. В приведенном фрагменте всего 32 строки, какая из них 74-я?]]> volvo877 Pascal https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2743651 Wed, 03 Nov 2010 10:28:04 +0000 Дата следующего дня https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2743651

BEGIN

Write('Введите день, месяц, год, разделяя пробелами: ');

{$I-}

read(d, m, y);

{$I+}

if IOResult <> 0 then

begin

writeln('Вы не ввели три числа. Повторите ввод.');

reset(input);

readln;

exit;

end;

if (d<1) or (d>31) then

begin

writeln('Ошибка ввода. Введите день (1-31)');

reset(input);

readln;

exit;

end;

if (m<1) or (m>12) then

begin

writeln('Ошибка ввода. Введите месяц (1-12)');

readln;

exit;

end;

if y<1 then

begin

writeln('Ошибка ввода. Год не долшен быть меньше 1.');

reset(input);

readln;

exit;

end;

(74,20) Fatal: Syntax error, ")" expected but "const char" found]]> Yagami Pascal https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2740873 Sun, 31 Oct 2010 06:39:18 +0000 Дата следующего дня https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2740873 volvo877
Незачем. Отвлекся на телефонный звонок.]]> Yagami Pascal https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2740868 Sun, 31 Oct 2010 06:29:11 +0000 Дата следующего дня https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2740868

if ((y mod 4) = 0) and

not (((y mod 100) = 0) and ((y mod 400) <> 0)) then last := true;

Красным выделены места ошибок. По ссылке же было правильное написание, ЗАЧЕМ понадобилось убирать скобки?]]> volvo877 Pascal https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2740861 Sun, 31 Oct 2010 06:14:48 +0000 Дата следующего дня https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2740861 volvo877

var

y, y1, r: integer;

d, d1: 1..31;

m, m1: 1..12;

last: boolean;

BEGIN

Writeln('Ввод даты: ');

read(d);

last:=false;

case m of

4, 6, 9, 11: if d=30

then last:=true;

2: if d=28

then begin

r := (y mod 4) = 0) and

not (((n mod 100) = 0) and ((n mod 400) <> 0)

then last:=true;

end;

else if d=31

then last:=true;

end;

if last

then begin

d:=1;

if m=12

then begin

m:=1;

y1:=y+1;

end

else m1:=m+1;

end

else d1:=d+1;

END.

Компилятор сообщает об ошибке: "(26,35) Error: Incompatible types: got "Boolean" expected "SmallInt"."
Как исправить?]]> Yagami Pascal https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2740448 Sat, 30 Oct 2010 10:26:22 +0000 Дата следующего дня https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2740448 Yagami, ты смотри на сообщения компилятора, он показывает место ошибки.]]> Polinom2686 Pascal https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2740445 Sat, 30 Oct 2010 10:19:15 +0000 Дата следующего дня https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2740445 Цитата Yagami @ 30.10.10, 09:59

Можно решить задачу используя перечислимые и интервальные типы?

Разумеется. Для дней достаточно интервала 1..31, для месяцев - 1..12 (или вообще сделать перечислимый тип Jan, Feb, ..., Dec), совсем не обязательно использовать Integer.

P.S.

Цитата Polinom2686 @ 30.10.10, 09:25

r:=y mod 4;

if r <> 0

then last:=true;

Этого недостаточно, чтобы определить високосность года: Является-ли год високосный ? (сообщение #580679)]]> volvo877 Pascal https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2740436 Sat, 30 Oct 2010 09:59:40 +0000 Дата следующего дня https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2740436 Polinom2686
Спасибо! Невнимательность :wall:
Можно решить задачу используя перечислимые и интервальные типы?]]> Yagami Pascal https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2740423 Sat, 30 Oct 2010 09:25:47 +0000 Дата следующего дня https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2740423

Var

d, m, y, d1, m1, y1, r: integer;

last: boolean;

BEGIN

{Ввод данных добавлю позже}

last:=false;

case m of

4, 6, 9, 11: if d=30

then last:=true;

2: if d=28

then begin

r:=y mod 4;

if r <> 0

then last:=true;

end;

else if d=31

then last=true; // тут ошибка

end;

if last

then begin

d:=1;

if m=12

then begin

m:=1;

y1:=y+1;

end

else m1:=m+1;

end

else d1:=d+1;

END.

]]> Polinom2686 Pascal https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2740362 Sat, 30 Oct 2010 06:57:43 +0000 Дата следующего дня https://forum.sources.ru/index.php?showtopic=317219&view=findpost&p=2740362 d, m, y - сeгoдня.
d1, m1, y1 - завтра.

var

d, m, y, d1, m1, y1, r: integer;

last: boolean;

BEGIN

{Ввод данных добавлю позже}

last:=false;

case m of

4, 6, 9, 11: if d=30

then last:=true;

2: if d=28

then begin

r:=y mod 4;

if r <> 0 then

last:=true;

end;

else if d=31 then last=true;

end;

if last then begin

d:=1;

if m=12 then

begin

m:=1;

y1:=y+1;

end

else m1:=m+1;

end

else d1:=d+1;

END.

Free Pascal v2.4.0 при компиляции выдает ошибку: "Error Illegal expression". Помогите исправить. В алгоритме нет ошибок?]]> Yagami Pascal