На космическом корабле незнайка встретил кодовый замок с четырьмя цветными
кнопками. для открытия замка необходимо нажать одновременно две кнопки
определенного цвета. незнайка для подбора цветового шифра попробовал множество
комбинаций и записал результат своих опытов с кнопками в виде нескольких
логических утверждений-инструкций, определяющих состояние замка:
1. «если нажата красная или зеленая кнопка, то следует нажать синюю
кнопку» = замок не откроется;
2. «если нажата красная или синяя кнопка, то следует нажать желтую
кнопку» = замок не откроется;
3. «нажата зеленая и желтая кнопка» = замок не откроется
4. «нажата зеленая или желтая кнопка» = замок откроется.
незнайке, определите цвета кнопок, которые необходимо нажать для
открытия кодового замка. в текстовом файле в первой строке укажите только первые
буквы цветов этих кнопок. затем, начиная со второй строки, объясните свое решени
procedure Draw(x, y, l, u : Real; t : Integer);
procedure Draw2(Var x, y: Real; l, u : Real; t : Integer);
begin
Draw(x, y, l, u, t);
x := x + l*cos(u);
y := y - l*sin(u);end;
begin
if t > 0 then
beginl := l/3;Draw2(x, y, l, u, t-1);Draw2(x, y, l, u+pi/3, t-1);
Draw2(x, y, l, u-pi/3, t-1);Draw2(x, y, l, u, t-1);end
else
Line(Round(x), Round(y), Round(x+cos(u)*l), Round(y-sin(u)*l))end;
begin
SetWindowSize(425,500);
SetWindowCaption('Фракталы: Снежинка Коха');
Draw(10, 354, 400, pi/3, 4);Draw(410, 354, 400, pi, 4);
Draw(210, 8, 400, -pi/3, 4);end.