Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/10: Рейтинг темы: голосов - 10, средняя оценка - 4.60
SL18
0 / 0 / 0
Регистрация: 24.01.2013
Сообщений: 2
#1

Цикл: вычислить сумму ряда с помощью следующих операторов: While-do, repeat-until и for

27.01.2013, 13:05. Просмотров 1803. Ответов 2
Метки нет (Все метки)

Доброго времени суток,уважаемые форумчане.
Помогите пожалуйста выполнить задачу(хотя бы одним из циклов).
Даны действительное число a,натуральное n.Вычислить сумму.Решить задачу тремя способами: с помощью циклов While-do, repeat-until и for
0
Миниатюры
Цикл: вычислить сумму ряда с помощью следующих операторов: While-do, repeat-until и for  
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.01.2013, 13:05
Ответы с готовыми решениями:

Вычислить сумму знакопеременного ряда (repeat, until и while)
Напишите программу, которая с точностью, введеной с клавиатуры рассчитывает...

Вычислить сумму ряда, используя FOR, WHILE, REPEAT
Помогите пожалуйста:) Вычислить сумму S=\sum_{i=1}^\infty...

Через while или repeat вычислить сумму ряда

Вычислить сумму и среднее арифметическое первых n целых чисел (цикл Repeat).
Очередная задачка: Вычислить сумму и среднее арифметическое первых n целых...

Вычислить сумму ряда, цикл while
Добрый вечер! Задание (цикл while): Дано натуральное число n. Вычислить...

2
Puporev
Модератор
54361 / 41950 / 28980
Регистрация: 18.05.2008
Сообщений: 98,815
27.01.2013, 13:25 #2
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
uses crt;
var a,t,s:real;
    n,i:integer;
begin
repeat
write('n>0 n=');
read(n);
until n>0;
repeat
write('a<>0 a=');
read(a);
until a<>0;
t:=1;
s:=t;
for i:=1 to n do
 begin
  t:=t/(a*a);
  s:=s+t;
 end;
writeln('Sfor=',s:0:5);
i:=1;
t:=1;
s:=t;
while i<=n do
 begin
  t:=t/(a*a);
  s:=s+t;
  i:=i+1;
 end;
writeln('Srepeat=',s:0:5);
i:=1;
t:=1;
s:=t;
repeat
  t:=t/(a*a);
  s:=s+t;
  i:=i+1;
until i>n;
writeln('Srepeat=',s:0:5);
 
end.
1
SL18
0 / 0 / 0
Регистрация: 24.01.2013
Сообщений: 2
27.01.2013, 13:29 #3
Спасибо большое
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.01.2013, 13:29

Цикл: вычислить сумму ряда s=2+3...n
Дано n?N вычислить s=2+3...n

Вычислить сумму ряда (цикл while)
S=1+X/2+2x^2/3+3X^3/4+... с помощью цикла While

Цикл for: вычислить сумму ряда
x+1/2 *x3/3 +1*3/2*4 *x5/5 +1*3*5/2*4*6 *x7/7 +1*3*5*7.....49/2*4*6*8.....50...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru