Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Одномерные массивы

Автор: xander007 15.12.2005, 21:24

В однамерном массиве с четным количеством элементов (2N) находяться координаты N точек плоскости. Они располагаються в следующем порядке: x1, y1, x2, y2, x3, y3 и т.д.
Определить номера точек, которые могут являться вершинами равнобедренного треуголника.

Автор: Zero 15.12.2005, 21:43

Типа такого:

Код


for i:=2 to n-1 do
  if (y[i-1]=y[i+1]) and ((x[i]-x[i-1])=(x[i+1]-x[i])) then
    writeln('вершина ',i,' -результат.');