проблема с функциями

[world12_tk]

Добрый вечер.... Помогите мне пожалуйста справиться с проблемой...
Мне нужно переделать исходный код с функцией обработки, но я где ошибся и прога, мало того что не работает, так она теперь еще и не компилируется.... Вот исходный текст....
program math;
const
p= 3.14;
var
r,l,s,v: real;
procedure vvod(var r:real);
begin
writeln ('введите радиус ');
readln (r);
end;
function a (r:real;var l:real):real;
begin
l:=2*p*r;
a:=l;
end;
function b:real;
begin
s:=2*p*sqr(r);
end;
function c:real;
begin
v:=4/3*p*sqr(r);
end;

procedure out;
begin
writeln ('длина окружности* ',a(r):4:2);
writeln ('площадь круга* ',b:4:2);
writeln ('объем шара* ',c:4:2);
readln;
end;
begin
vvod(r);

out;
end.
Заранее спасибо...

[alex_fcsm]

program math;
const
p= 3.14;
var r: real;

procedure vvod(var r:real);
begin
writeln ('введите радиус ');
readln (r);
end;

function a:real;
begin
a:=2*p*r;
end;

function b:real;
begin
b:=2*p*sqr(r);
end;

function c:real;
begin
c:=4/3*p*sqr(r);
end;

procedure out;
begin
writeln ('длина окружности* ',a:4:2);
writeln ('площадь круга* ',b:4:2);
writeln ('объем шара* ',c:4:2);
readln;
end;

begin
vvod(r);
out;
end.

[world12_tk]

огромное спасибо.... вы мне очень помогли..... У меня еще такой вот вопросик.... А можно ли написать программу не с 3-мя функциями, а с одной? и если можно, то как....

[world12_tk]

и назрел еще вопросик по ходу.... как в этой программе избавиться от глобальных переменных? заранее спасибо

[alex_fcsm]

function T(x:byte):real; 
begin
case x of
1:T:=2*p*r;
2:T:=2*p*sqr(r);
3:T:=4/3*p*sqr(r);
end;
end;

ТО есть передается параметр который указывает что вычисляем.

[alex_fcsm]

Сообщение от world12_tk

и назрел еще вопросик по ходу.... как в этой программе избавиться от глобальных переменных? заранее спасибо

А смысл? У Вас она и так одна- радиус круга. Если же все-таки захотите избавиться, то придется каждый раз вводить в функции.

[world12_tk]

спасибочки огромное, вы меня просто спасли