Объяснение:= 18; { радиус }
w1 = -0.035; { угловая скорость }
w2 = -0.034; { угловая скорость }
w3 = -0.033; { угловая скорость }
o1 = 180; { радиус вращения }
Var
x,y,t:integer;
begin
setwindowsize(900,600); {размер окна}
x:=450; y:=300; {центр окна}
lockdrawing; {рисование во внеэкранном буфере}
setpenwidth(2);
t := 0;
repeat
clearwindow; {очищение окна}
DrawCircle(450, 300, 200);
DrawCircle(450, 300, 160);
DrawCircle(450, 300, 120);
DrawCircle(450, 300, 80);
t:=t+1;
setbrushcolor(clLime); {время движения }
circle(x + round(o1 * cos(t*w1)), y - round(o1 * sin(t*w1)), r1);
setbrushcolor(clSkyBlue);
circle(x + round(o1 * cos(t*w2)), y - round(o1 * sin(t*w2)), r1);
setbrushcolor(clPurple);
circle(x + round(o1 * cos(t*w3)), y - round(o1 * sin(t*w3)), r1);
sleep(1); {задержка}
redraw; {формирование нового кадра}
until False;
end.
7
Объяснение:
Просто подставляем каждую пару чисел в программу (s;k)
У нас НЕ должно выполняться условие
если s>A или k>9
Значит у нас не должно выполняться точно 2-ое условие: Оно не выполняется при парах чисел:
(8;-10) (16;2) (5;-5) (-3:9) (-10;7) (-10;-2) (14;1) (20;5)
Теперь из этих пар мы подбираем такое А, которое будет ≈ в середине s, т.е. между [-10;20]
Т.е. минимальных 4 значения s мы исключаем, потому что должно ХОТЯ БЫ выполниться условие s>A
Получаем, что у нас останутся пары:
(8;-10) (16;2) (14;1) (20;5)
Вот и подбираем такое A, чтобы s>A
Максимальное s=20, значит оно тоже не подойдет
Минимальное s=8, значит с него должно выполняться условие s>A , => наибольшее А = 7
