Пожалуйста помогите решить 3 задачки, очень срочно

[Sirius6121]

№1
Описать процедуру Heights(xA, yA, xB , yB , xC , yC , hA, hB , hC ), находящую высоты hA, hB , hC треугольника ABC (выходные параметры), проведенные соответственно из вершин A, B, C (их координаты являются входными параметрами
№2
Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных экстремумов исходного файла в порядке убывания.
№3
Дано целое число K и текстовый файл. Удалить из файла абзац с номером K (абзацы выделяются с помощью красной строки). Пустые строки между абзацами не учитывать и не удалять. Если абзац с данным номером отсутствует, то оставить файл без изменений.

[Sirius6121]

Помогите пожалуйста!!!!сегодня до 12 надо!!! ПОЖАЛУЙСТА!!!!!

[bullvinkle]

Какой язык?

№2
Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных экстремумов исходного файла в порядке убывания.

А вот это, действительно, помогите))))

[Sirius6121]

язык Паскаль

[Sirius6121]

Пожалуйста, очень нужно!!!

[bullvinkle]

Первая.

var x1, x2,x3, y1, y2, y3:real;
procedure Heights(xA, yA, xB, yB, xC, yC:real);
var AB, AC, BC, S, p:real;
begin
     AB:=sqrt((xA-xB)*(xA-xB)+(yA-yB)*(yA-yB));
     AC:=sqrt((xA-xC)*(xA-xC)+(yA-yC)*(yC-yC));
     BC:=sqrt((xC-xB)*(xC-xB)+(yC-yB)*(yC-yB));
     p:=(AB+AC+BC)/2;
     S:=sqrt(p*(p-AB)*(p-AC)*(p-BC));
     writeln('Height to AB = ',2*S/AB:3);
     writeln('Height to AC = ',2*S/AC:3);
     writeln('Height to BC = ',2*s/BC:3);
end;
BEGIN
     writeln('Enter xA');
     readln(x1);
     writeln('Enter yA');
     readln(y1);
     writeln('Enter xB');
     readln(x2);
     writeln('Enter yB');
     readln(y2);
     writeln('Enter xC');
     readln(x3);
     writeln('Enter yC');
     readln(y3);
     Heights(x1, y1, x2, y2, x3, y3);
     readln;
END.

На наборе А(2;2) В(3;4) С(6;2) работает.
На наборе А(0;0) В(2;0) С(0;2) не работает (почему не знаю).
На др. наборах не пробовал.

[Sirius6121]

пасиб!!!
А по двум другим есть соображения?