Помогите с лабой

[Rainb0wDash]

Всем привет. Необходимо решить след.задачи, Паскаль.
Первая:
Во вложении.

Вторая:
"В восточном календаре принят 60-летний цикл, состоящий из 12-летних подциклов, обозначаемых названиями цвета: зеленый, красны, желтый, белый и черный. В каждом подцикле годы носят названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. По номеру года определить его название, если 1984 – начало цикла: «год зеленой крысы»."
Препод со своими закидонами, массивы использовать не дает в этой задаче. По идее, все должно быть сделано только с использованием условий..

[VIK_aka_TOR]

про года...

n := year - 1984; // year - год который ввели
while (n < 0) // на случай если введенный год меньше 1984
 n := n + 60;

n_color := n mod 12; // для цвета
 // тут через case перебераем цвета, 0 - зеленый, 1 - красный, 2 - желтый и т.д.

n_animals := n mod 5;
// тоже через case , 0 - крыса, 1 - корова , 2 - тигр

можно конечно вместо case использовать if, но case покрасивше будет... надеюсь мысль ясна

про область вхождения, большой круг с радиусом 2.0 и центром в ноль, а второй с радиусом 1.0 и центром в 2.0 ?

[Serge_Bliznykov]

n_color := n mod 12; // для цвета
 // тут через case перебераем цвета, 0 - зеленый, 1 - красный, 2 - желтый и т.д.

n_animals := n mod 5;

опечатка.
всё наоборот.
цветов 5 штук. животных - 12 штук.

[VIK_aka_TOR]

Сообщение от Serge_Bliznykov

опечатка.
всё наоборот.
цветов 5 штук. животных - 12 штук.

Виноват, очепятался)
Спасибо...

[Rainb0wDash]

Спасибо, все работает! Осталась одна задача для полного счастья.

[Rainb0wDash]

Сообщение от VIK_aka_TOR

про область вхождения, большой круг с радиусом 2.0 и центром в ноль, а второй с радиусом 1.0 и центром в 2.0 ?

Именно так.

[BDA]

if (x * x + y * y <= 4) and (((x - 2) * (x - 2) + y * y <= 1) or (y >= -x / 3 + 2)) then ...

[VIK_aka_TOR]

(y >= -x / 3 + 2)

пожалуй заменить на

 (y >= (6-x)/4 )

т.к. при х = 2 получаем y = 1 + 1/3 если : y = -x / 3 + 2, хотя должно быть 1 (радиус малой окружности)

[BDA]

VIK_aka_TOR, согласен, не через ту вторую точку "провел".

[Rainb0wDash]

Спасибо всем.