Приветствую Вас, Гость! Регистрация RSS
Вторник, 19.03.2024
Главная » Файлы » Delphi » Алгоритмы

Муравей
[ Скачать с сервера (3.4 Kb) ] 23.08.2014, 10:26

repeat
{
FI_MIN, FI_MAX - минимальный и максимальный угол, на который может повернуться муравей
R_MIN, R_MAX - минимальное и максимальное расстояние, которое может преодолеть муравей за одну итерацию
}
  Fi := FI_MIN + FI_MAX * Random(360) / 360;
  R := R_MIN + Random(R_MAX);

{Пока не достигнет края экрана}

until (PenPos.X + Round(R * cos(Fi)) < PaintBox.Width) and
      (PenPos.Y + Round(R * sin(Fi)) < PaintBox.Height);
{ Прорисовка линии }
LineTo(PenPos.X + Round(R * cos(Fi)), PenPos.Y + Round(R * sin(Fi)));

 

Категория: Алгоритмы | Добавил: Alex | Теги: random, произвольное направление, Delphi
Просмотров: 496 | Загрузок: 29 | Комментарии: 3 | Рейтинг: 0.0/0
Всего комментариев: 31 2 3 »
avatar
1 povstanec40 • 22:45, 03.03.2021
FI_MIN + FI_MAX 360/360
R_MIN + RANDOM
1-1 2-2 3-3
avatar