Программа определяющая сезон по числу месяца

@C7T3R · Регистрация: 09.07.2016

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

В общем, такой небольшой пробный код. Знаю, что тут есть вопросы на которые давали код этой проги, но хочу сам и вопросы есть.

Pascal
1
2
3
4
5
6
7
8
var a: integer;
begin
writeln('введите число месяца');
readln(a);
if a=(1 or 2) then writeln('сейчас зима');
if a=(3 or 6) then writeln('осень');
readln;
end.

В общем, мучался я с тем почему он не выдает ответ, оказывается нужно было записать как

Pascal
1
if (a=12) or (a=1) or (a=2) then writeln('зима');

пробовал и (a>2) (1..2) Но никак не получается. Почему это не работает, может я не правлиьно записываю?
case не проходили. И вот как можно записать чтобы не писать каждый раз

Pascal
1
(a=12) or (a=1) or (a=2)

, а сразу как-то записать допустим от 1-6 и он выдавал ответ?

@Puporev · 14.09.2017, 13:06

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var a: integer;
begin
writeln('введите число месяца');
readln(a);
case a of
12,1,2:writeln('сейчас зима');
3..5:writeln('сейчас весна');
6..8:writeln('сейчас лето');
9..11:writeln('сейчас осень');
else writeln('такого месяца нет');
end;
end.

Добавлено через 3 минуты
Без case.

Pascal
1
2
3
4
5
6
7
8
9
10
var a: integer;
begin
writeln('введите число месяца');
readln(a);
if a in[12,1,2] then writeln('сейчас зима')
else if a in [3..5] then writeln('сейчас весна')
else if a in [6..8] then writeln('сейчас лето')
else if a in [9..11] then writeln('сейчас осень')
else writeln('такого месяца нет');
end.

@C7T3R · 14.09.2017, 13:07 **[ТС]**

Спасибо. И разобрался в чем была проблема в a>b, в том, что невнимателен был, неправильно записывал.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@C7T3R 0 / 0 / 2 Регистрация: 09.07.2016 Сообщений: 37
	14.09.2017, 13:07 [ТС]
	Спасибо. И разобрался в чем была проблема в a>b, в том, что невнимателен был, неправильно записывал. 0