Народ, помогите пожалуйста найти ошибку, срочно . Мне эту хрень в субботу здавать. НЕ врубаюсь где тут ошибка...
Program_Laba1;
Uses Crt;
Var a,b,x,Y1,Yd,Y2,Z1,Z2: Real;
begin
ClrScr;
a:=5.3;
b:=2.1;
x:=0.75;
Y1:=(sqr(a)-sqr(b))*(exp(1/3.ln(a))-exp(1/3.ln(b)))/Yd;
Yd:=(exp(4/3.ln(a))+b*exp(1/3.ln(a))-a*exp(1/3.ln(b))-exp(4/3.ln(b)));
Y2:=a-b;
Z1:=Cos(4*x)-Sin(4*x)*Ctg(2*x);
Z2:=Cos(2*x)-2*Cos(x)**2;
WriteLn('Y1:='Y1);
ReadKey;
end.
Люди, помогите с паскалем плиз....не решается, вопрос |