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
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2013, 17:11
Ответы с готовыми решениями:

написать программу для вычисления суммы ряда( через команду :"repeat")
День добрый, помогите пожалуйста "Написать программу вычисления суммы ряда: (x-1)+(x-3)+...(x-n)....

написать программу для вычисления суммы ряда( через команду :"while")
День добрый, помогите пожалуйста "Написать программу вычисления суммы ряда:...

Написать программу вычисления суммы ряда с заданной точностью через функции
Помогите написать программу через функции Добавлено через 32 секунды С помощью функции...

Написать программу для вычисления суммы ряда
12. Написать программу для вычисления суммы ряда: П^4/96=1/1^4+1/3^4+1/5^4+...+1/(2n+1)^4...

2
351 / 344 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
06.06.2013, 08:49 2
Лучший ответ Сообщение было отмечено ma4ilov как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
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.
0
1642 / 1091 / 487
Регистрация: 17.07.2012
Сообщений: 5,345
06.06.2013, 12:37 3
newyork7776,ошибочка.Вы считаете sin(1)+sin(2)+sin(3)...+sin(n).Да и вы кстати и i не изменяете в цикле.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2013, 12:37
Помогаю со студенческими работами здесь

Написать программу для вычисления суммы ряда
Написать программу для вычисления суммы ряда: значение n ввести с клавиатуры. Вывести ...

Написать программу для вычисления суммы ряда
Помогите создать программу для вычисления суммы ряда.

Написать программу для вычисления суммы ряда
Ребята, напишите программу, кому не сложно

написать программу для вычисления суммы первых n членов ряда.(i-1)/((i+1)^3)1/2)
плиз,помогите, срочно надо


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru