Написание программы паскаль знак зодиака предсказание на лень

Хотите получать короткие, точные и… ленивые гороскопы прямо из консоли? Ниже, готовое и простое решение на языке PascalABC.NET. Программа запрашивает лишь день и месяц рождения, после чего выдаёт единственную аффирмацию-девиз, подобранную под ваш знак зодиака. Ничего лишнего, никакой рекламы, никакой предоплаты — полностью бесплатно.

Функционал

• Лёгкий ввод: только день и месяц, без года.
• 12 туннельных ленивых аффирмаций по типу «сегодня можно чуть-чуть отдохнуть» и «дела напишут себя сами».
• Готовый source-файл: открываете в PascalABC.NET, жмёте F9 — всё работает.
• Код свободен для правок: меняйте фразы, знаки или добавляйте дополнительные мантры.

Код

{LazyZodiac.pas}
uses System;

function GetZodiacSign(day, month: integer): string;
begin
 case month of
 1: Result := IfThen(day < 21, 'козерог ♑', 'водолей ♒');
 2: Result := IfThen(day < 20, 'водолей ♒', 'рыбы ♓');
 3: Result := IfThen(day < 21, 'рыбы ♓', 'овен ♈');
 4: Result := IfThen(day < 21, 'овен ♈', 'телец ♉');
 5: Result := IfThen(day < 22, 'телец ♉', 'близнецы ♊');
 6: Result := IfThen(day < 22, 'близнецы ♊', 'рак ♋');
 7: Result := IfThen(day < 23, 'рак ♋', 'лев ♌');
 8: Result := IfThen(day < 23, 'лев ♌', 'дева ♍');
 9: Result := IfThen(day < 24, 'дева ♍', 'весы ♎');
 10: Result := IfThen(day < 24, 'весы ♎', 'скорпион ♏');
 11: Result := IfThen(day < 23, 'скорпион ♏', 'стрелец ♐');
 12: Result := IfThen(day < 22, 'стрелец ♐', 'козерог ♑')
 end;
end;

begin
 var d,m: integer;
 Write('Введите день и месяц рождения (через пробел): ');
 Read(d,m);
 
 case GetZodiacSign(d,m) of
 'козерог ♑': Writeln('Сегодня козерогу можно полежать; всё успеется — гарантия!');
 'водолей ♒': Writeln('Водолею достаточно мысленно всё организовать — мир сам соберётся.');
 'рыбы ♓': Writeln('Рыбам пора отключиться и довериться потоку.');
 'овен ♈': Writeln('Быть немного ленивым — ваше новое оружие, овен.');
 'телец ♉': Writeln('Телец умеет отдыхать так, что дела продолжают делаться сами.');
 'близнецы ♊':Writeln('Близнецам для вдохновения нужен вечерний сериал и пицца.');
 'рак ♋': Writeln('Раку доступен магический приём: включите «зануда-режим» — и всё.');
 'лев ♌': Writeln('Лев гордится тем, что он умеет лежать с достоинством.');
 'дева ♍': Writeln('Деве достаточно двух щелчков мышью — остальное сделается.');
 'весы ♎': Writeln('Весы балансируют между делом и ленью, и это тоже искусство.');
 'скорпион ♏':Writeln('По глубокой тайне скорпион простит себе любой сон.');
 'стрелец ♐': Writeln('Стрелец напишет заявление о лени на котором всё решится.')
 end;
 Writeln('До встречи завтра!');
end.

Как запустить

1. Скачайте PascalABC.NET с официального сайта pascalabc.net (бесплатно).

2. Сохраните код в файл LazyZodiac.pas, откройте в IDE и нажмите F9 или кнопку «Запустить».
3. Готово! Вводите день и месяц и читайте свою «ленивую» мантру.

Мантры и аффирмации

При желании можно заменить фразы-заготовки на собственные аудио-мантра-аудио или короткие рунические аффирмации. Просто отредактируйте строки в Writeln('...'): вводите любое «магическое слово» или подборку из мантр, код станет полем для ваших личных практик.

Контакты поддержки

Часто задаваемые вопросы

Можно ли потом расширить программу?

— Да. Добавьте больше аффирмаций, привяжите их к конкретным датам, внесите мантры или обратитесь к нам за помощью — консультируем круглосуточно.

Гарантия результата?

— Если гороскоп не выводится технически, поможем исправить ошибку удалённо (бесплатно). Афтэкриейтивные предсказания, дело вашей интуиции.

Как связаться, если Telegram не открывается?

— Пишите на тот же номер в WhatsApp или звоните по телефону: +7 -23 123-45-67.

Программа распространяется «как есть», коммерческого использования не подлежит. Мы не оказываем платные эзотерические услуги, но всегда готовы помочь с расширением и отладкой кода.