Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
0 / 0 / 0
Регистрация: 06.03.2015
Сообщений: 2
1

Введите с клавиатуры номер месяца и выведите его название, используя разные цвета для каждого сезона

06.03.2015, 11:31. Показов 2336. Ответов 2
Метки нет (Все метки)

составить алгоритм и программу, введите с клавиатуры номер месяца и выведите его название, используя разные цвета для каждого сезона. не могу никак правильно сделать. помогите пожалуйста)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.03.2015, 11:31
Ответы с готовыми решениями:

Введите номер месяца в году. Выведите на экран сообщение о времени года
1. Введите номер месяца в году. Выведите на экран сообщение о времени года. 2. Напишите...

Введите номер месяца в году. Выведите на экран сообщение о времени года
Введите номер месяца в году. Выведите на экран сообщение о времени года

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

Определить системную дату, и вывести название времени года, используя разные цвета для разных сезонов.
Определить системную дату, и вывести название времени года, используя разные цвета для разных...

2
6 / 6 / 13
Регистрация: 27.01.2015
Сообщений: 24
06.03.2015, 12:51 2
Лучший ответ Сообщение было отмечено rita1234 как решение

Решение

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
uses crt;
var m,ex:integer;
begin
repeat
 repeat
  writeln('Введите месяц - ');read(m);
 until m in [1..12];
 if (m in [1..2]) or (m = 12) then
 begin
  textcolor(white);
  case m of
   1:writeln('Январь');
   2:writeln('Февраль');
   12:writeln('Декабрь');
  end;
 end;
 
 if (m in [3..5]) then
 begin
  textcolor(lightgreen);
  case m of
   3:writeln('Март');
   4:writeln('Апрель');
   5:writeln('Май');
  end;
 end; 
 
 if (m in [6..8]) then
 begin
  textcolor(green);
  case m of
   6:writeln('Июнь');
   7:writeln('Июль');
   8:writeln('Авгус');
  end;
 end;
 
 if (m in [9..11]) then
 begin
  textcolor(yellow);
  case m of
   9:writeln('Сентябрь');
   10:writeln('Октябрь');
   11:writeln('Ноябрь');
  end;
 end;
 
textcolor(lightgray);
writeln('Для выхода нажмите 0 - ');read(ex);
until ex=0;
end.
1
105 / 105 / 51
Регистрация: 11.04.2014
Сообщений: 160
06.03.2015, 13:17 3
Цитата Сообщение от rita1234 Посмотреть сообщение
составить алгоритм и программу, введите с клавиатуры номер месяца и выведите его название, используя разные цвета для каждого сезона. не могу никак правильно сделать. помогите пожалуйста)
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
uses crt;
var n: integer;
begin
     readln(n);
    case n of
    1:  textcolor (1);
    2:  textcolor (1);
    3:  textcolor (2);
    4:  textcolor (2);
    5:  textcolor (2);
    6:  textcolor (4);
    7:  textcolor (4);
    8:  textcolor (4);
    9:  textcolor (14);
    10:  textcolor (14);
    11:  textcolor (14);
    12:  textcolor (1);
    end;
    case n of
    1:   writeln('January');
    2:   writeln('February');
    3:   writeln('March');
    4:   writeln('April');
    5:   writeln('May');
    6:   writeln('June');
    7:   writeln('July');
    8:   writeln('August');
    9:   writeln('September');
    10:   writeln('September');
    11:   writeln('November');
    12:   writeln('December');
    end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.03.2015, 13:17

По введенной дате определить номер для в году, название сезона
По вводимой дате (число и месяц) , подсчитать номер этого дня в году (високосный год не учитывать)....

Введите номер дня недели. Выведите на экран название дня
Введите номер дня недели. Выведите на экран название дня.

Перевести номер месяца в его название
Народ помогите пожалуйста нужна программа в VB переводящая номер месяца в его название

Как введя номер месяца в году получить его название
Разработать форму, при помощи которой введя номер месяца в году, получается его название?


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru