Aruzhan5555
19.01.2023 19:27

ЭТО НУЖНО ДЕЛАТЬ В PYTHON Программисту беспилотного летательного аппарата (БПЛА) поручено долететь до 9 домов и доставить 9 посылок.

В целях максимальной экономии топлива было решено делать как можно меньше поворотов и лететь по прямой, закидывая пакеты сверху.

Программист задумался над этой задачей и понял, что можно повернуться только три раза, то есть лететь по четырем прямым. Вы также пытаетесь найти решение.

Вам представлена ​​карта из девяти домов (красные точки - дома, желтые линии - для наглядности).

- Расстояние между домами 50 пикселей по всем осям.

- Отправной точкой полета является дом в правом верхнем углу (красная точка в координатах x = 0, y = 50).

- По желанию заказчиков груз должен быть доставлен в дом №2 быстрее, чем в дом №3.

- Последняя точка полета - дом друга программиста (4 точки на карте).

Чтобы пройти этот уровень, нарисуйте четыре линии внизу программы, не разделяя кисть черепахи, используя команду four goto ().


ЭТО НУЖНО ДЕЛАТЬ В PYTHON Программисту беспилотного летательного аппарата (БПЛА) поручено долететь д

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
darinaggg
16.03.2023 11:59
Вместо слов тип укажешь real если массив действительных чисел или integer - если целые числа

var a: array[1..10] of тип
i,n:integer; max, min, sum: тип
begin
write('Введите количество элементов массива'); readln(n);
for i:=1 to n do read(a[i]);
max:=a[1]; min:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
for i:=2 to n do if a[i]>min then min:=a[i];
sum:=0;
for i:=1 to n do if (a[i]>min) and (a[i]<max) then sum:= sum+a[i];
write('Сумма элементов массива расположенных между максимальным и минимальным = ', sum);
end.
0,0(0 оценок)
Ответ:
karinakazakova5
24.04.2020 15:30

Объяснение:

Сначала заполним массив, затем выведем его содержимое.

---

   Sub Main()

       Dim a as Double = 1

       Dim b as Double = 15

       Dim h as Double = 0.92

       

       Dim n as Integer = int((b - a) / h)

       Dim Z() As Double = New Double(n) {}

       Dim i as Double

       For i = 0 To n

           Z(i) = Math.Cos(a + h * i) + Math.Tan(a + h * i)

       Next

       

       

       For i = 0 To n

           Console.WriteLine("Z(" & i+1 & ") = " & Z(i))

       Next

   End Sub

---

Результат работы этой программы:

Z(1) = 2.09771003052304

Z(2) = -3.0884493200958

Z(3) = -1.26594678050156

Z(4) = -0.103295451547362

Z(5) = 30.831517973736

Z(6) = -0.0383774051794511

Z(7) = 1.21343345934296

Z(8) = 2.67822720165008

Z(9) = -2.28928714730523

Z(10) = -1.13533602598861

Z(11) = 0.265586431867902

Z(12) = -7.87130103019394

Z(13) = 0.283584171679959

Z(14) = 1.3388270225723

Z(15) = 4.05676371484264

Z(16) = -1.89632897888172

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота