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

@vozhd23 · Регистрация: 27.12.2013

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)

@bormant · 24.03.2014, 23:57

Что-то вроде:

Pascal

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.

@vozhd23 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

Опции темы

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

Решение