Цитата:
Сообщение от Sergei47
Program C12;
var C,f,x,y,k: real;
Begin
writeln ('A BoT BaM u PEzyJIbTAT');
read (x,y,k);
x:=2.64;
y:=0.138;
k:=8;
f(x,y):=(1-exp(x)+sqr(y))/(sqrt(x)+sqrt(y); (там выдает ошибку)
C:=f(x,y)+2*f(x+2,y-k)+f(x-y,k);
WRITELN ('C=',C);
READLN;
END.
|
Естественно, выдает! Так функции в Паскале не задаются. А как правильно - есть в любом учебнике и руководстве. Кстати, в знаменателе еще и общая скобка не закрыта. Но это так, мелочь.