Найти сумму чисел и значение выражения - Pascal ABC
Формулировка задачи:
1.Найдите сумму чисел 1,1/2,1/3,1/4... больших заданного числа а.
2.Найдите значение выражения
Решение задачи: «Найти сумму чисел и значение выражения»
textual
Листинг программы
var a,b,s:real; i:integer; begin write('a=');//чтобы сумма не была 0, вводить маленьое а, меньше 1 readln(a); s:=0; i:=1; b:=1; while b>a do begin s:=s+b; i:=i+1; b:=1/i; end; write('s=',s:0:5); end.
Объяснение кода листинга программы
- Создаются три переменные: a, b и s, которые имеют тип real.
- Создается переменная i, которая имеет тип integer.
- Задается начальное значение для переменной s, которое равно 0.
- Задается начальное значение для переменной i, которое равно 1.
- Задается начальное значение для переменной b, которое равно 1.
- Запускается цикл while, который выполняется до тех пор, пока b больше a.
- Внутри цикла переменная s увеличивается на значение b, а переменная i увеличивается на 1.
- После завершения внутреннего цикла переменная b устанавливается равной 1/i.
- Выводится значение переменной s.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д