Предмет: Информатика,
автор: osman0801
как написать эту формулу в Паскале
Приложения:

Ответы
Автор ответа:
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
Предлагаю подвести черту, потому что фактически уже спам пошел
Автор ответа:
0
Как скажешь. Ты прав. А это может затянуться надолго :D
Автор ответа:
0
Заинтересованных приглашаю в ЛС
Похожие вопросы
Предмет: Беларуская мова,
автор: bachilart07
Предмет: Русский язык,
автор: rostovskojsasha
Предмет: Математика,
автор: zanarturalieva98
Предмет: Математика,
автор: дашечка4
Предмет: География,
автор: генасс