SHARE
TWEET

Untitled

a guest Sep 15th, 2019 85 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.    E: Double;
  11.    i: Integer;
  12.    Numerator: Double;
  13.    IsCorrect: Boolean;
  14. begin
  15.    E := 0;
  16.    Writeln('Тема: Вычислить сумму');
  17.    repeat
  18.       try
  19.          Writeln('Введите число "n"');
  20.          Read(n);
  21.          IsCorrect := True;
  22.       except
  23.          Writeln('Введённое значение должно быть числом!')
  24.       end;
  25.       if (n < 1) then
  26.          Writeln('Число должно быть положительным!');
  27.    until (IsCorrect and (n > 0));
  28.    for i := 1 to n do
  29.    begin
  30.       if (i mod 2 = 0) then
  31.          Numerator := 1
  32.       else
  33.          Numerator := -1;
  34.       E := E + (Numerator / (2 * i));
  35.    end;
  36.    Writeln('Сумма равна: ', E:6:3);
  37.    Readln;
  38.    Readln;
  39. 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