написать программу для вычисления суммы ряда( через команду :"while")

05.06.2013, 16:36. **Показов** 1213. **Ответов** 1

Студворк — интернет-сервис помощи студентам

День добрый, помогите пожалуйста "Написать программу вычисления суммы ряда: sin(x)+sin(x^2)+sin(x^n). Значения чисел "N" и "x" вводить с клавиатуры, при значении "n=0" - выход из программы.
ЗЫ Знак "^"-означает знак степени.
ЗЫЫ Оператор программы "while"-весь процесс через эту команду.
ЗЫЫЫОгромное спасибо заранее, надеюсь на помощь.

@BAAAAAas · 05.06.2013, 18:28

Pascal

uses crt;
var s:real;
x,n,i:integer;
begin
clrscr;
s:=0;
write('x=');readln(x);
write('n=');readln(n);
if n=0 then halt;
i:=1;
while i<=n do
   begin
       s:=s+sin(exp(i*ln(x)));
       inc(i);
    end;
writeln('Сумма:',s);   
readkey;
end.

leonardd043
		1
	написать программу для вычисления суммы ряда( через команду :"while") 05.06.2013, 16:36. Показов 1213. Ответов 1 Метки нет (Все метки) День добрый, помогите пожалуйста "Написать программу вычисления суммы ряда: sin(x)+sin(x^2)+sin(x^n). Значения чисел "N" и "x" вводить с клавиатуры, при значении "n=0" - выход из программы. ЗЫ Знак "^"-означает знак степени. ЗЫЫ Оператор программы "while"-весь процесс через эту команду. ЗЫЫЫОгромное спасибо заранее, надеюсь на помощь.

Опции темы

написать программу для вычисления суммы ряда( через команду :"while")

Решение