Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Lana_T
0 / 0 / 0
Регистрация: 26.05.2013
Сообщений: 23
#1

Определить время года по названию месяца - Turbo Pascal

27.05.2013, 17:30. Просмотров 315. Ответов 2
Метки нет (Все метки)

Помогите, пожалуйста! не могу найти ошибку!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program sezon;
var m, vesna, leto, zima, osen, oshibka: byte;
begin
writeln('введите месяц');
readln(m);
case m of 
12, 1, 2: writeln (zima);
3, 4, 5: writeln (vesna);
6, 7, 8: writeln (leto);
9, 10, 11: writeln (osen);
m<>1..12: writeln (oshibka);
end;
readln;
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.05.2013, 17:30
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить время года по названию месяца (Turbo Pascal):

По названию месяца определить название соответствующего времени года - Turbo Pascal
Последняя просьба, честно-честно) Надо написать программу, которая выдаёт по названию месяца название соответствующего года используя...

По номеру месяца определить время года - Turbo Pascal
Помогите пожалуйста с задачами: 2. Дано натуральное k (от 1 до 12). По номеру месяца k определить время года.

Определить время года по номеру месяца - Turbo Pascal
Написать программу которая при вводе числа от1-го до 12 выводить на экран какой это месяц и время года.использовать собственные типы данных

Процедуры: по заданному номеру месяца определить время года - Turbo Pascal
решить через процедуры) написать программу, которая по заданному номеру месяца печатает название времени года. спасибо большое заранее))

Вводится номер месяца. Определить время года, которому соответствует этот месяц. (Использовать оператор Case) - Turbo Pascal
Вводится номер месяца. Определить время года, которому соответствует этот месяц. (Использовать оператор Case).

По названию месяца определить количество дней в месяце - Turbo Pascal
Составить программу которая бы по названию месяца выдавала бы количество дней в месяце

2
Puporev
Модератор
54019 / 41652 / 14731
Регистрация: 18.05.2008
Сообщений: 97,917
27.05.2013, 17:33 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program sezon;
var m, vesna, leto, zima, osen, oshibka: byte;
begin
writeln('ââåäèòå ìåñÿö');
readln(m);
case m of
12, 1, 2: writeln ('zima');
3, 4, 5: writeln ('vesna');
6, 7, 8: writeln ('leto');
9, 10, 11: writeln ('osen');
else writeln ('oshibka');
end;
readln;
end.
1
chizz
982 / 499 / 54
Регистрация: 19.03.2013
Сообщений: 3,095
Записей в блоге: 18
Завершенные тесты: 1
27.05.2013, 17:33 #3
А что программа должна делать?
Вы никак не инициализируете переменные zima, leto и т.д
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.05.2013, 17:33
Привет! Вот еще темы с ответами:

По порядковому номеру месяца определить, к какому времени года он принадлежит - Turbo Pascal
Составить программу, которая бы по порядковому номеру месяца выдавала к какому времени года он принадлежит

Определить количество дней в любом месяце любого года за порядковым номером этого месяца - Turbo Pascal
Определить количество дней в любом месяце любого года за порядковым номером этого месяца.

по названию месяца определить время года.. - Pascal
ребят, такая фигня...нужно по названию месяца определить время года.. вот примерная прога Program number; uses crt; var...

Определить время года по номеру месяца - Pascal
var a:integer; begin writeln('Введите номер месяца (число от 1 до 12) и нажмите &lt;Enter&gt;'); write('-&gt; '); readln(a); if (a&lt;1)...


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

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

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