Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
0 / 0 / 0
Регистрация: 05.06.2013
Сообщений: 6
1

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

05.06.2013, 17:11. Просмотров 2557. Ответов 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
350 / 343 / 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
Модератор
1618 / 1075 / 483
Регистрация: 17.07.2012
Сообщений: 5,303
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® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.