c case

[D1zz1]

помогите написать чтоб вычислял високосный год или нет, у меня не получается.

Program PractikaZ2;
Label 30;
Label 50;
var N,G,Y: integer;

Begin
50:writeln('Введите год');
readln(G);
Y:=G mod 4;
if Y:=0 do writeln('год не високосный, вводите номер месяца');
Begin
30: write('Введите номер месяца   ');
readln(N);
N:=N+0;
Case N of
 1: write('Январь 31 день');
 2: write('Февраль 28 дней');
 3: write('Март 31 день');
 4: write('Апрель 30 дней');
 5: write('Май 31 день');
 6: write('Июнь 30 дней');
 7: write('Июль 31 день');
 8: write('Август 31 день');
 9: write('Сентябрь 30 дней');
 10: write('Октябрь 31 день');
 11: write('Ноябрь 30 дней');
 12: write('Декабрь 31 день');
Else Begin
Writeln('Номер месяца введен не правильно');
writeln('Повторите');
Goto 30;
end;
end;
End;
end.

[Alex11223]

В if begin же после do, а не после writeln. Если бы отформатировали код, то заметили бы это скорее всего)

[D1zz1]

пишет на Y неверное выражение. что изменить?

[Stilet]

В if begin же после do

БЕГОМ УЧИТЬ МАТЧАСТЬ!!!!

if Y:=0 do writeln('год не високосный, вводите номер месяца');

Then где?

[Alex11223]

А сами как думаете? "Присвоить" и "равно" это не одно и тоже.

БЕГОМ УЧИТЬ МАТЧАСТЬ!!!!

упс, перепутал но бегин все равно не там, где должен быть.


Вобщем так должно быть

 if Y = 0 then begin

Если дальнейший алгоритм верный.

[D1zz1]

он не переходит теперь на месяц. на год не реагирует вообще) просто вводишь и ничего не происходит

[veniside]

Y := G mod 4;

низачёт:

год является високосным, если он кратен 4 и при этом не кратен 100, либо кратен 400

> на год не реагирует вообще

if Y = 0 then

(без begin)

и ещё:

write('Февраль 28 дней');

интересно, как такая строчка хотя бы теоретически может вывести 29 дней?

[G-Kyller]

if Y=0 then 
Begin
writeln('год не високосный, вводите номер месяца');
30: write('Введите номер месяца   ');

[D1zz1]

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

как сделать что бы возрващал на исходную позицию если високосный год?

попытался сделать там для возвращения, но теперь программа завершается при вводе года

Program PractikaZ2;
Label 30;
Label 50;
var N,G,Y: integer;
Begin
50:writeln('Ââåäèòå ãîä');
readln(G);
Y:=G mod 4;
if Y = 0 then writeln('ãîä íå âèñîêîñíûé, ââîäèòå íîìåð ìåñÿöà')
else begin
Writeln('Ãîä âèñîêîñíûé ââåäèòå èíîé');
writeln('Ïîâòîðèòå');
Goto 50;
Begin
30: write('Ââåäèòå íîìåð ìåñÿöà   ');
readln(N);
N:=N+0;
Case N of
 1: write('ßíâàðü 31 äåíü');
 2: write('Ôåâðàëü 28 äíåé');
 3: write('Ìàðò 31 äåíü');
 4: write('Àïðåëü 30 äíåé');
 5: write('Ìàé 31 äåíü');
 6: write('Èþíü 30 äíåé');
 7: write('Èþëü 31 äåíü');
 8: write('Àâãóñò 31 äåíü');
 9: write('Ñåíòÿáðü 30 äíåé');
 Program PractikaZ2;
Label 30;
Label 50;
var N,G,Y: integer;
Begin
50:writeln('Введите год');
readln(G);
Y:=G mod 4;
if Y = 0 then writeln('год не високосный, вводите номер месяца')
else begin
Writeln('Год високосный введите иной');
writeln('Повторите');
Goto 50;
Begin
30: write('Введите номер месяца   ');
readln(N);
N:=N+0;
Case N of
 1: write('Январь 31 день');
 2: write('Февраль 28 дней');
 3: write('Март 31 день');
 4: write('Апрель 30 дней');
 5: write('Май 31 день');
 6: write('Июнь 30 дней');
 7: write('Июль 31 день');
 8: write('Август 31 день');
 9: write('Сентябрь 30 дней');
 10: write('Октябрь 31 день');
 11: write('Ноябрь 30 дней');
 12: write('Декабрь 31 день');
Else Begin
Writeln('Номер месяца введен не правильно');
writeln('Повторите');
Goto 30;
end;
end;
End;
end;
end.

[Alex11223]

А какое задание вообще? Что-то я не очень понял, что вы в case хотите сделать, особенно

n:=n+0;

oO

Кстати, почему вы не форматируете код?