import turtle
from math import tan, sqrt, pi
def prepare(x, y, color):
turtle.penup()
turtle.goto(x, y)
turtle.pendown()
turtle.color(color)
turtle.begin_fill()
def draw_polygon(num_sides, side_length):
angle = 360.0 / num_sides
for i in range(num_sides):
turtle.forward(side_length)
turtle.right(angle)
turtle.end_fill()
def calc_s(num_sides, side_length):
return num_sides * side_length ** 2 / (4 * tan(pi/num_sides))
def calc_side(square):
return sqrt(4 * square * tan(pi/num_sides) / num_sides)
turtle.hideturtle()
turtle.speed(10)
colors = ['red', 'green', 'blue', 'cyan', 'magenta', 'black', 'yellow', 'pink', 'brown']
xcoords = [0, 150, -150, 150, -150, 270, -270, 270, -270]
ycoords = [0, 150, -150, -150, 150, 270, -270, -270, 270]
squares = []
numsides = []
for i in range(9):
num_sides = i + 3
square = round(calc_s(num_sides, 100), 2)
side_length = round(calc_side(10000), 3)
squares.append(square)
numsides.append(num_sides)
print("Углов:", num_sides, "была площадь:", square, "стала длина грани:", side_length,
"изменение в", round(side_length/100, 2), "раз")
prepare(xcoords[i], ycoords[i], colors[i])
draw_polygon(num_sides, side_length)
turtle.exitonclick()
print("Список количество углов:", numsides, end="")
print("Список площади:", squares)
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Задание 1 Во Установите соответствие между оператором и значением d после его выполнения. Укажите соответствие для всех 5 вариантов ответа: 1) 0.5__ d:=round (5.5) 2) 5__ d:=int (5.5) 3) 6__ d:=frac (5.5) 4) 30.25__ d:=sqrt (5.5) 5) 2.34520787991171__ d:=sqr (5.5) Задание 2 Во Какие из указанных операций и функций являются общими для всех числовых типов? Выберите несколько из 4 вариантов ответа: 1) Вычитание 2) Сложение 3) Округление 4) Выделение целой части Задание 3 Во Какие из указанных, неявных преобразований возможны в программах на языке Паскаль? Выберите несколько из 4 вариантов ответа: 1) Из byte в real 2) Из byte в integer 3) Из real в integer 4) Из integer в byte Задание 4 Во Из указанных операций и функций выберите определённые только для целочисленных типов? Выберите несколько из 4 вариантов ответа: 1) frac 2) int 3) random (a) 4) div Задание 5 Во Какое значение будет иметь a после выполнения оператора a:=int (20.75)? Выберите один из 4 вариантов ответа: 1) 21 2) 21.75 3) 20 4) 0.75 Задание 6 Во При какой функции можно преобразовать значение вещественного типа в целочисленное? Выберите один из 4 вариантов ответа: 1) sqr 2) round 3) frac 4) int Задание 7 Во Как сгенерировать случайное целое число на промежутке от 3 до 100, включая концы? Выберите один из 4 вариантов ответа: 1) 3+random (98) 2) random (100)-3 3) 3+random (97) 4) random (103)-6 Задание 8 Во Каков будет результат выполнения программы представленной на рисунке? Изображение: Выберите один из 4 вариантов ответа: 1) Ошибка преобразования типов 2) Вывод: 56250 3) Вывод: 5625 4) Вывод: 90 Задание 9 Во Какое значение будет иметь t после выполнения оператора t:=274 mod 4? Выберите один из 4 вариантов ответа: 1) 2 2) 4 3) 68 4) 0 Задание 10 Во Как называется алгоритм, в котором присутствует только алгоритмическая конструкция "следование"? Выберите один из 4 вариантов ответа: 1) Линейный 2) Циклический 3) Разветвляющийся 4) Вс
const
m=5;
n=4;
a:array[1..m] of real=(2,-7.1,3.2,-5.4,6.9);
b:array[1..n] of real=(8.1,3.2,-6.4,-3.5);
k=3;
var
i,j:integer;
sk:real;
s:array[1..m,1..n] of real;
begin
Writeln('Массив S');
for i:=1 to m do begin
for j:=1 to n do begin
s[i,j]:=a[i]*b[j];
Write(s[i,j]:7:2)
end;
Writeln
end;
sk:=0;
for i:=1 to m do sk:=sk+s[i,k];
Writeln('Сумма элементов столбца ',k,' равна ',sk)
end.
Результат выполнения программы:
Массив S
16.20 6.40 -12.80 -7.00
-57.51 -22.72 45.44 24.85
25.92 10.24 -20.48 -11.20
-43.74 -17.28 34.56 18.90
55.89 22.08 -44.16 -24.15
Сумма элементов столбца 3 равна 2.56