Программирование, На каком языке кодим, делимся опытом... Опции

[Командор Норрингтон]

Я на VB6, и Delphi...
А вы на чём?

[Bogdan]

Piroman'ищще! А вот такой вариант работать будет?

DIM X(100)
DIM Y(100)
INPUT N
INPUT M
FOR I = 1 TO N
FOR J = 1 TO M
INPUT X(I)
INPUT Y(J)
NEXT J
NEXT I
K=0
FOR I = 1 TO N
FOR J = 1 TO M
FOR Z = 1 TO N
FOR L = 1 TO M
FOR F = 1 TO N
FOR C = 1 TO M
FOR K = 1 TO N
FOR R = 1 TO M
IF SQRT(SQR(X(Z) - X(F)) + SQR(Y(L)-Y©))*SQRT(SQR(X(Z) - X(F)) + SQR(Y(L)-Y©)) +
SQRT(SQR(X(F) - X(Z)) + SQR(Y(J) + Y©))*SQRT(SQR(X(F) - X(Z)) + SQR(Y(J) + Y©)) =
= SQRT(SQR(X(Z) - X(I)) + SQR(Y(L) - Y©))*SQRT(SQR(X(Z) - X(I)) + SQR(Y(L) - Y©))
THEN
IF SQRT(SQR(X(Z) - X(F)) + SQR(Y(L)-Y©))*SQRT(SQR(X(Z) - X(F)) + SQR(Y(L)-Y©)) +
SQRT(SQR(X(K) - X(F)) + SQR(Y® - Y©))*SQRT(SQR(X(K) - X(F)) + SQR(Y® - Y©)) =
= SQRT(SQR(X(Z) - X(K)) + SQR(Y(L) - Y®))*SQRT(SQR(X(Z) - X(K)) + SQR(Y(L) - Y®))
THEN
IF SQRT(2) < SQRT(SQR(X(Z) - X(F)) + SQR(Y(L) - Y©)) / SQRT(SQR(X(Z) - X(I)) + SQR(Y(L) - Y(J))) +
SQRT(SQR(X(Z) - X(F)) + SQR(Y(L) - Y©)) / SQRT(SQR(X(Z) - X(K)) + SQR(Y(L) - Y®))
THEN K=K+1
END IF
END IF
END IF
NEXT R
NEXT K
NEXT C
NEXT F
NEXT L
NEXT Z
NEXT J
NEXT I
PRINT "В ЗАДАННОМ МНОЖЕСТВЕ ТОЧЕК МОЖНО ПОСТРОИТЬ ";K;" ОСТРОУГОЛЬНЫХ ТРЕУГОЛЬНИКОВ"
END.

Проверь, пожалуйста, своим профессиональным взглядом

PS Просто учительница хочет максимально простой вар.
ЗЫЫ Некоторые переменные почему-то получились в кружках, когда я текст вставил в сообщение. Это означает, к примеру: Y ( R )