Для вводимой даты года вывести название соответствующего знака Зодиака - QBasic

Формулировка задачи:

Дали задание на экзамен, язык Qbasic. К коду нужны комментарии, и желательно блоксхема. Астрологи делят год на 12 периодов по знакам Зодиака: • 20.01-18.02 – Водолей; 19.02-20.03 - Рыбы; 21.03-19.04 -Овен; • 20.04-20.05 - Телец; 21.05-21.06 - Близнецы; 22.06-22.07 - Рак; • 23.07-22.08 - Лев; 23.08-22.09 - Дева; 23.09-22.10 - Весы; • 23.10-22.11 - Скорпион; 23.11-21.12 - Стрелец; 22.12-19.01 - Козерог. Для вводимой даты года вывести название соответствующего знака Зодиака. Помогите все кто может, времени осталось не так много, а познания оставляют желать лучшего

Код к задаче: «Для вводимой даты года вывести название соответствующего знака Зодиака - QBasic»

textual
DIM Day AS INTEGER, Mon AS INTEGER
INPUT "Vvedite den, mecjac:", Day, Mon
IF (Mon = 1 AND Day >= 20) OR (Mon = 2 AND Day <= 18) THEN
    PRINT "Vodoley"
ELSEIF (Mon = 2 AND Day >= 19) OR (Mon = 3 AND Day <= 20) THEN
    PRINT "Rybi"
ELSEIF (Mon = 3 AND Day >= 21) OR (Mon = 4 AND Day <= 19) THEN
    PRINT "Oven"
ELSEIF (Mon = 4 AND Day >= 20) OR (Mon = 5 AND Day <= 20) THEN
    PRINT "Telec"
ELSEIF (Mon = 5 AND Day >= 21) OR (Mon = 6 AND Day <= 21) THEN
    PRINT "Bliznecy"
ELSEIF (Mon = 6 AND Day >= 22) OR (Mon = 7 AND Day <= 22) THEN
    PRINT "Rak"
ELSEIF (Mon = 7 AND Day >= 23) OR (Mon = 8 AND Day <= 22) THEN
    PRINT "Lev"
ELSEIF (Mon = 8 AND Day >= 23) OR (Mon = 9 AND Day <= 22) THEN
    PRINT "Deva"
ELSEIF (Mon = 9 AND Day >= 23) OR (Mon = 10 AND Day <= 22) THEN
    PRINT "Vesy"
ELSEIF (Mon = 10 AND Day >= 23) OR (Mon = 11 AND Day <= 22) THEN
    PRINT "Scorpion"
ELSEIF (Mon = 11 AND Day >= 23) OR (Mon = 12 AND Day <= 21) THEN
    PRINT "Strelec"
ELSEIF (Mon = 12 AND Day >= 22) OR (Mon = 1 AND Day <= 19) THEN
    PRINT "Kozerog"
END IF
END

6   голосов, оценка 4.333 из 5


СОХРАНИТЬ ССЫЛКУ