Программа, определяющая знак зодиака по введенной дате рождения

Категория: Delphi/Pascal
2011-08-20 00:22:40

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

code: #pascal
  1. program Project2;
  2. var
  3. znak : array[1..12] of String;
  4.  
  5. day,month : byte;
  6. zodiak:string;
  7.  
  8. procedure CreateMass;
  9. begin
  10. {1-й знак = 22 декабря - 21 января}
  11. znak[1]:='Kozerog';
  12. znak[2]:='Vodoley';
  13. znak[3]:='Ryby';
  14. znak[4]:='Oven';
  15. znak[5]:='Telec';
  16. znak[6]:='Bliznecy';
  17. znak[7]:='RAK';
  18. znak[8]:='LEV';
  19. znak[9]:='Deva';
  20. znak[10]:='Vesy';
  21. znak[11]:='Skorpion';
  22. znak[12]:='Strelec';
  23.  
  24. end;
  25.  
  26. procedure input;
  27. begin
  28.   Write('day of Birthday : ');  ReadLn(day);
  29.   Write('month of Birthday : ');  ReadLn(month);
  30. end;
  31.  
  32. begin
  33.   createmass;
  34.   input;
  35.   if ((day>=22)and(month>=1)and(month<12)) then
  36.       zodiak:=znak[month+1] else zodiak:=znak[month];
  37.   if ((day<22)and(month=1)or (month=12)and (day>=22))then
  38.       zodiak:=znak[1];
  39.   Writeln('znak zodiaka : ',zodiak);
  40.   Readln;
  41. end.
Поделиться:

Похожие статьи:

теги: консольное приложение, студенты, pascal