program salihov;
uses crt;
var a,b,x,y:real;
c1,c2,otvet:real;
procedure func ( a,b:real; var y:real);
var x:integer;
begin
func:=SQRT(abs(a-sin(x)/cos(x)))+1/3*SQRT(abs(b-sin(x)/cos(x))));
end;
begin clrscr;
readln(a,b,x);
func(SQRT(abs(a-sin(x)/cos(x))),c1);
func(Exp(1/3*SQRT(abs(b-sin(x)/cos(x)))),c2);
otvet:=c1+c2;
write(otvet:3:3);
end
выдает ошибку возле формулы. помогите пожалуйста
Насколько я помню, процедура не возвращает никакого значения, в отличие от функции.
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)