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

[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
Вот тебе каркас первой программы, а интерфейс делай сам:

Модуль myfunc.pas:

Код

Unit myfunc;
interface

function z(x: double): double;

implementation
function y(x: double): double;
 begin
   y := sin(x) + sqr(cos(x)) + 1
 end;

function z(x: double): double;
 begin
   z := y(x) + 3*sqr(y(x)) + 4.5
 end;
end.

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

Код

Uses myFunc;
const
 start = -pi / 2;
 finish = pi / 2;

var
 x, zet: double;
begin
 x := start;
 while x <= finish do
   begin
     zet := z(x);
     { здесь - вывод значений в таблицу... }
     x := x + pi/8
   end;
end.