0 / 0 / 0
Регистрация: 17.09.2011
Сообщений: 6
1

Вывести знак Зодиака, соответствующий дате

05.10.2011, 19:08. Показов 3411. Ответов 3
Метки нет (Все метки)

(Case) Даны два целых числа: D (день) и М (месяц), определяющие правильную дату. Вывести знак Зодиака, соответствующий этой дате: «Водолей» (20.1-18.2), «Рыбы» (19.2-20,3), «Овен» (21.3-19.4), «Телец» (20.4-20.5), «Близнецы» (21.5-21.6), «Рак» (22.6-22.7), «Лев» (23.7-22.8), «Дева» (23.8-22.9), «Весы» (23.9-22.10), «Скорпион» (23.10-22.11), «Стрелец» (23.11-21.12), «Козерог» (22.12-19.1).
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.10.2011, 19:08
Ответы с готовыми решениями:

Вывести знак Зодиака, соответствующий дате
Даны два целых числа: D (день) и M (месяц), определяющие правильную дату. Вывести знак Зодиака,...

Дата дана в виде dd. mm. Определить какой знак зодиака соответствует этой дате
Известно, что астрологи делят год на 12 периодов и каждый из них ставит в соответствии один из...

Вывести знак Зодиака, соответствующий введенной дате
21. Даны два целых числа: D (день) и M (месяц), определяющие правильную дату. Вывести знак Зодиака,...

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

3
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
05.10.2011, 19:09 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
Uses CRT;
 
var s:string;
    D,M:byte;
 
begin
 ClrScr;
 repeat
  write('Ââåäèòå äåíü: ');
  readln(D);
 until D in [1..31];
 repeat
  write('Ââåäèòå ìåñÿö: ');
  readln(M);
 until M in [1..12];
Case M of
 1:  If D < 20 Then writeln('Êîçåðîã') Else writeln('Âîäîëåé');
 2:  If D < 19 Then writeln('Âîäîëåé') Else writeln('Ðûáû');
 3:  If D <= 20 Then writeln('Ðûáû') Else writeln('Îâåí');
 4:  If D < 20 Then writeln('Îâåí') Else writeln('Òåëåö');
 5:  If D <= 20 Then writeln('Òåëåö') Else writeln('Áëèçíåöû');
 6:  If D <= 21 Then writeln('Áëèçíåöû') Else writeln('Ðàê');
 7:  If D <= 22 Then writeln('Ðàê') Else writeln('Ëåâ');
 8:  If D < 23 Then writeln('Ëåâ') Else writeln('Äåâà');
 9:  If D < 23 Then writeln('Äåâà') Else writeln('Âåñû');
 10: If D < 23 Then writeln('Âåñû') Else writeln('Ñêîðïèîí');
 11: If D <= 22 Then writeln('Ñêîðïèîí') Else writeln('Ñòðåëåö');
 12: If D <= 21 Then writeln('Ñòðåëåö') Else writeln('Êîçåðîã');
End;
end.
0
0 / 0 / 0
Регистрация: 17.09.2011
Сообщений: 6
05.10.2011, 19:57  [ТС] 3
ой блин я не думал даже что так сложно О_о

Добавлено через 2 минуты
y=a+ln^4(1+модуль(х)) как это записать в паскале
0
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
05.10.2011, 20:29 4
да как бы это не так уж и сложно.
Pascal
1
y:=a+sqr(sqr(ln(1+abs(x))));
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.10.2011, 20:29
Помогаю со студенческими работами здесь

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

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

Опредилить день недели, соответствующий заданной дате дате
вам дона некоторая дата 21 века,опредилите день недели, соответствующий этой дате.Учтите чот первое...

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


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

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

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