подпрограмма функция!

[--Sashok--]

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


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

думаю прописать

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

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

p := ab + bc + ca

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

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

Но как все это правильно сопоставить мозги уже не варят! Помогите пожалуйста буду рад любой помощи!

[Костя КС]

http://programmersforum.ru/showthrea...FC%ED%E8%EA%E0

разве не то же самое?

[--Sashok--]

это просто оч сложно сделано а мне надо какнить полегче)

ну че? бла бла бла

та мляяяя помогите уже с этой задачей! боже уже вторую неделю не могу никак решить!

[Stilet]

function kor:real;begin kor:= sqrt(sqr(x[1]-x[2])+sqr(y[1]-y[2])+sqr(z[1]-z[2]));end;
var x,y,z:array[1..3] of integer;begin for i:=1 to 3 do readln(x[i],y[i],z[i]);write(kor);end;

А теперь раз ты уж такой крикливый найди в коде одну ошибку и две некрасивости.