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

@Г Илья А · Регистрация: 05.02.2016

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

Написать программу для вычисления -0,18 + 0,20 – 0,22 +...+ 0,36 и вывода на экран полученного значения, используя заданный циклический оператор While
начал писать на Паскаль ABC.NET, должно получится 0,1 , а получается другой ответ.
Можете пожалуйста помочь с данной задачью

@Puporev · 05.02.2016, 19:10

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.

@Г Илья А · 05.02.2016, 19:47 **[ТС]**

Не правильно, так как начинается выражение с "-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.

Спасибо за ваши ответы!

@Puporev · 05.02.2016, 19:55

Сообщение от Г Илья А

так как начинается выражение с "-0,18", а не с "0,18".

А у меня как?

Pascal
1
2
3
a:=0.18;
z:=-1;
s:=a*z;

0.18*(-1)=-0.18

@Г Илья А · 05.02.2016, 20:03 **[ТС]**

Я понял ваше решение, извините, просто не вник в ваше решение. Мне ваше решение больше нравится, изначально я даже не понял его! Ну надеюсь в этом играет роль опыт)

Новые блоги и статьи Все статьи Все блоги /
Next.js для разработки React: преимущества серверного рендеринга Reangularity 20.03.2025 Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .	JUnit или TestNG: Выбираем Java-фреймворк для тестирования Javaican 20.03.2025 История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .	Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .	Python и PDF: Создание и редактирование файлов py-thonny 20.03.2025 Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .	Корутины в Unity и производительность WaitForSeconds GameUnited 20.03.2025 Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .
Криптография в PHP Jason-Webb 20.03.2025 PHP предоставляет много криптографических возможностей: от встроенных функций хеширования до полноценных библиотек шифрования — арсенал средств довольно обширен. Но всё это бесполезно без понимания. . .	Lineedge (Semi-Alpha) 0.75@20: Что мы потеряли Etyuhibosecyu 20.03.2025 С каждым новым стандартом Lineedge обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление. . .	Реализация перечислений в Go golander 19.03.2025 Если вы перешли на Go с других языков программирования (как я), таких как C#, Java или Python, вы наверняка заметили, что Go не имеет встроенной поддержки перечислений (enumerations). Это может стать. . .	Шаблон API Gateway в микросервисной архитектуре MatrixArchitect 19.03.2025 API Gateway — один из основных компонентов микросервисной архитектуры. Фактически, API Gateway представляет собой сервис, который располагается между клиентскими приложениями и бэкенд-микросервисами,. . .	C++26: Что мы потеряли bytestream 19.03.2025 С каждым новым стандартом C++ обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление функциональности. . .

@Г Илья А 0 / 0 / 0 Регистрация: 05.02.2016 Сообщений: 33
		1
	Вычислить сумму ряда 05.02.2016, 18:44. Показов 712. Ответов 4 Метки нет (Все метки) Написать программу для вычисления -0,18 + 0,20 – 0,22 +...+ 0,36 и вывода на экран полученного значения, используя заданный циклический оператор While начал писать на Паскаль ABC.NET, должно получится 0,1 , а получается другой ответ. Можете пожалуйста помочь с данной задачью 0

@Г Илья А 0 / 0 / 0 Регистрация: 05.02.2016 Сообщений: 33
	05.02.2016, 20:03 [ТС]	5
	Я понял ваше решение, извините, просто не вник в ваше решение. Мне ваше решение больше нравится, изначально я даже не понял его! Ну надеюсь в этом играет роль опыт) 0

Опции темы