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

@ma4ilov · Регистрация: 05.06.2013

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

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

@newyork7776 · 06.06.2013, 08:49

Pascal

program qwe;
uses crt;
var i,x,n:integer;
    rez:real;
begin
i:=1;rez:=1;
Write('Enter X = ');readln(x);
Write('Enter N = ');readln(n);
while (i=n) do
begin
rez:=(rez+(sin(x)))
end; 
end.

Новичок · 06.06.2013, 12:37

newyork7776,ошибочка.Вы считаете sin(1)+sin(2)+sin(3)...+sin(n).Да и вы кстати и i не изменяете в цикле.

Pascal

var i,n:Integer;
x,p,rez:Real;
begin
i:=1;
p:=1;
Write('x=');
Readln(x);
Write('n=');
Readln(n);
if n<>0 then
begin
while (i<=n) do
begin
p:=p*x;
rez:=rez+sin(p);
i:=i+1;
end; 
Writeln('Сумма ряда:',rez:0:4);
Readln;
end;
end.

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

Опции темы

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

Решение