Нахождение ортагональных векторов в пространстве, Среди n(n <= 10) векторов в пространстве (x;y;z) заданных своими к Опции

[latysh]

Среди n(n <= 10) векторов в пространстве (x;y;z) заданных своими координатами, имеется только 2 ортоганальных вектора.Написать программу нахождения ортоганальных векторов .Подготовить и использовать процедуру проверки ортоганальных векторов.
Вот чиво получилось,прога работает, о есть большие сомнения в формуле,если чиво неправильно,подскажите что исправить

program vektors;
var
x: array[1..10] of real;
y:array[1..10] of real;
z:array[1..10] of real;
k,j,i:integer;


BEGIN
writeln('Введите значение x');
for j:=1 to 10 do
read(x[j]);
writeln('Введите значение  y');
for j:=1 to 10 do
read(y[j]);
writeln('Введите значение z');
for j:=1 to 10 do
read(z[j]);
for k:=2 to 10 do
for i:=1 to 10 do
for j:=k to 10 do
if (x[j]*x[i]+y[j]*y[i]+z[j]*z[i])/(sqrt(x[j]*x[j]+y[j]*y[j]+z[j]*z[j])*sqrt(x[i]*x[i]+y[i]*y[i]+z[i]*z[i]))=0 then
writeln(x[j]:5:2,y[j]:5:2,z[j]:5:2 );
write('              ',x[i]:5:2,y[i]:5:2,z[i]:5:2);
end.

[Ozzя]

Подготовить и использовать процедуру проверки ортоганальных векторов.

А преподаватель примет в таком виде? Задание Вами выполнено без использования процедур.

[latysh]

А преподаватель примет в таком виде? Задание Вами выполнено без использования процедур.

Вот кстати и с процедурой и возникли проблемы, все дело в том,что как её делать, я вообще не имею представления.

[Lapp]

Вот кстати и с процедурой и возникли проблемы, все дело в том,что как её делать, я вообще не имею представления.

Забавно. А посмотреть в мой пост в лом что ли? Очень неприятно, когда говоришь с пустотой..
гудбай.

[latysh]

Забавно. А посмотреть в мой пост в лом что ли? Очень неприятно, когда говоришь с пустотой..
гудбай.

Ты извени,если чем обидел, вопрос в том,что в программировании я вообще не соображаю, данную программу мне составил мой приятель, поэтому вы уж парни на меня не серчайте за непонимание.
Lapp!Мне твой ответ помог,фактически как и все остальные, сделал с вашей помощью некоторые изменения, теперь предоставлю сие творение на суд преподавателю

Сообщение отредактировано: latysh - 30.04.2010 2:59