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

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

24.03.2014, 17:10. Показов 4542. Ответов 1
Метки нет (Все метки)

21. Даны два целых числа: D (день) и M (месяц), определяющие правильную дату. Вывести знак Зодиака, соответствующий этой дате: «Водолей» (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
24.03.2014, 17:10
Ответы с готовыми решениями:

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

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

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

По введенной дате рождения дополнить файл строками соответсвующего знака Зодиака
Кто напишет програму ?? Условие По введенной дате рождения (похотду с клавиатуры )(день, месяц ,...

1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7502 / 4370 / 2776
Регистрация: 22.11.2013
Сообщений: 12,506
Записей в блоге: 1
24.03.2014, 23:57 2
Лучший ответ Сообщение было отмечено vozhd23 как решение

Решение

Что-то вроде:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
type
  tZod=record
    name: string[8]; d, m: integer;
  end;
const
  zod: array [1..12] of tZod = (
    (name:'Водолей'; d:20;m:1), (name:'Рыбы';    d:19;m:2), (name:'Овен';d:21;m:3),
    (name:'Телец';   d:20;m:4), (name:'Близнецы';d:21;m:5), (name:'Рак'; d:22;m:6),
    (name:'Лев';     d:23;m:7), (name:'Дева';    d:23;m:8), (name:'Весы';d:23;m:9),
    (name:'Скорпион';d:23;m:10),(name:'Стрелец'; d:23;m:11),(name:'Козерог';d:22;m:12));
var
  d, m, i: integer;
begin
  Write('Введите день и месяц: '); ReadLn(d,m);
  i:=1;
  while ((m>zod[i].m) or ((m=zod[i].m) and (d>=zod[i].d)))
    and (i<=12) do inc(i);
  dec(i); if i<1 then i:=12;
  WriteLn(zod[i].name);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.03.2014, 23:57
Помогаю со студенческими работами здесь

По введенной дате рождения дополнить файл строками соответсвующего знака Зодиака
Ось такє завдання, допоможіть По уведеній даті народження (день і місяць, форма уведення у файл...

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

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

По дате рождения определить знак зодиака
program znak; uses crt; var m,d:byte; begin clrscr; writeln('Введите дату рождения(пример 12...


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

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

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