Цитата:
Сообщение от АсяЯ
вторая встает на этом,как это записать
program p173530;
var
i: integer
x: array[1..6] of real;
begin
for i := 1 to 11 do
readln (x[i]);
y:=exp(1/exp(e*x))*arctg(x)-
|
Естественно, встает. Потому что в Паскале (и не только!) функция арктангенс обозначается Arctan, а не Arctg. Ну и, натурально, требование об использовании функции при вычислении суммы нужно выполнить.
Код:
program p173530;
var
k: integer;
x,y: array[1..6] of real;
function Sum(Xs:real):Real;
var S:real; i:integer;
begin
S:=0;
for i:=1 to 8 do S:=S+exp(ln(Xs)*i)/i;
Sum:=S;
end;
begin
for k := 1 to 6 do
begin
write('x[',k,'] = ');
readln(x[k]);
y[k]:=exp(-x[k])*arctan(x[k])-Sum(x[k]);
end;
writeln;
writeln('k x[k] y[k]');
for k:=1 to 6 do
writeln(k,x[k]:7:3,y[k]:15:3);
readln
end.