Цикл должен рисовать фигуру из 7 окружностей. Цвет окружности — 'navy'. На каждом шаге цикла радиус круга должен увеличиваться на 10. Результат работы первого шага должен быть как на картинке.
2. Добавь ещё три фигуры из окружностей в других направлениях.
С команды left(90) поверни черепашку влево и нарисуй ещё одну фигуру, аналогичную шагу 1. Затем ещё раз. Всего должно получиться четыре набора кругов.

Примечание. Не забывай, что после смены направления первая окружность снова должна быть маленького размера. Для этого установи нужное значение переменной size, отвечающей за радиус.

3. Увеличь скорость и скрой исполнителя.
Чем больше заказов выполнит ProTeam, тем больше прибыли получит компания.

Чтобы рисовать орнамент быстрее, используй команду speed(50). Расположи её перед началом отрисовки узора.

Обрати внимание, что после работы исполнителя рисунок должен остаться на экране, а исполнитель должен быть скрыт.

мой код что неправильно?
from turtle import *
speed = 50
pensize(2)
color("navy")
size = 10
for i in range(7):
circle(size + i * 10)
done()
import turtle
turtle.left(90)
pensize(2)
color("navy")
size = 10
for i in range(7):
circle(size + i * 10)
done()
import turtle
turtle.left(90)
pensize(2)
color("navy")
size = 10
speed = 50
for i in range(7):
circle(size + i * 10)
done()
import turtle
turtle.left(90)
pensize(2)
color("navy")
size = 10
for i in range(7):
circle(size + i * 10)
turtle.done()

Цикл должен рисовать фигуру из 7 окружностей. Цвет окружности — 'navy'. На каждом шаге цикла радиус

Показать ответ

Ответ:

abogdanov94

29.10.2021 08:08

Program Pr;
Var
a : array [1..100, 1..100] of integer;
i, max, min, j, n: integer;
Begin
cls;
read(n);
min := 100000;
max := -100000;
for i := 1 to n do
for j := 1 to n do
   begin
read(a[i,j]);
if (a[i,j] > max) then
max := a[i,j];
  if (a[i,j] < min) then
min := a[i,j];
end;
writeln ('Сумма = ', min + max);
writeln ('Разность = ', max - min);
writeln ('Произведение = ', max * min);End.

0,0(0 оценок)

Ответ:

3456789012345678905

17.07.2022 13:16

Const n=7;
Day:array[1..7] of string[15] = ('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье');
var
T:array[1..7] of integer;
D: array[1..7] of real;
i,k:byte;
s:integer;
SR:real;
begin
S:=0;
randomize;
Writeln('Температура в течение недели:');
for i:=1 to n do
begin
T[i]:=random(50)-25;
S:=S+T[i];
write(T[i]:4);
end;
writeln;
SR:=S/n;
writeln('Средняя температура: ',SR:3:2);
k:=0;
Writeln('Температуры ниже средней в дни : ');
for i:=1 to n do
if T[i]<SR then
begin
write(Day[i]:15);
k:=k+1;
end;
writeln;
writeln('Всего ',K,' дня(ей)');
writeln('Массив отклонений:');
for i:=1 to n do
begin
D[i]:=T[i]-SR;
write(d[i]:8:3);
end;
end.

0,0(0 оценок)

Популярные вопросы: Информатика