Вычислить число пи через разложение в ряд взяв 500 слагаемых

Если power изучали, то можно так: var     k: integer;     p: real; begin for k: =1 to 500 do   p: =p+power(-1,k+1)/(2*k-1); writeln('pi/4 = ',p) end.  если не изучали, пиши, сделаю по-другому.версия для турбо: program rd; var      k,z: integer;     p: real; begin z: =1; for k: =1 to 500 do   begin   p: =p+z/(2*k-1);   z: =-z   end; writeln('pi/4 = ',p) end.

Procedure sort(arr : array of integer); var   i, j, temp, len, min : integer; begin   len : = length(arr);   for j : = 0 to len - 2 do   begin     min : = j;         for i : = j + 1 to len - 1 do       if arr[i] < arr[min] then         min : = i;     if min > j then     begin       temp : = arr[j];       arr[j] : = arr[min];       arr[min] : = temp;     end;   end; end; const   n = 10; // количество элементов массива   max = 100; // максимальное число в массиве var   arr : array of integer;   i : integer; begin   //устанавливаем длину массива   setlength(arr, n);   for i : = 0 to n - 1 do     arr[i] : = random(max);     //выводим исходный массив   for i : = 0 to n - 1 do     write(arr[i], ' ');   writeln();   sort(arr);   //выводим отсортированный массива   for i : = 0 to n - 1 do     write(arr[i], ' ');   writeln(); end.

Const n = 10; type arr=array[1..n] of byte; procedure sort(var a: arr); var i, j, max, imax: integer; begin j : = n; while j > 1 do begin     max : = a[1];     imax : = 1;     for i : = 2 to j do         if a[i] > max then begin             max : = a[i];             imax : = i         end;     a[imax] : = a[j];     a[j] : = max;     j : = j - 1   end; end; var a: arr; i: byte;   begin randomize; writeln('исходный массив: '); for i : = 1 to n do    begin   a[i] : = random(256);   write(a[i]: 4)   end; writeln; sort(a); writeln('отсортированный массив: '); for i : = 1 to n do write(a[i]: 4); writeln; end. пример: исходный массив:   119 239 156 143   34 184   93   19 218 120 отсортированный массив:   19   34   93 119 120 143 156 184 218 239