Підпрограми функції

[--Sashok--]

Скласти програму обчислення периметра трикутника ABC, якщо відомі координати його вершини А(x1,y1,z1),B(x2,y2,x2),C(x3,y3,z3) .необхідно скористатись формулою P=AB+BC+AC, де AB=√(x1-x2)в квадрате + (y1-y2)в квадрате + (z1-z2)в квадрате. Корінь відноситься до всієї формули.

Підскажіть хочаб алгоритм розв'язання, не можу зрозуміти що саме потрібно прописати щоб знайти цей периметр, буду дуже вдячний за будь-яку допомогу!

[Vanta11a]

Да все просто, надо посчитать периметр. Тем более что координаты заданы.

Итак.

for i:=1 to 3 do
readln(x[i],y[i],z[i])

Результат: Получаем координаты 3х точек.
Далее

ab := sqrt(sqr(x[1]-x[2])+sqr(y[1]-y[2])+sqr(z[1]-z[2]))

Результат: Получена длина отрезка.
Повторить еще раз для bc и ac отрезков, либо использовать функцию

p := ab + bc + ca

Результат: Получен периметр треугольника

writeln('Периметр равен ',p)

Результат: Периметр выведен на экран.

Функцию (возвращает длину отрезка между i-той и j-той точками) можно сделать так:

function(integer i,j):real;
begin
function := sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j])+sqr(z[i]-z[j]));
end;

Если "непонятно" - читать мануалы.

[--Sashok--]

Сообщение от Vanta11a

Да все просто, надо посчитать периметр. Тем более что координаты заданы.

Итак.

for i:=1 to 3 do
readln(x[i],y[i],z[i])

Результат: Получаем координаты 3х точек.
Далее

ab := sqrt(sqr(x[1]-x[2])+sqr(y[1]-y[2])+sqr(z[1]-z[2]))

Результат: Получена длина отрезка.
Повторить еще раз для bc и ac отрезков, либо использовать функцию

p := ab + bc + ca

Результат: Получен периметр треугольника

writeln('Периметр равен ',p)

Результат: Периметр выведен на экран.

Функцию (возвращает длину отрезка между i-той и j-той точками) можно сделать так:

function(integer i,j):real;
begin
function := sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j])+sqr(z[i]-z[j]));
end;

Если "непонятно" - читать мануалы.

что то не понял что за чем вставлять я как ток фунцию пытаюсь прописать у меня вылетает ошибка!

[--Sashok--]

так что? не знаю что зачем вставить.

[--Sashok--]

ап? !

[Leshii]

var
....{сюда вносиш змінні}
{не пишеш бегін}
function(integer i,j):real;
begin
function := sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j])+sqr(z[i]-z[j]));
end;
begin
.....
p := ab + bc + ca
writeln('Периметр равен ',p)
end;

[Vanta11a]

что то не понял что за чем вставлять я как ток фунцию пытаюсь прописать у меня вылетает ошибка!

Нужно объявить переменные, циклы и т.п.
Алгоритм дан. Нужна рабочая программа - в аську/ЛС. Ну и естественно за денежку.