Задачи на паскаль.

[wegan32]

Здравствуйте, прошу помощи в написани программ. Задачь будет несколько, помогите по возможности, пожалуйста. Есть ограничение по времени, до 19:50 по мсу. Буду очень благодарен если кто откликнется.

1)Вычислить приближенное значения квадратного корня положительного числа (вводится с клавиатуры), используя формулу Герона. Точность вычисления ϵ=0,0001
2)Вычислить приближенное значение cos(x), где x вводится с клавиатуры ( |x| , аргумент в радианах), через разложение в ряд ... Точность вычисления ϵ=0.001 (фотография с cos(x))
3)Вычислить число π с точностью до третьего знака после запятой, через вычисление суммы (фотография с пи)
4)Вычислить приближенное значение корня уравнения x=cos(x) вблизи нуля.

[ViktorR]

Думаю, что вам во Фриланс.

[newerow1989]

const e=1e-3;
var k:integer;
    s,s1:real;
    znak:-1..1;
begin
   k:=1;
   s:=1;
   znak:=1;
   Repeat
      k:=k+2;
      znak:=-znak;
      s1:=znak/k;
      s:=s+s1;
   Until Abs(s1)<e;
   s:=4*s;
   Writeln(s:0:8);
   Readln;
end.

const e=1e-3;
var k:integer;
    x,s,s1:real;
    znak:-1..1;
begin
   Write('x = '); Readln(x);
   k:=0;
   s:=1;
   s1:=1;
   znak:=1;
   Repeat
      k:=k+2;
      znak:=-znak;
      s1:=s1*x*x/k/(k-1);
      s:=s+znak*s1;
   Until Abs(s1)<e;
   Writeln(s:0:8);
   Readln;
end.

function f(x:real):real;
begin
   Result:=x-Cos(x);
end;

const dx=1e-3;
      a=-pi/2;
      b=pi/2;
var x,f0,f1:real;
begin
   x:=a-dx;
   Repeat
      x:=x+dx;
      f0:=f(x-dx);
      f1:=f(x);
      If f0*f1<0 then
         Writeln(x:0:8,' = ',x*180/pi:0:8,'°');
   Until x>b;
   Readln;
end.

[digitalis]

ФРИЛАНС - имя ему newerow1989 Он бескорыстно любит лентяев - двоечников. Ну и правильно - пусть получают свои баллы, оставаясь тёмными, как 100 пудов дыма. Конкуренция будет меньше.
А то, что последняя задача неверно решена - это двоечникам на пользу. Функция f(x) не описана. Само решение очень приблизительное, с точностью до dx. Впрочем, ни метод поиска корней, ни требуемая точность не заданы, поэтому "вот вам интервал локализации корня, корень где-то там, в носу © А.Райкин, и отвяжитесь с вашей ерундой" .
Ну а бедняга Геро́н Александри́йский вообще проигнорирован... Восполним этот пробел.

function Her_On(arg,eps: Extended ) : Extended ;
var x1,x2,d:  Extended ;
begin
  x1 := arg ;
  Repeat
    x2 := (x1+arg/x1)/2.0 ;
    d := Abs (x1/x2-1) ;
    x1 := x2 ;
  until d<eps ;
Her_On := x2
end ;

[newerow1989]

В последней задаче забыл скопировать:

function f(x:real):real;
begin
   Result:=x-Cos(x);
end;

Прошу извинить меня, если что.

[Alex314]

Сообщение от digitalis

ФРИЛАНС - имя ему newerow1989

Вначале тоже хотел было поиграть во фриланс. Но давно уже пишу только на PascalABC.NET. И подумал: раз человек просит такую ерунду решить, наверняка ему нужен код на древнющих версиях. И не стал писать. Потому что совсем не факт, что он оценит функцию

function f(x: real) := x - Cos(x);

[digitalis]

Если в ТурбоПаскаль, то он вроде бы Result не понимает, это Дельфийская версия. Поэтому

function f(x:real):real;
begin
 f :=x-Cos(x);
end;

про абеце не скажу, не знаю.