Арифметическая прогрессия - PascalABC.NET
Формулировка задачи:
Задана арифметическая прогрессия. 7,1; 5,3; … . Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала <0.
Решение задачи: «Арифметическая прогрессия»
textual
Листинг программы
begin var (sum, i, count) := (7.1, 5.3, 1); while sum >= 0 do begin count += 1; sum += i; i -= 1.8; end; write(count); end.
Объяснение кода листинга программы
В данном коде происходит вычисление суммы арифметической прогрессии.
- Создаются три переменные: sum — сумма прогрессии, i — первый элемент прогрессии, count — количество элементов прогрессии.
- Переменная count инициализируется единицей, а переменные sum и i — соответствующими значениями.
- Запускается цикл while, который выполняется до тех пор, пока значение переменной sum не станет меньше или равным нулю.
- Внутри цикла увеличивается значение переменной count на единицу.
- К переменной sum прибавляется значение переменной i.
- Значение переменной i уменьшается на 1.8.
- По завершении цикла выводится значение переменной count.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д