Определить, сколько дней прошло с начала сезона.

[Ins1s]

Определить, сколько дней прошло с начала сезона.

Даны числа A,B,C, ( число, месяц , год,) Определить сколько дней прошло с начало сезона.!!

Я с case полный профан

Вы и в русском языке, похоже, тоже не сильны! Ваш модератор.

 

[AlexZir]

а в чем проблема? открываете справку и читаете! буквально оттуда информация:

Оператор case состоит из выражения (селектора) и списка операторов, каждый из которых выполнится в определённом случае.

Синтаксис:
case выражение of
вариант : оператор;
...
вариант : оператор;
end

или

case выражение of
вариант : оператор;
...
вариант : оператор;
else оператор
end

Замечания:
"вариант" состоит из одной или большего количества констант или диапазонов, разделённых запятыми. Часть "else" является необязательной.

Пример:
case Ch of
'A' .. 'Z', 'a' .. 'z' : WriteLn('Буква');
'0' .. '9' : WriteLn('Цифра');
'+', '-', '*', '/' : WriteLn('Оператор');
else WriteLn('Специальный символ')
end;

Пишите ваш вариант решения, если что неправильно - поправим.

 

[Ins1s]

спс=) щас попробую ...

 

[Ins1s]

Program DeHb;
Var day :char;
x:real;
begin
readln(day);
case day OF
365-day = x; //недопустимо по правилам синтаксиса языка
end;
writeln (day);
end.



тупо конешно но как смог

 

[Ins1s]

и то ошибку выдает неизвестный индефикатор

Даны числа A,B,C, ( число, месяц , год,) Определить сколько дней прошло с начало сезона.!!

Я с case полный профан

Вы и в русском языке, похоже, тоже не сильны! Ваш модератор.

привык-) к словам таким

 

[AlexZir]

Программу написали полностью неверно.

Кстати, мне не вполне понятна роль оператора выбора в вашем задании. Изложите точное содержание задание, данное вам преподавателем.

И что за 3 числа вам даны? Это дата начала сезона или текущая дата?

 

[Ins1s]

3 числа *365* - эт оскока дней в год у !!! а задание вот такое .. как я выше написал!! оно полностью изложена сверху

 

[Ins1s]

а по какому правилу тогда?

 

[AlexZir]

Я имею в виду, числа A, B, C - это дата начала сезона?

 

[MrSTEP]

фрагмент кода:

case b of:
12,1,2: seson:='Зима';
3..5: seson:='Весна';
6..8: seson:='Лето';
9..11: seson:='Осень';
end;
case b of:
[I]{с начала сезона прошло количество дней, равное сегодняшней дате}[/I]
12,3,6,9: n:=a;
[I]{с начала сезона прошло количество дней, равное сумме предыдущих месяцев плюс сегодняшняя дата}[/I]
1,4: n:=31+a; 
2: n:=31+31+a;
5,8,11: n:=31+30+a;
7,10: n:=30+a;
end;
writeln ('Сейчс на дворе ',seson, '; дней с начала сезона - ', n);

 

[Ins1s]

это число месяц и год!!

 

[AlexZir]

Если за сезон принято считать время года, то фрагмент варианта решения из #10 вполне подходит. И все равно не ясно, что за число, месяц и год вам дано? Текущая дата для проверки?

 

[MrSTEP]

текущие ДД ММ ГГГГ, как я понял. например 07 01 2010

 

[AlexZir]

Тогда вам в листинге для ее получения нужно использовать системную дату. В этом случае программа будет работать более корректно. Да и високосные годы вы не отрабатываете .

 

[Ins1s]

степ правильно сказал .. но только мне не за сезон считать.. а нужно например ввести число 28 08 2009 и нужно посчитать сколько дней прошло с начала сезона.!

 

[Vladimir_S]

степ правильно сказал .. но только мне не за сезон считать.. а нужно например ввести число 28 08 2009 и нужно посчитать сколько дней прошло с начала сезона.!

Слушайте, уважаемый, не надо гневаться. Вас просят ясно и четко ответить на вопрос - "Что такое (в данном случае) сезон?". Это что - время года? Или это горнолыжный сезон? Туристский? Отопительный? Брачный? Будьте любезны пояснить.

 

[Ins1s]

сезон это время года ... если честно я не зна ю в задание не написано!

високосные нет..

 

[MrSTEP]

но только мне не за сезон считать.. а нужно например ввести число 28 08 2009 и нужно посчитать сколько дней прошло с начала сезона.!

ну между прочим, мой листинг это и считает.. но может маленько некорректно.. ведь если сегодня первое декабря, то с начала сезона прошло 0 целых дней, 2ого декабря - 1 один день. Значит, листинг можно подправить:

case b of:
12,1,2: seson:='Зима';
3..5: seson:='Весна';
6..8: seson:='Лето';
9..11: seson:='Осень';
end;
case b of:
{с начала сезона прошло количество дней, равное сегодняшней дате}
12,3,6,9: n:=a-1;
{с начала сезона прошло количество дней, равное сумме предыдущих месяцев плюс сегодняшняя дата}
1,4: n:=31+a-1; 
2: n:=31+31+a-1;
5,8,11: n:=31+30+a-1;
7,10: n:=30+a-1;
end;
writeln ('Сейчс на дворе ',seson, '; с начала сезона прошло ', n, ' дней');

 

[AlexZir]

В общем, вопрос решенный

 

[Ins1s]

ага спс=) вам!!!!!