Решение сигмы - Turbo Pascal
Формулировка задачи:
Помогите сделать в паскале
Решение задачи: «Решение сигмы»
textual
Листинг программы
var s:real; n,k,z:integer; begin write('n='); readln(n); z:=-1; s:=0; for k:=1 to n do begin z:=-z; s:=s+z/(k*(k+1)); end; write('S=',s:0:3); readln end.
Объяснение кода листинга программы
- Создаётся переменная s типа real.
- Создаются три переменные n, k и z типа integer.
- Выводится сообщение «n=» и считывается значение переменной n.
- Переменная z инициализируется значением -1.
- Переменная s инициализируется значением 0.
- Запускается цикл for, который выполняется n раз, начиная с k=1 и до k=n.
- Внутри цикла переменная z инициализируется значением -z.
- Переменная s увеличивается на z/(k*(k+1)).
- По завершении цикла выводится значение переменной s с точностью до 3 знаков после запятой.
- Программа завершается, ожидая ввода пользователя.