Определить, является ли номер дня допустимым для данного месяца.

@strawberry · Регистрация: 21.01.2010

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

подскажите сто делать дальше!!!!
УСЛОВИЕ: Вводятся пары чисел (первое – номер дня, второе – номер месяца). Определить, является ли номер дня допустимым для данного месяца. Программа завершает работу, если первое число равно 777.
программа не работает!!!(((((((((((

Pascal

PROGRAM PGR_3;
      USES CRT;
     VAR A, B:INTEGER;
BEGIN
      CLRSCR;
     WRITELN ('VVEDITE A');
     READLN (A);
     WHILE A;777 DO;
      WRITELN ('VVEDITE A, OKONCHIVAUSHEESYA 777');
             READLN (A);
BEGIN
     WRITELN ('VVEDITE B');
             READLN (B);
      IF (B=1)OR
        (null, B=3)OR
         (null, B=5)OR
          (null, B=7)OR
           (null, B=8)OR
            (null, B=10)OR
             (null, B=12)THEN
              (null, A=31)
 
     IF (B=4) OR
        (null, B=6)OR
          (null, B=9)OR
            (null, B=11)THEN
              (null, A=30);
      IF (B=2)THEN
         (null, A=28);
P=1 THEN WRITELN ('PODXODIT');
END;
   READKEY;
END.

Vourhey · 13.12.2007, 17:24

Я думаю, тут несколько причин, почему программа не работает. Проверяю без компилера, поэтому не обессудьте

Первое

Код

 WHILE A;777 DO;

Это что? выполнение пустой операции вечно? Ошибка.

Код

READLN (A);
BEGIN
WRITELN ('VVEDITE B');

А тут BEGIN к чему, вообще относится? Что за блок у тебя тут начинается? Останется неизвестным. Возможно, это к WHILE должно было когда-то относиться.

Код

 IF (B=1)OR
(B=3)OR
(B=5)OR
(B=7)OR
(B=8)OR
(B=10)OR
(B=12)THEN
(A=31)

Куча, куча условий. Если они выполняются, то тут какой-то (A=31)... Ошибка. И еще три таких же следуют за ней.|r

Код

P=1 THEN WRITELN ('PODXODIT');

Вижу THEN, не вижу условия.
Это паскаль, вообще?

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	13.12.2007, 17:24	2
	Я думаю, тут несколько причин, почему программа не работает. Проверяю без компилера, поэтому не обессудьте Первое Код WHILE A;777 DO; Это что? выполнение пустой операции вечно? Ошибка. Код READLN (A); BEGIN WRITELN ('VVEDITE B'); А тут BEGIN к чему, вообще относится? Что за блок у тебя тут начинается? Останется неизвестным. Возможно, это к WHILE должно было когда-то относиться. Код IF (B=1)OR (B=3)OR (B=5)OR (B=7)OR (B=8)OR (B=10)OR (B=12)THEN (A=31) Куча, куча условий. Если они выполняются, то тут какой-то (A=31)... Ошибка. И еще три таких же следуют за ней.\|r Код P=1 THEN WRITELN ('PODXODIT'); Вижу THEN, не вижу условия. Это паскаль, вообще? 0