Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program laba2;
- {$APPTYPE CONSOLE}
- {$R *.res}
- uses
- System.SysUtils;
- var
- n: Integer;
- Sum: Double;
- i: Integer;
- Numerator: Double;
- IsCorrect: Boolean;
- begin
- Sum := 0;
- IsCorrect := False;
- Writeln('Тема: Вычислить сумму');
- repeat
- try
- Writeln('Введите число "n"');
- Read(n);
- IsCorrect := True;
- except
- Writeln('Введённое значение должно быть числом!')
- end;
- if (n < 1) then
- Writeln('Число должно быть положительным!');
- until (IsCorrect and (n > 0));
- for i := 1 to n do
- begin
- if (i mod 2 = 0) then
- Numerator := 1
- else
- Numerator := -1;
- Sum := Sum + (Numerator / (2 * i));
- end;
- Writeln('Сумма равна: ', Sum:6:3);
- Readln;
- Readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement