SHARE
TWEET

Untitled

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