c case

[D1zz1]

задание-Дан номер месяца — целое число в диапазоне 1–12 (1 — январь, 2 —февраль и т. д.). Определить количество дней в этом месяце для не високосного года.


а как это делается?))))форматирование кода)))

[Alex11223]

там вообще то для НЕ високосного года

if Y = 0 then writeln('год не високосный — вы хотите сказать, что если год кратен 4, то он не високосный. Это может быть верно, но не всегда)

Вроде как-то так будет правильно:

if ((G mod 4 = 0) and ((G mod 100 <> 0) or (G mod 400 = 0))) then високосный
else
   невисокосный

а как это делается?))))форматирование кода)))

Ну типа вот так

if a=b then
begin
   a:=c;
   c:=d;
   for i:=1 to c do 
      writeln(i);
end 
else
   c:=x;

А не все в одну кашу. Если ПаскальАБС, то там есть волшебная кнопка автоформатирования.



И тогда было бы легче увидеть, что, например, в этом месте что-то не так:

 if Y = 0 then writeln('год не високосный, вводите номер месяца')
  else begin
    Writeln('Год високосный введите иной');
    writeln('Повторите');
    goto 50;
    begin
        30: write('Введите номер месяца   ');
        ...

[D1zz1]

а по N+0, паскаль не захотел просто считывать вот и ввел ему пример.

эмм подробней про кнопочку пожалуйста, я чет не нашел, хотя абс паскаль

[Alex11223]

[D1zz1]

нету такой кнопочки( и раздела модули тоже нету

[Alex11223]

Видимо в старых версиях нет. Обновить можно тут )

а по N+0, паскаль не захотел просто считывать вот и ввел ему пример.

Что не захотел?оО Скорее всего ошибка была в чем-то другом.

[D1zz1]

возможно. какой из 3 лучше скачатЬ?

[Alex11223]

Скорее всего в любой есть, я по-моему первый устанавливал.

[D1zz1]

а что меня должно было насторожить здесь?

И тогда было бы легче увидеть, что, например, в этом месте что-то не так:
Код:

 if Y = 0 then writeln('год не високосный, вводите номер месяца')
  else begin
    Writeln('Год високосный введите иной');
    writeln('Повторите');
    goto 50;
    begin
        30: write('Введите номер месяца   ');
        ...

[Alex11223]

Эм... Да много чего ) Посмотрите тогда в пошаговом дебагинге (F8 или кнопка чуть левее от форматирования), что будет происходить в вашей программе.