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

Turbo Pascal

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

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

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

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

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

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

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

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

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

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

8
Don_Omare
77 / 79 / 31
Регистрация: 18.12.2013
Сообщений: 211
28.12.2013, 20:53 #2
Вы мне названия годов скажите я вам напишу программу
0
pro_user
1 / 1 / 0
Регистрация: 05.12.2013
Сообщений: 15
28.12.2013, 21:00  [ТС] #3
Дракона', 'Змеи', 'Лошади', 'Овцы
'Обезьяны', 'Петуха', 'Собаки', 'Кабана',
'Крысы', 'Вола', 'Тигра', 'Кролика',
'Дракона', 'Змеи', 'Лошади
0
Don_Omare
77 / 79 / 31
Регистрация: 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
ВАСИЛЕВС
556 / 479 / 60
Регистрация: 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 / 31
Регистрация: 18.12.2013
Сообщений: 211
28.12.2013, 21:15 #7
Работает) я case of не часто пользовался не знаю что бегиныи енды можно убрать
0
ВАСИЛЕВС
556 / 479 / 60
Регистрация: 14.02.2012
Сообщений: 1,561
28.12.2013, 21:20 #8
Цитата Сообщение от Don_Omare Посмотреть сообщение
не знаю что бегиныи енды можно убрать
Эти блоки можно не использовать если только одна команда. Блок используется для определения начала и конца набора команд. Причем это "правило" можно использовать во всех операторах языка.
0
pro_user
1 / 1 / 0
Регистрация: 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
Привет! Вот еще темы с ответами:

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

Составить программу, которая в зависимости от номера дня недели выводит на экран его название - Turbo Pascal
Составить программу, которая в зависимости от порядкового номера дня недели(1,2,3...) выводит на экран его название(понедельник, вторник..)...

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

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


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

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

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