Подпрограммы ABC паскаль

[Alukardo]

Помогите в написании программ,в функциях и процедурах не разбираюсь.
1) Даны координаты трех точек плоскости .Определить периметр треугольника с данными вершинами( использовать функцию, которая находится между двумя точками).
2) Даны n элементов массива a и m элементов массива b. Определить значение выражения max(n,a)*max(m,b), где max(n,a)-максимальный элемент массива a размерности n.

[ZX Spectrum-128]

То есть, проблема только в оформлении подпрограмм? Напишите программы БЕЗ них, и я помогу вам с подпрограммами.

[Alukardo]

Program Triugolnik;
Var Xa,Xb,Xc,
Ya,Yb,Yc,p:real;

function perv(xa,xb,ya,yb:real):real;
var o:real;
begin
o:=sqrt(sqr(abs(xa-xb))+sqr(abs(ya-yb)));
perv:=o;
end;
function vtor(xa,xc,ya,yc:real):real;
var l:real;
begin
l:=sqrt(sqr(abs(xa-xc))+sqr(abs(ya-yc)));
vtor:=l;
end;
function tr(xb,xc,yb,yc:real):real;
var k:real;
begin
k:=sqrt(sqr(abs(xb-xc))+sqr(abs(yb-yc)));
tr:=k;
end;
begin
Writeln('Введите координаты точки А:');
write('x= ');readln(xa);
write('y= ');readln(ya);
Writeln('Введите координаты точки B:');
write('x= ');readln(xb);
write('y= ');readln(yb);
Writeln('Введите координаты точки C:');
write('x= ');readln(xc);
write('y= ');readln(yc);
p:=perv+vtor+tr;
writeln('Периметр триугольника равен ',p:4:2);
readln;
end.

первая программа, ну тут выдает ошибку в конце ,что операция плюс не применима к функции.



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[type_Oleg]

Alukardo, вы вообще не поняли суть подпрограмм ( функций, процедур).
Для чего они нужны ?
Для того, чтобы один раз описать функцию, а потом - сколько угодно раз ее применять (вызывать).
А если бы был не 3-угольник, а 123-угольник то что, описывали бы 123 функции, по сути одну и ту же? perv, vtor, ... stodvadcattret ?

Вот описание функции для вычисления расстояния между точками ( между любыми точками).

function rasst(x1,x2,y1,y2:real):real;
begin
 rasst:=sqrt(sqr(x1-x2)+sqr(y1-y2)); // не нужен abs, все равно в квадрате
end;

Вот ее и вызывайте в основной программе, 3 раза, для 3-х сторон.
Только аргументы в скобках поставьте.

[Alukardo]

спасибо, 1-ю программу исправил стала адекватно работать