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

[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):
Чуть не забыл, задачи надо сделать с интерфейсом, и чтоб они состояли из нескольких(двух) модулей, а как работать с модулями я вообще не знаю, т. к. вообще только начал учиться.
Еще раз спасибо всем тем, кто ответит!

[Wert]

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

Код

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, myfunc, StdCtrls, Grids;

type
 TForm1 = class(TForm)
   StringGrid1: TStringGrid;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;
const
start = -pi / 2;
finish = pi / 2;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
x, zet: double;
i:byte;
begin
x := start;
while x <= finish do
  begin
    zet := z(x);
    StringGrid1.Cells[i,0]:= floattostr(x);
    i:= i+1;
    x := x + pi/8;

end;
end;
end.


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.

Пожалуйста, помогите кто может! :molitva: :p2: