Как нарисовать иньянь в пайтоне?кто знает как написать команду?

251

477

Посмотреть ответы 2

Ответы на вопрос:

Шkolnitsa

Информатика

4,4(77 оценок)

from turtle import *

RAD = 100

RAD2 = RAD / 2

RAD6 = RAD / 6

degrees()

fillcolor('black')

begin_fill()

circle(RAD, 180)

end_fill()

circle(RAD, 180)

left(180)

penup()

goto(0, RAD)

pendown()

begin_fill()

circle(RAD2, 180)

end_fill()

penup()

goto(0, RAD)

pendown()

fillcolor('white')

begin_fill()

circle(RAD2, 180)

end_fill()

penup()

goto(0, RAD2 + RAD6)

begin_fill()

circle(RAD6)

end_fill()

fillcolor('black')

goto(0, 2 * (RAD - RAD6))

begin_fill()

circle(RAD6)

end_fill()

Марси667

Информатика

4,7(61 оценок)

Const nm = 100; type mas = array[1..nm] of integer; procedure shell(var a: mas; n: integer); { сортировка методом шелла } var i, j, step, t: integer; begin step : = n div 2; while step > 0 do begin for j : = n - step downto 1 do begin i : = j; while i < = n - step do begin if a[i] > a[i + step] then begin t : = a[i]; a[i] : = a[i + 1]; a[i + 1] : = t end; i : = i + step end end; step : = step div 2 end end; var x: mas; i, n: integer; begin randomize; write('введите число элементов в массиве (1-100): '); readln(n); writeln('исходный массив'); for i : = 1 to n do begin x[i] : = random(101) - 50; write(x[i]: 4) end; shell(x, n); writeln(#13#10, 'отсортированный массив'); for i : = 1 to n do write(x[i]: 4) end. тестовое решение: введите число элементов в массиве (1-100): 20 исходный массив -8 -17 -19 1 -3 23 -33 30 -27 -45 12 26 -24 18 37 8 47 -14 -19 -3 отсортированный массив -45 -33 -27 -24 -19 -19 -17 -14 -8 -3 -3 1 8 12 18 23 26 30 37 47