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

Знаки Зодиака

27.03.2012, 15:12. Показов 5156. Ответов 1
Метки нет (Все метки)

Добрый день! Прошу помочь с решением задачи.
Составить программу которая по заданной дате отображает на экране название соответствующего знака зодиака
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.03.2012, 15:12
Ответы с готовыми решениями:

Знаки зодиака
Известно, что астрологи делят год на 12 периодов и ставят каждому из них в соответствие знак...

Знаки Зодиака
Помогите пожалуйста написать программу в Pascal'e... Астрологи делят год на 12 периодов: ...

Посторить множество, в состав которого входят знаки операций отношения и знаки препинания
дана непустая последовательность символов. нужно посторить и напечатать множину к составу которой...

Знаки зодиака
Добрый вечер! Помогите, пожалуйста, с решением задачи. Даны 2 целых числа D (день), М...

__________________
1
3020 / 1908 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
27.03.2012, 17:04 2
Лучший ответ Сообщение было отмечено как решение

Решение

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
uses
  crt;
 
var
  d, m: Integer;
 
begin
  Clrscr;
  Writeln('Введите день: '); Readln(d);
  Writeln('Введите месяц: '); Readln(m);
  case m of
    1: 
      if d >= 21 Then Write('Водолей') Else
        Write('Козерог');
    2: 
      if d >= 21 Then Write('Рыбы') Else
        Write('Водолей');
    3: 
      if d >= 21 Then Write('Овен') Else
        Write('Рыбы');
    4: 
      if d >= 21 Then Write('Телец') Else
        Write('Овен');
    5: 
      if d >= 21 Then Write('Близнецы') Else
        Write('Телец');
    6: 
      if d >= 22 Then Write('Рак') Else
        Write('Близнецы');
    7: 
      if d >= 23 Then Write('Лев') Else
        Write('Рак');
    8: 
      if d >= 24 Then Write('Дева') Else
        Write('Лев');
    9: 
      if d >= 24 Then Write('Весы') Else
        Write('Дева');
    10:
      if d >= 24 Then Write('Скорпион') Else
        Write('Весы');
    11:
      if d >= 23 Then Write('Стрелец') Else
        Write('Скорпион');
    12:
      if d >= 22 Then Write('Козерог') Else
        Write('Стрелец');
  end;
  Readln
end.
6
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.03.2012, 17:04

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Даны номерные знаки нескольких автомашин. Опредеите, есть ли среди них знаки,имеющие код города не 77,90 или 99.
Даны номерные знаки нескольких автомашин. Опредеите, есть ли среди них знаки,имеющие код города не...

Заменить в строке знаки "+" на знаки "-", а знаки "-" удалить
2. Заменить в строке знаки "+" на знаки "-", а знаки "-" удалить. я сделала,но ошибка..не...

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

По дате рождения опредилить знак зодиака
По дате рождения опредилить знак зодиака!


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

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

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