p align="justify">/* перевіряємо на перетин з перешкодою */= 1; (i = 0; i
{status = status * barrier (i);}
/* порівняння координат розрахункових і вихідних */(fabs (link_x [n-1]-x)
{/ * висновок на екран якщо співпало (в межах точності) */();
/* виведення даних у файл */(f, "N% d:", number); (i = 0; i
{fprintf (f, "% d", corner [i]);} (f, " n");
}
/* міняємо кут */[n-1] + = CSpinEdit4-> Value;
/* повертаємо наступна ланка */(i = n-1; i> = 0; i -)
{if (corner [i]> end)
{if (i> 0)
{corner [i-1] + = CSpinEdit4-> Value; (corner [i-1]> end && i == 1)
{done = true;}
}; [i] = start;
}
} -> Progress = corner [0] - start;
} = Time (); = t2-t1;
/* логи ... */-> Lines-> Add ("Знайдено" + IntToStr (number) + "ситуацій захоплення"); -> Lines-> Add ("Закінчення виконання" + TimeToStr (t2)) ; -> Lines-> Add ("Тривалість виконання" + TimeToStr (t3));
}
{((Key> = '0 ') && (Key <= '9')) {}// ціфриif (Key == 8) {}// < -if ((Key == '.') | | (Key == ','))// кома
{(((TEdit *) Sender) -> Text.Pos (DecimalSeparator)! = 0)// якщо кома вже є = 0 ;//якщо ще ні = DecimalSeparator;
} Key = 0;// Не цифра
}
// ---------------------------------------- -----------------------------------
