SHARE
TWEET

lab2

a guest Dec 7th, 2019 93 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Program lab2;
  2. const RowCnt = 4;
  3. var
  4.   i, q, k, N, beginCalc, endCalc: integer;
  5.   res, s5, s239, c: real;
  6. BEGIN
  7.   repeat
  8.     writeln('Введите N: ');
  9.     repeat
  10.       readln(n);
  11.       if (n <=0 ) then
  12.         writeln('Повторите ввод');
  13.     until (n > 0);    
  14.     k := 1;
  15.     res := 0;
  16.     s5 := 5;
  17.     s239 := 239;
  18.     c := 1;
  19.     endCalc := 0;
  20.  
  21.     while (endCalc <> N) do
  22.     begin
  23.       beginCalc := endCalc + 1;
  24.       endCalc := beginCalc + RowCnt-1;
  25.       if (endCalc >= N) then
  26.         endCalc := N;
  27.       //---------------------------------
  28.       //----- верхняя шапка таблицы -----
  29.       writeln();
  30.       for i:= 1 to (endCalc - beginCalc + 2) do
  31.         write ('----------------');
  32.       writeln;
  33.       //----- первая строка -----
  34.       write ('      ШАГ      |');
  35.       for i:= beginCalc to endCalc do
  36.         if (i < 10) then
  37.           write ('       ' + i + '       |')
  38.         else
  39.           write ('       ' + i + '      |');
  40.       writeln;
  41.       for i:= 1 to (endCalc-beginCalc+2) do
  42.         write ('----------------');
  43.       writeln;
  44.       //----- вторая строка -----
  45.       write ('    ЗНАЧЕНИЕ   |');
  46.       //---------------------------------
  47.    
  48.       for i:= beginCalc to endCalc do
  49.       begin
  50.         res := res + 4*(c/(s5*k)) - (c/(s239*k));
  51.         c := c * -1;
  52.         k := k + 2;
  53.         s5 := s5 * 25;  
  54.         s239 := s239 * 239 * 239;
  55.         write('  ', res:12:10, ' |');
  56.       end;
  57.     end;
  58.    
  59.     //---------------------------------
  60.     //----- закрываем таблицу -----
  61.     writeln;
  62.     for i:= 1 to (endCalc-beginCalc+2) do
  63.       write ('----------------');
  64.     writeln();
  65.     //---------------------------------
  66.    
  67.     writeln();
  68.     writeln('n-ое приближение выражения П/4 = ', res:12:10);
  69.     writeln('Для повтора программы введите 1, для завершения - 0');
  70.     readln(q);
  71.   until q <> 1;
  72. 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