Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 9, средняя оценка - 4.78
pro_user
1 / 1 / 1
Регистрация: 05.12.2013
Сообщений: 15
#1

Написать программу которая выводит на экран название года по восточному календарю с 2000-2014 год - Turbo Pascal

28.12.2013, 20:45. Просмотров 1563. Ответов 8
Метки нет (Все метки)

Написать программу которая выводит на экран название года по восточному календарю с 2000-2014 год.Через case
http://www.cyberforum.ru/turbo-pascal/thread1059402.html
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.12.2013, 20:45
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Написать программу которая выводит на экран название года по восточному календарю с 2000-2014 год (Turbo Pascal):

Написать программу, которая переводит заданный год в его название по восточному календарю (используйте тип "перечисление").
В восточном календаре года носят названия животных: крысы, быка, тигра, зайца,...

Написать программу, которая на ввод года н.э. выводит его название по старояпонскому календарю
В старояпонском календаре был принят 12-летний цикл. Годы внутри цикла носили...

Написать программу, которая вводит номер некоторого года и печатает его название по старояпонскому календарю
В старояпонском календаре был принят 12-летний цикл. Годы внутри цикла носили...

Написать программу, которая позволяет ввести номер года и печатает его название по старояпонскому календарю
В старояпонском календаре был принят двенадцатилетний цикл. Годы внутри цикла...

Написать программу, которая по номеру года определяет его название по восточному календарю
Написать программу, которая по номеру года определяет его название по...

8
Don_Omare
77 / 79 / 70
Регистрация: 18.12.2013
Сообщений: 211
28.12.2013, 20:53 #2
Вы мне названия годов скажите я вам напишу программу
0
pro_user
1 / 1 / 1
Регистрация: 05.12.2013
Сообщений: 15
28.12.2013, 21:00  [ТС] #3
Дракона', 'Змеи', 'Лошади', 'Овцы
'Обезьяны', 'Петуха', 'Собаки', 'Кабана',
'Крысы', 'Вола', 'Тигра', 'Кролика',
'Дракона', 'Змеи', 'Лошади
0
Release
Заблокирован
28.12.2013, 21:00 #4
pro_user, http://www.cyberforum.ru/post5571658.html
0
Don_Omare
77 / 79 / 70
Регистрация: 18.12.2013
Сообщений: 211
28.12.2013, 21:01 #5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Var
n:integer;
Begin
Write('Введите год (2000-2014):... ');
readln(n);
Case n of
 
2000:begin
Write('Год Дракона');
End;
 
2001:begin
Write('Год Змеи ');
End;
 
2002:begin
Write('Год Лошади ');
End;
 
2003:begin
Write('Год Козы ');
End;
 
2004:begin
Write('Год Обезьяны ');
End;
 
2005:begin
Write('Год Петуха ');
End;
 
2006:begin
Write('Год Собаки ');
End;
 
2007:begin
Write('Год Свиньи ');
End;
 
2008:begin
Write('Год Крысы ');
End;
 
2009:begin
Write('Год Быка ');
End;
 
2010:begin
Write('Год Тигра ');
End;
 
2011:begin
Write('Год Кота ');
End;
 
2012:begin
Write('Год Дракона ');
End;
 
2013:begin
Write('Год Змеи ');
End;
 
2014:begin
Write('Год Лошади');
End;
 
End;
readln;
End.
1
ВАСИЛЕВС
557 / 480 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
28.12.2013, 21:13 #6
Можно немного укоротить если убрать повторения и лишние блоки.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
 n: 2000..2014; {проверка диапазона}
 
begin
 write('Введите год (2000-2014): ');
 readLn(n);
 case n of 
  2000, 2012: write('Год Дракона');
  2001, 2013: write('Год Змеи');
  2002, 2014: write('Год Лошади');
  2003: write('Год Козы');
  2004: write('Год Обезьяны'); 
  2005: write('Год Петуха'); 
  2006: write('Год Собаки');
  2007: write('Год Свиньи');
  2008: write('Год Крысы'); 
  2009: write('Год Быка');
  2010: write('Год Тигра');
  2011: write('Год Кота');
 end;
 readln;
end.
0
Don_Omare
77 / 79 / 70
Регистрация: 18.12.2013
Сообщений: 211
28.12.2013, 21:15 #7
Работает) я case of не часто пользовался не знаю что бегиныи енды можно убрать
0
ВАСИЛЕВС
557 / 480 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
28.12.2013, 21:20 #8
Цитата Сообщение от Don_Omare Посмотреть сообщение
не знаю что бегиныи енды можно убрать
Эти блоки можно не использовать если только одна команда. Блок используется для определения начала и конца набора команд. Причем это "правило" можно использовать во всех операторах языка.
0
pro_user
1 / 1 / 1
Регистрация: 05.12.2013
Сообщений: 15
29.12.2013, 19:30  [ТС] #9
сделайте, пожалуйста, блок схему
0
29.12.2013, 19:30
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.12.2013, 19:30
Привет! Вот еще темы с решениями:

Написать программу-меню, которая вводит дату некоторого дня года и печатает название соответствующего знака
Задача такая: Известно что астрологи делят год на 12 периодов , каждому из...

Составить программу, которая в зависимости от номера дня недели выводит на экран его название
Составить программу, которая в зависимости от порядкового номера дня...

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

Написать программу-меню , которая вводит дату некоторого дня года и печатает название соответствующего знака зодиака
Пожалуйста помогите! очень прошу Известно что астрологи делят год на 12...


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

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

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