Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Г Илья А
0 / 0 / 0
Регистрация: 05.02.2016
Сообщений: 33
1

Вычислить сумму ряда

05.02.2016, 18:44. Просмотров 189. Ответов 4
Метки нет (Все метки)

Написать программу для вычисления -0,18 + 0,20 – 0,22 +...+ 0,36 и вывода на экран полученного значения, используя заданный циклический оператор While
начал писать на Паскаль ABC.NET, должно получится 0,1 , а получается другой ответ.
Можете пожалуйста помочь с данной задачью
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.02.2016, 18:44
Ответы с готовыми решениями:

Вычислить сумму членов ряда с точностью до члена ряда, меньшей E
Вычислить сумму членов ряда: Z=x/(x+1)!+x^2/(x+2)!+x^3/(x+3)!+... с точностью...

Вычислить сумму 100 слагаемых ряда если n-ый член ряда задается выражением
Вычислить сумму 100 слагаемых ряда если n-ый член ряда задается выражением: А...

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

Вычислить сумму ряда
помогите пожайлуста!

Вычислить сумму ряда
Вычислить сумму членов ряда с точностью Е=10 в степени -2 при заданном ...

4
Puporev
Модератор
55014 / 42308 / 29214
Регистрация: 18.05.2008
Сообщений: 99,972
05.02.2016, 19:10 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var a,s:real;
    z:integer;
begin
a:=0.18;
z:=-1;
s:=a*z;
while a<=0.36 do
 begin
  a:=a+0.02;
  z:=-z;
  s:=s+a*z;
 end;
write('s=',s:0:2)
end.
0
Г Илья А
0 / 0 / 0
Регистрация: 05.02.2016
Сообщений: 33
05.02.2016, 19:47  [ТС] 3
Не правильно, так как начинается выражение с "-0,18", а не с "0,18". Я решил вот так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program lab2;
uses crt;
var sign:integer;
    first, step, last, summa:real;
Begin
     clrscr;
     writeln('Заданное выражение: -0,18 + 0,20 – 0,22 +...+ 0,36');
     summa := 0;   
     first := -0.18;  
     step := 0.02;      
     last := 0.36;  
     sign := -1;        
     while first <= last do 
  begin
           first := first + step;
           sign := -sign;
           summa := summa + first * sign;
        end;
     writeln('Сумма выражения = ', summa:2:2);
     readln;
end.
Спасибо за ваши ответы!
0
Puporev
Модератор
55014 / 42308 / 29214
Регистрация: 18.05.2008
Сообщений: 99,972
05.02.2016, 19:55 4
Цитата Сообщение от Г Илья А Посмотреть сообщение
так как начинается выражение с "-0,18", а не с "0,18".
А у меня как?
Pascal
1
2
3
a:=0.18;
z:=-1;
s:=a*z;
0.18*(-1)=-0.18
0
Г Илья А
0 / 0 / 0
Регистрация: 05.02.2016
Сообщений: 33
05.02.2016, 20:03  [ТС] 5
Я понял ваше решение, извините, просто не вник в ваше решение. Мне ваше решение больше нравится, изначально я даже не понял его! Ну надеюсь в этом играет роль опыт)
0
05.02.2016, 20:03
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.02.2016, 20:03

Вычислить сумму ряда
http://i004.***********/1103/9a/b15b58be35a9.jpg Извините за качество. Вообще...

вычислить сумму ряда:
вычислить сумму ряда

Вычислить сумму ряда
Для заданного натурального n и действительного x подсчитать сумму....


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

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

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