Процедуры и функции

[dimok5]

Решите задачу, не врубаюсь совсем в эти процедуры и функции(((
Вывести все значения функции У на интервале [A,B] с шагом h в виде таблицы, указать для каждого аргумента Х значение функции У=(exp(x)*cos(x+1))/(sin(x)/cos(x)).
Исходные данные: A=0, B=1,57, h=0,01

[execom]

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

var
 r : real;
 i : integer;
 a : array [0..157] of real;

function exp(arg : real) : real;
begin
{реализация функции}
end;

begin
for i=0 to 157 do
  begin 
    r:=i;
    r:=r/100;
    a[i]:=(exp(r)*cos(r+1))/(sin(r)/cos(r));
  end;
{Создание таблицы. Перенос в неё значениий из массива "a"}
end.

[Stilet]

http://www.programmersforum.ru/showthread.php?t=34196
http://www.programmersforum.ru/showthread.php?t=38336
http://www.programmersforum.ru/showthread.php?t=62746