Паскаль. Программа - Ваш знак зодиака

[Vanet]

Плиз помогите.

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

Зараннее спасибо!!!

[Ленуся]

Так это выглядит в бейсике:

INPUT "введите число и месяц вашего рождения в формате ММДД без пробелов"; n
IF n>=0422 AND n<0522 THEN PRINT " Вы - овен"

И так повторять последнюю строчку двенадцать раз, изменяя число и знак зодиака.

[Vanet]

Хорошо, спасибо!!!

[Surgeon]

Можно попробовать представить дату в виде дробного числа, где целая часть - месяц, а дробная - день месяца.
например "21 января"=01,21, или "15 марта"=03,15
Для решения задать 12(? или 13) констант - границы знаков зодиака, т.е. первая граница - "22 января"=01,22, вторая граница "22 февраля"=02,22.
Полученные от пользователя данные перегонять в такой же формат и проводить сравнение :
если НужнаяДата<01,22 то - первый знак зодиака
если НужнаяДата<02,22 то второй знак зодиака
...
если НужнаяДата>12,22 то первый знак зодиака
Все сравнения сделать в один Case и оформить как функцию
ДатаToЗнакЗодиака(НужнаяДата:TDate) :ЗнакЗодиака(или просто string)

[Alex21]

program Project2;
var
znak : array[1..12] of String=('z1','z2','z3','z4','z5','z6','RAK','LEV','z9','z10','z11','z12');
{1-й знак = 22 декабря - 21 января}
day,month : byte;
zodiak:string;
 
procedure input;
begin
  Write('day of Birthday : ');  ReadLn(day);
  Write('month of Birthday : ');  ReadLn(month);
end;
 
begin
  input;
  if ((day>=22)and(month>=1)and(month<12)) then
      zodiak:=znak[month+1] else zodiak:=znak[month];
  if ((day<22)and(month=1)or (month=12)and (day>=22))then
      zodiak:=znak[1];
  Writeln('znak zodiaka : ',zodiak);
  Readln;
end.

[Alex21]

Предыдущий пост просьба удалить.

 
program Project2;
var
znak : array[1..12] of String;

day,month : byte;
zodiak:string;
 
procedure CreateMass;
begin
{1-й знак = 22 декабря - 21 января}
znak[1]:='z1';
znak[2]:='z2';
znak[3]:='z3';
znak[4]:='z4';
znak[5]:='z5';
znak[6]:='z6';
znak[7]:='RAK';
znak[8]:='LEV';
znak[9]:='z9';
znak[10]:='z10';
znak[11]:='z11';
znak[12]:='z12';
end;

procedure input;
begin
  Write('day of Birthday : ');  ReadLn(day);
  Write('month of Birthday : ');  ReadLn(month);
end;

begin
  createmass;
  input;
  if ((day>=22)and(month>=1)and(month<12)) then
      zodiak:=znak[month+1] else zodiak:=znak[month];
  if ((day<22)and(month=1)or (month=12)and (day>=22))then
      zodiak:=znak[1];
  Writeln('znak zodiaka : ',zodiak);
  Readln;
end.