Задачи на использование модулей, как решить? Опции

[Wert]

Помогите пожалуйста в последний раз... осталась 1 пара, на которой и нужно предъявить эти программы, а у самого у меня ничего не получилось.
Я вас больше ни о чем не буду просить... просто не хочется сразу вылетать из института...
Вот, собственно сами задачи:
1) Написать функцию для вычисления величины у(х) = sin(x) + cos^2(x) + 1
и составить таблицу z(x) = y(x) + 3*y^2(x) + 4,5 , где х изменяется от -п/2 до п/2 с шагом п/8.

2) Даны длины а, b, с сторон некоторого треугольника. Найти медианы треугольника, сторонами которого являются медианы исходного треугольника.
Определение медиан оформить в виде процедуры.
длина медианы, проведенной к стороне а = 0,5 [корень квадратный открывается] 2b^2 +2c^2 - a^2 [корень квадратный закрывается].

Ничего похожего на форуме я не нашел, и помощи прошу не потому, что лень подумать и сделать, а потому что просто не знаю как, а времени на изучения литературы нет...

Заренее спасибо.

Добавлено (9.12.04 16:09):
Чуть не забыл, задачи надо сделать с интерфейсом, и чтоб они состояли из нескольких(двух) модулей, а как работать с модулями я вообще не знаю, т. к. вообще только начал учиться.
Еще раз спасибо всем тем, кто ответит!

[volvo]

Wert
Аналогично...

Модуль mediana.pas:

Код

Unit mediana;

Interface
Function medianaLen(x, y, z: Double): Double;

Implementation
{ первой в списке параметров должна стоять сторона,
 К КОТОРОЙ проводится медиана }
Function medianaLen(x, y, z: Double): Double;
 Begin
   medianaLen := 0.5*sqrt(2*sqr(y) + 2*sqr(z) - sqr(x))
 End;

End.

Основная программа:

Код

Uses mediana;
var
 { a, b, c - длины сторон треугольника }
 a, b, c: double;

 { ma, mb, mc - медианы, проведенные к сторонам a, b, c соответственно }
 ma, mb, mc: double;
begin
 {ввод значений a, b, c}
 ma := medianaLen(a, b, c);
 mb := medianaLen(b, a, c);
 mc := medianaLen(c, a, b);
 {вывод значений ma, mb, mc }
end.