процедуры и функции

[Elena04]

Помогите пожалуйста решить задачи в Pascal:
№1
Вычислить площадь треугольника по координатам его вершины.
№2
найти произведение: (a +1/1!)(a +1/2!)(a +1/3!)...(a -1/n!) для заданных a и n.
№3
Вычислить z=Xmax+Ymin/2, где Xmax- максимальный элемент массива X(n); Ymin - минимальный элемент массива Y(n). Элементы Xmax и Ymin вычислить одной процедурой.

[Dragon.007]

а в какой из программ? Паскаль, Delphi , С???

[Elena04]

на языке паскаль

[Stilet]

А как выглядит формула площади треугольника?

[Elena04]

S=1/2 a*h

S=1/2*a*b*cosC
S=P*r
для равностороннего
S=a(в квадрате)*корень из 3, и всё ето разделить на 4

[BDA]

Эх, первая "гуглится" за 0.001 секунд:

Uses CRT;

var 
Ax, Ay, Bx, By, Cx, Cy, a, b, c, p, s: real; 

function klength(x1, y1, x2, y2: real): real; 
begin 
klength := sqrt(sqr(x1 - x2) + sqr(y1 - y2)); 
end; 

begin 
write('Input coordinates: ');
readln(Ax, Ay, Bx, By, Cx, Cy); 
a := klength(Ax, Ay, Bx, By); 
b := klength(Bx, By, Cx, Cy); 
c := klength(Cx, Cy, Ax, Ay); 
p := (a + b + c) / 2; 
s := sqrt(p * (p - a) * (p - b) * (p - c)); 
writeln(s:0:2); 
readln; 
end.

2-я:

Uses CRT;
var
a,p,f:real;
n,i:integer;
BEGIN
writeln('Input a and n:');
readln(a,n);
p:=1;
f:=1;
for i:=1 to n do
begin
	f:=f*i;
	p:=p*(a+1/f);
end;
writeln(p:0:3);
readln;
END.

3-я:

Uses CRT;
const
n=10;
var
x,y:array[1..n] of integer;
xmax,ymin,i:integer;
BEGIN
for i:=1 to n do
begin
	write('x[',i,']: ');
	readln(x[i]);
end;
for i:=1 to n do
begin
	write('y[',i,']: ');
	readln(y[i]);
end;
xmax:=-32768;
ymin:=32767;
for i:=1 to n do
begin
	if x[i]>xmax then
		xmax:=x[i];
	if y[i]<ymin then
		ymin:=y[i];	
end;
writeln((xmax+ymin)/2:0:2);
readln;
END.