Вычислить сумму ряда - Pascal ABC (12943)
Формулировка задачи:
Подскажите как сделать на Pascal)
А то туплю что-то...Прога не так результаты выдает...
как понял всё не правильно в корне.
Решение задачи: «Вычислить сумму ряда»
textual
Листинг программы
var n,k:integer;
x,t,s:real;
begin
write('x=');
readln(x);
write('n=');
readln(n);
t:=x; //нулевой член
s:=x;
for k:=1 to n do
begin
t:=t*x*x*x*x/(4*k-2)/(4*k-1)/(4*k)/(4*k+1);
s:=s+t;
end;
write('s=',s)
end.
Объяснение кода листинга программы
- Переменные объявлены: n, k, x, t, s - целочисленные, real - вещественные.
- Чтение значений переменных x и n.
- Инициализация переменных t и s значениями x.
- Запуск цикла for с переменной k от 1 до n.
- Внутри цикла вычисление значения t как произведения x возведенного в степень 4, деленного на (4k-2), (4k-1), (4k), (4k+1).
- Добавление значения t к переменной s.
- Остановка цикла после завершения цикла for.
- Вывод значения переменной s.