В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Fedotaq
Fedotaq
03.04.2022 08:54 •  Информатика

Нужно вот это что на скрине сделать, в паскале.


Нужно вот это что на скрине сделать, в паскале.

Показать ответ
Ответ:
shavkatbronduk1
shavkatbronduk1
27.07.2022 11:40

Решение

Я бы расставил контрольные маршрутные точки, добавил к ним коллайдеры в виде триггеров. На них накинуть небольшой скрипт, говорящий какое действие нужно сделать, что бы попасть в следующую маршрутную точку(к примеру повернуть налево и продолжать идти). Когда NPC вступает с ним в коллизию(OnTriggerEnter), берет из него необходимые параметры для продолжения движения. Я так себе реализовывал.

Это если линейно и по кругу. А если рандомно передвижение по территории, то все с теми же контрольным точками, только нужно получить их все, выбрать случайную точку и обходом по графу идти до этой точки. Как только достиг, выбрал случайную следующую точку и пошел дальше.

Объяснение:

0,0(0 оценок)
Ответ:
Vonder239142
Vonder239142
13.11.2022 11:08
1. Современное решение

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,-10,10); a.Println;
  Swap(a[a.IndexMax],a[a.IndexMin]); a.Println;
end.

Пример
-4 4 5 9 8 -3 -10 -9 -2 -2
-4 4 5 -10 8 -3 9 -9 -2 -2

2. Решение в стиле "ТурбоПаскаль 1983г."

var
  i,imax,imin:integer;
  a:array[1..10] of integer;
begin
  Randomize;
  imax:=1;
  imin:=1;
  for i:=1 to 10 do begin
    a[i]:=Random(21)-10;
    Write(a[i],' ');
    if a[i]<a[imin] then imin:=i
    else
      if a[i]>a[imax] then imax:=i
    end;
  Writeln;
  i:=a[imax]; a[imax]:=a[imin]; a[imin]:=i;
  for i:=1 to 10 do
    Write(a[i],' ');
  Writeln
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота