Program A1; var a:array[1..30] of integer; amax,amin,i,imin,imax,n,s:integer; begin writeln('введите n элементов массива'); readln(n); for i:=1 to n do a[i]:=random(30); writeln('введённый массив имеет вид'); for i:=1 to n do write(a[i], ' '); writeln; amax:=a[1]; imiax:=1; for i:=2 to n do if a[i]>amax then begin amax:=a[i]; imax:=i; end; amin:=a[1]; imin:=1; for i:=2 to n do if a[i]<amin then begin amin:=a[i]; imin:=i; end; writeln('полученный массив имеет вид'); s:=a[imin];
a[imin]:=a[imax];
a[imax]:=s; for i:=1 to n do writeln(a[i],' '); end.
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)
Объяснение:
Program A1;
var a:array[1..30] of integer;
amax,amin,i,imin,imax,n,s:integer;
begin
writeln('введите n элементов массива');
readln(n);
for i:=1 to n do a[i]:=random(30);
writeln('введённый массив имеет вид');
for i:=1 to n do write(a[i], ' ');
writeln;
amax:=a[1]; imiax:=1;
for i:=2 to n do
if a[i]>amax then begin amax:=a[i]; imax:=i; end;
amin:=a[1]; imin:=1;
for i:=2 to n do
if a[i]<amin then begin amin:=a[i]; imin:=i; end;
writeln('полученный массив имеет вид');
s:=a[imin];
a[imin]:=a[imax];
a[imax]:=s;
for i:=1 to n do
writeln(a[i],' ');
end.