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

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

[Guest]

Просто знаний катастрофически не хватает...

Вобщем попробовал сделать программы с формой, не получилось
Подскажите, если знаете что нужно доделать/переделать?

Код

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   StringGrid1: TStringGrid;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);

 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a, b, c: double;
ma, mb, mc: double;
begin
ma := medianaLen(a, b, c);
mb := medianaLen(b, a, c);
mc := medianaLen(c, a, b);
StringGrid1.Cells[0]:= floattostr(ma);
StringGrid1.Cells[1]:= floattostr(mb);
StringGrid1.Cells[2]:= floattostr(mc);
end;

end.




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.