как написать эту формулу в Паскале
Приложения:
Ответы на вопрос
Ответил NaaMan
0
У меня это получилось сделать так:
//PascalABC.NET
var
n, k : integer;
x, s : real;
begin
write('x = ');
readln(x);
write('n = ');
readln(n);
s := 0;
for k := 1 to n do
s += ((power(x,1/3)/k - exp(-k*x)) * sin(k * x));
writeln(' res = ', 1 / (x*x + sqrt(x)) * s)
end.
//PascalABC.NET
var
n, k : integer;
x, s : real;
begin
write('x = ');
readln(x);
write('n = ');
readln(n);
s := 0;
for k := 1 to n do
s += ((power(x,1/3)/k - exp(-k*x)) * sin(k * x));
writeln(' res = ', 1 / (x*x + sqrt(x)) * s)
end.
Ответил Аноним
0
Полемика предполагает активный диалог. В софистике собеседник не нужен.
Ответил Аноним
0
Я бы рискнул сказать, что использование в полемике софистики сводит полемику к демагогии)))
Ответил Аноним
0
Предлагаю подвести черту, потому что фактически уже спам пошел
Ответил MaxLevs
0
Как скажешь. Ты прав. А это может затянуться надолго :D
Ответил Аноним
0
Заинтересованных приглашаю в ЛС
Новые вопросы