Где я накосячил?

[Acid]

программа

program lab8;
uses crt, count;
var
begin
clrscr;
Writeln ('Введите переменную для второй задачи');
readln(x);
Writeln ('Введите переменную для второй задачи');
readln(b);
Writeln ('Результат первой задачи=',laba1(z));
Writeln ('Результат второй задачи=',laba2(y));
Writeln ('Результат третьеё задачи=',laba3(b));
end.

юнит

Unit count;
Interface
type
r=real;
function laba1(var z:r):r;
function laba2(var x,y:r):r;
function laba3(var n:integer; b:r):r;
Implementation

Function laba1;
const t=8; a=(-1);
Begin
z:=abs(cos(2*t)/(a+sin(t)))+sqr(t)*sqrt(sin(t));
end;

function laba2;
begin
if ((-2>x) or (x>4)) then writeln ('переменная задана неверно')
else begin if x<=1 then y:=(sin(x)/Cos(x))/(1+((sin(x)/Cos(x))))
else if x>1 then y:=exp(2.5*ln(ln(x)/ln(10)));
End; end;

function laba3;
var i:integer; s,c:r;
begin
s:=b;
for i:=1 to n do begin c:=(exp(n*ln(-b))/(2*n+1));
s:=s+c;end;end;end.

с формулами всё нормально а с типами походу накосячил как надо, исправьте меня плиз

[Трофимов Александр]

С переменными совсем запутано , а функциям где значения возвращаемые присваиваются?

[zetrix]

С функциями гон.

Function laba1;
const t=8; a=(-1);
Begin
z:=abs(cos(2*t)/(a+sin(t)))+sqr(t)*sqrt(sin(t));
end;

пиши так :
Function laba1:r;
const t=8; a=(-1);
Begin
laba1:=abs(cos(2*t)/(a+sin(t)))+sqr(t)*sqrt(sin(t));
end;
соответственно для других функций тоже самое+убери лишние переменные (для laba1 это var z)
Упрощение type r=real - только усложняет всё!

Судя по всему у Вас не очень ясные представления как использовать функции, и отличие процедуры от функции.

[Aleksandr]

Опиши переменные

[pu4koff]

хех... а real типа долго писать чтоль?)