Эта статья предоставляет исчерпывающую информацию о написании программы гороскопа на языке программирования Pascal. Гороскоп будет построен на основе даты рождения и знака зодиака пользователя. Программа будет содержать функции для чтения ввода пользователя, вычисления знака зодиака и отображения гороскопа.
Чтение ввода пользователя
Во-первых, программе необходимо запросить у пользователя дату рождения и знак зодиака. Это можно сделать с помощью следующих команд Pascal⁚
pascal
program Horoscope;
var
dateOfBirth⁚ string;
zodiacSign⁚ string;
begin
writeln(‘Введите дату рождения (дд/мм/гггг): ‘);
readln(dateOfBirth);
writeln(‘Введите знак зодиака⁚ ‘);
readln(zodiacSign);
Вычисление знака зодиака
После того, как пользователь ввел дату рождения, программа должна вычислить знак зодиака. Это можно сделать с помощью следующих команд Pascal⁚
pascal
const
zodiacSigns⁚ array[1..12] of string = (‘Овен’, ‘Телец’, ‘Близнецы’, ‘Рак’, ‘Лев’, ‘Дева’, ‘Весы’, ‘Скорпион’, ‘Стрелец’, ‘Козерог’, ‘Водолей’, ‘Рыбы’);
var
month⁚ integer;
day⁚ integer;
begin
month ⁚= StrToInt(dateOfBirth[4..5]);
day ⁚= StrToInt(dateOfBirth[1..2]);
if (month = 3) and (day >= 21) then
zodiacSign ⁚= ‘Овен’;
elif (month = 4) and (day <= 19) then zodiacSign ⁚= 'Овен'; elif (month = 4) and (day >= 20) then
zodiacSign ⁚= ‘Телец’;
elif (month = 5) and (day <= 20) then zodiacSign ⁚= 'Телец'; elif (month = 5) and (day >= 21) then
zodiacSign ⁚= ‘Близнецы’;
elif (month = 6) and (day <= 20) then zodiacSign ⁚= 'Близнецы'; elif (month = 6) and (day >= 21) then
zodiacSign ⁚= ‘Рак’;
elif (month = 7) and (day <= 22) then zodiacSign ⁚= 'Рак'; elif (month = 7) and (day >= 23) then
zodiacSign ⁚= ‘Лев’;
elif (month = 
and (day <= 22) then zodiacSign ⁚= 'Лев'; elif (month = 8) and (day >= 23) then
zodiacSign ⁚= ‘Дева’;
elif (month = 9) and (day <= 22) then zodiacSign ⁚= 'Дева'; elif (month = 9) and (day >= 23) then
zodiacSign ⁚= ‘Весы’;
elif (month = 10) and (day <= 22) then zodiacSign ⁚= 'Весы'; elif (month = 10) and (day >= 23) then
zodiacSign ⁚= ‘Скорпион’;
elif (month = 11) and (day <= 21) then zodiacSign ⁚= 'Скорпион'; elif (month = 11) and (day >= 22) then
zodiacSign ⁚= ‘Стрелец’;
elif (month = 12) and (day <= 21) then zodiacSign ⁚= 'Стрелец'; elif (month = 12) and (day >= 22) then
zodiacSign ⁚= ‘Козерог’;
elif (month = 1) and (day <= 19) then zodiacSign ⁚= 'Козерог'; elif (month = 1) and (day >= 20) then
zodiacSign ⁚= ‘Водолей’;
elif (month = 2) and (day <= 18) then zodiacSign ⁚= 'Водолей'; elif (month = 2) and (day >= 19) then
zodiacSign ⁚= ‘Рыбы’;
else
zodiacSign ⁚= ‘Рыбы’;
end;
Наконец, программа должна вывести гороскоп для знака зодиака пользователя. Это можно сделать с помощью следующих команд Pascal⁚
pascal
case zodiacSign of
‘Овен’⁚
writeln(‘Вы Овен. Вы энергичный, страстный и независимый.’);
‘Телец’⁚
writeln(‘Вы Телец. Вы практичный, стабильный и надежный.’);
‘Близнецы’⁚
writeln(‘Вы Близнецы. Вы коммуникабельный, любопытный и остроумный.’);
‘Рак’⁚
writeln(‘Вы Рак. Вы чувствительный, заботливый и интуитивный.’);
‘Лев’⁚
writeln(‘Вы Лев. Вы смелый, уверенный и творческий.’);
‘Дева’⁚
writeln(‘Вы Дева. Вы организованный, практичный и трудолюбивый.’);
‘Весы’⁚
writeln(‘Вы Весы. Вы дипломатичный, общительный и справедливый.’);
‘Скорпион’⁚
writeln(‘Вы Скорпион. Вы страстный, интенсивный и загадочный.’);
‘Стрелец’⁚
writeln(‘Вы Стрелец. Вы оптимистичный, авантюрный и независимый.’);
‘Козерог’⁚
writeln(‘Вы Козерог. Вы амбициозный, дисциплинированный и трудолюбивый.’);
‘Водолей’⁚
writeln(‘Вы Водолей. Вы оригинальный, независимый и гуманный.’);
‘Рыбы’⁚
writeln(‘Вы Рыбы. Вы интуитивный, творческий и сострадательный.’);
end;
Пример
Вот пример вывода программы гороскопа на Паскале⁚
Введите дату рождения (дд/мм/гггг): 1 января 1900
Введите знак зодиака⁚ Козерог
Вы Козерог. Вы амбициозный, дисциплинированный и трудолюбивый.
Эта программа гороскопа на Паскале предоставляет простой и эффективный способ вычисления и отображения гороскопа на основе даты рождения и знака зодиака пользователя. Программа использует последовательную обработку знаков зодиака для вывода персонализированного гороскопа.