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

[votsar]

Даны координаты вершин нескольких треугольников. Определить номер треугольника, имеющего наибольшую высоту.

program noname;
uses Crt;
const nmax=20;
function MaxH(var p,s,a,b,c,da,db,dc,mn,ax,ay,bx,by,cx,cy:Real):Real ;
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
{найдем длины сторон}
da:=sqrt(sqr(ax-bx)+sqr(ay-by));
db:=sqrt(sqr(bx-cx)+sqr(by-cy));
dc:=sqrt(sqr(cx-ax)+sqr(cy-ay));
{найдем меньшую сторону, высота к ней наибольшая}
if da<db then mn:=da else mn:=db;
if dc<mn then mn:=dc;
MaxH:=s/mn;{значение высоты}
end;
var ax,ay,bx,by,cx,cy,dx,dy,ex,ey,fx,fy:real;a,b,c,d,e ,f:Real;
t:array[1..nmax] of integer;
n,i,imx:byte;
mx:real;
H:integer;
begin
ClrScr;
repeat
write('Kol-vo treug-ov do ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Vvedite koordinati vershin treug-ov:');
for i:=1 to n do
begin
writeln('treug-k ',i);
writeln('vershina 1:');
readln(ax,ay);
writeln('vershina 2:');
readln(bx,by);
writeln('vershina 3:');
readln(cx,cy);
H:=MaxH(?????????);
end;
mx:=h1;
imx:=1;
for i:=1 to n do
if h[i]>mx then
begin
mx:=h[i];
imx:=i;
end;
writeln;
write('naibolshaya visota=',mx,' v treug-ke nomer',imx);
end;
Readln;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[type_Oleg]

Даже что-то проверять-улучшать неохота.
У вас что за параметры у функции, и почему так много ?

function MaxH(var p,s,a,b,c,da,db,dc,mn,ax,ay,bx,by,c x,cy:Real):Real ;

Там вроде - и длины , и какие-то координаты.
И что там делается - непонятно.
Вроде сначала по формуле Герона - по известным сторонам ищется площадь.
Потом почему -то ищутся эти самые стороны .
Фигня какая-то. Вы с геометрией сначала разберитесь.

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

Даны координаты вершин нескольких треугольников...

Вот и делайте функцию - вводите координаты, возвращаете макс. из высот.