Написать программу которая выводит таблицу значений функйии

[akimbaev]

я в Паскале не сидел ни разу, но надо сделать две задачи. Если можно с комментарием, чтоб я сам разабрался...

1.Написать программу которая выводит таблицу значений функйии y=|x|.Диапазон изменения аргумента от -4 до 4, шаг приращения аргумента 0,5

2. Написать программу которая вычисляет пи с заданной пользователем точностью. Для этого воспользуйтесь тем, что значения частичной суммы ряда 1-/3+1/5-1/7+1/9....при суммировании достаточно большого кол-ва членов приближается к пи/4.
Должно быть что-то вроде этого: Задайте точность пи-0,001
значения числа пи с точностью 0,001 равно 3,143589
просуммировано 502 членов ряда

[eoln]

1)

var
  x: real;
begin
  x := -4;
  writeln('x':6, 'y':6);
  repeat
    writeln(x:6:2, abs(x):6:2);
    x := x + 0.5
  until x > 4;
  readln
end.

2)

{$N+} //на всякий случай сопроцессор включим
var
  p, e: extended;
  k, n: longint;
begin
  write('e = '); readln(e);//вводим точность
  p := 1;
  k := -1;
  n := 0;
  repeat
    inc(n);
    p := p + k * 1/(2 * n + 1);//сумма ряда
    k := -k
  until abs(4 * p - pi) < e;//пока точность не достигнута
  k := 0;
  repeat
    e := e * 10;
    inc(k);//сколько значимых цифр + 1
  until e >= 1;
  writeln('pi = ', 4 * p:0:k);//вывод с округлением
  writeln('elementov = ', n);//кол-во суммирований
  readln
end.