Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
C7T3R
0 / 0 / 2
Регистрация: 09.07.2016
Сообщений: 28
#1

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

14.09.2017, 12:07. Просмотров 179. Ответов 2
Метки нет (Все метки)

В общем, такой небольшой пробный код. Знаю, что тут есть вопросы на которые давали код этой проги, но хочу сам и вопросы есть.
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 и он выдавал ответ?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.09.2017, 12:07
Ответы с готовыми решениями:

По числу текущего месяца определить день недели
По числу текущего месяца определить день недели Составьте программу с...

Определить день недели по введенному числу месяца
Прощу помощи у программистов ) Задача такая: Введите с клавиатуры число от...

Оператор выбора. По данному числу вывести название месяца
Составить программу, которая по данному числу (1-12) выводит название...

По данному числу (1—12) выводит название соответствующего ему месяца
Составить программу, которая по данному числу (1—12) выводит название...

Программа, определяющая победителя
Чтобы выявить самого драчливого разбойника Али-Баба провел бой,во время...

2
Puporev
Модератор
54364 / 41953 / 28980
Регистрация: 18.05.2008
Сообщений: 98,822
14.09.2017, 13:06 #2
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.
0
C7T3R
0 / 0 / 2
Регистрация: 09.07.2016
Сообщений: 28
14.09.2017, 13:07  [ТС] #3
Спасибо. И разобрался в чем была проблема в a>b, в том, что невнимателен был, неправильно записывал.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.09.2017, 13:07

составьте программу которую по данному числу(1-12) ВЫВОДИТ название соответствующего ему месяца
привет помогите составьте программу которую по данному числу(1-12) ВЫВОДИТ...

3.1 Написать программу, которая по заданному числу (от 1 до 12) выводит название соответствующего ему месяца.
Написать программу, которая по заданному числу (от 1 до 12) выводит название...

Программа, определяющая слова-палиндромы
напишите программу, которая определяет слова палиндромы


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru