АЖ
Андрей Журавлев
почему в паскале выдает ошибку 39( в этой строчке: for i:=1 to n do)?
program funkclab;
uses crt;
const a=4; b=2; c=5; d=3; x1=7; y1=3;
var x,y,w,v:real;
function step(n,m:real):real;
var step1,k:real;
i:integer;
begin
k:=1;
for i:=1 to n do
begin
k:=k*m;
step1:=k;
end;
step:=step1;
end;
begin
clrscr;
x:=(step(b,a)+step(d,c))/(step(c,a)+step(b,d));
writeln('x=',x:3:3);
writeln(' ');
y:=step(3,x1+7)+step(5,x1-7);
writeln('y=',y:3:3);
writeln(' ');
w:=ln(step(a,x1)+step(b,y1));
writeln('w=',w:3:3);
writeln(' ');
v:=step(sin(b),x1)+step(cos(b),8-x1);
writeln('v=',v:3:3);
readln;
end.