Первый семестр / Лабалаторная работа №2 / Вторая лаба

program lab2; // Программа считает значение частичной суммы n элементов ряда S=((-1)^(n-1))*(1/n)
var sum:real; // sum - значение суммы i элементов ряда
var i,n: integer; //i - контролирует уоличество уже посчитанных элементов частиной суммы. n - количество элементов частичной суммы

begin
write ('Введите число n для вычисления частичной суммы n элементов ряда (n натуральное)->'); readln (n);
while (n<1) do //Проверка на введение правильного количества элементов ряда. Нужно проверить является ли n натуральным. Проверяется меньше ли n<1. В случае ввода дробного значения компилятор выдаст сообщение о ошибке
begin
write ('n должно быть натуральным! Введите n заново->'); readln (n); //Выполнение программы не продолжится, пока не будет введено n>=1
end;

sum:=0;
for i:=1 to n do //Подсчет частичной суммы n элементов ряда
begin
if (i mod 2)=0 then sum:=sum-1/i else sum:=sum+1/i; //четные и первый(нулевой)элементы складываются, нечетные вычитаются так как ряд знакопеременный
end;
write ('Значение частичной суммы '); write (n); write (' элементов ряда = '); writeln (sum); //Вывод результата
end.