Начальная скорость камня 30 м/с, шаг времени 0,2. Меняя значение угла бросания от 5 до 75, определить угол, при котором дальность полета максимальная.
Program N70231806_1; var a:array[ 1 .. 10 ] of shortint; i:byte; t:shortint; begin randomize; writeln('Исходный массив: '); for i := 1 to 10 do begin a[ i ] := random(21) - 10; write(a[ i ]:4) end; writeln; t := a[ 10 ]; for i := 10 downto 2 do a[ i ] := a[ i - 1 ]; a[ 1 ] := t; writeln('Результат: '); for i := 1 to 10 do write(a[ i ]:4); readln end.
2) program N70231806_2; var a:array[ 1 .. 12 ] of shortint; i, j:byte; t:shortint; begin randomize; writeln('Исходный массив: '); for i := 1 to 12 do begin a[ i ] := random(25) - 10; write(a[ i ]:4) end; writeln; for j := 1 to 4 do begin t := a[ 12 ]; for i := 12 downto 2 do a[ i ] := a[ i - 1 ]; a[ 1 ] := t end; writeln('Результат: '); for i := 1 to 12 do write(a[ i ]:4); readln end.
1)
from turtle import*
up()
goto(30, 20)
down()
goto(30, 60)
goto(80, 60)
goto(80, 30)
goto(150, 30)
goto(150, 50)
goto(160, 30)
goto(170, 20)
goto(30, 20)
up()
goto(40, 30)
down()
goto(40, 30)
goto(70, 50)
goto(70, 30)
goto(40, 30)
2)
from turtle import*
shape("triangle")
forward(200)
stamp()
write("x")
home()
left(90)
forward(180)
stamp()
write("y")
home()
right(90)
forward(40)
home()
left(180)
forward(50)
home()
up()
goto(10, 10)
down()
for i in range(3):
forward(80 - i*20)
left(90)
forward(80 - i*20)
left(90)
forward(80 - i*20)
left(90)
forward(80 - i*20)
left(90)
up()
goto(20 + i*10, 20 + i*10)
down()
Объяснение: