SHARE
TWEET

Untitled

a guest Sep 15th, 2019 73 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program laba2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. {$R *.res}
  6. uses
  7.   System.SysUtils;
  8. var
  9.    n: Integer;
  10.    Sum: Double;
  11.    i: Integer;
  12.    Numerator: Double;
  13.    IsCorrect: Boolean;
  14. begin
  15.    Sum := 0;
  16.    IsCorrect := False;
  17.    Writeln('Тема: Вычислить сумму');
  18.    repeat
  19.       try
  20.          Writeln('Введите число "n"');
  21.          Read(n);
  22.          IsCorrect := True;
  23.       except
  24.          Writeln('Введённое значение должно быть числом!')
  25.       end;
  26.       if (n < 1) then
  27.          Writeln('Число должно быть положительным!');
  28.    until (IsCorrect and (n > 0));
  29.    for i := 1 to n do
  30.    begin
  31.       if (i mod 2 = 0) then
  32.          Numerator := 1
  33.       else
  34.          Numerator := -1;
  35.          Sum := Sum + (Numerator / (2 * i));
  36.    end;
  37.    Writeln('Сумма равна: ', Sum:6:3);
  38.    Readln;
  39.    Readln;
  40. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top