Турбо-Паскаль, циклические программы.

[Василий_0110]

Тут 3 вложения:
1) написать программу
2) написать программу, которая вычисляет значения функции при зад. аргументах
3) условие на фото

[Vanta11a]

В чем проблема/затык?

[Василий_0110]

В первой задаче не знаю, как обозначить близость точки, принадлежащей графику началу координат; в третьей не пойму, что такое точность и когда умножать на 2 в формуле. Вторую пытаюсь сейчас написать.

[BDA]

Про первую:
Расстояние между 2 точками считается по теореме Пифагора (можно не извлекать корень, так как это не влияет на знак сравнения). Нужно перебрать все возможные значения x с заданным шагом и выбрать минимальное.
Про третью:
Нужно посчитать сумму. Каждое следующее слагаемое меньше предыдущего. В конце концов, очередное слагаемое будет меньше E - заданной точности. Продолжать суммирование не имеет смысла, так как сумма будет изменяться крайне слабо. Умножать на 2 после того, как посчитана сумма.

[Василий_0110]

Вот код Паскаль ко второй задаче (тут еще ошибка в операторе for, но я не пойму, как ее исправить) остальное верно? :

Program zadanie4;
   const xn=0.1;
         xk=0.9;
         dx=0.1;
   var x, y, c, b, S, n:real;
Begin
   x:=xn;
   S:=0;
   Repeat
   c:=(sin(x)+2)/(3+cos(x));
       For n:=0 to 20 do
       begin
       if (x<=0.5) then a:=2*n 
       else a:=n/2;
       b:=a*exp(a*ln(x));
       b:=b+S;
       
       end;

   y:=c*b;
   writeln ('Pri x=',x:3:1, '  y=', y:8:2);
   x:=x+dx;
   until x=xk
End.

[Mad_Cat]

у вас x в степени n,а не a

b:=a*exp(n*ln(x));s:=b+S;{...}y:=c*s;

[Василий_0110]

всё равно пишет "Invalid FOR control variable"
там, где n:=0
в чём тут ошибка?

[type_Oleg]

Сообщение от Василий_0110

всё равно пишет "Invalid FOR control variable"
там, где n:=0
в чём тут ошибка?

В том, что

 var n:real;

Тип .

[Василий_0110]

я исправил, но теперь пишет, что ошибка переполнения.

Program zadanie4;
   const xn=0.1;
         xk=0.9;
         dx=0.1;
   var x, y, c, b, a, S :real;
       n:integer;
Begin
   x:=xn;
   S:=0;
   Repeat
   c:=(sin(x)+2)/(3+cos(x));
       For n:=0 to 20 do
       begin
       if (x<=0.5) then a:=2*n
       else a:=n/2;
       b:=a*exp(n*ln(x));
       b:=b+S;
     
       end;

   y:=c*b;
   writeln ('Pri x=',x:8:2, '  y=', y:8:2);
   x:=x+dx;
   until x=xk
End.

Программа зацикливается, x идет равным больше 70, потом выбивает ошибку переполнения. но я же написал условие выхода из цикла, почему так?

Я написал третью программу, помогите исправить, пожалуйста.
В виде таблицы я потом сам сделаю и алгоритм нарисую.
Помогите, пожалуйста найти ошибку:

Program zad5;
  const MaxIter=1000;
  var x, xn, dx, xk, EPS, S, c, P, Y: double;
      n:integer;

Begin
writeln ('vvedite xn, xk, dx, EPS');
Readln(xn, xk, dx, EPS);
 x:=xn;
 S:=c;
 n:=0;
 while abs(y)>EPS do
   begin
   if n<=MaxIter then
   c:=1/((2*n+1)*exp((2*n+1)*ln(x)));
   y:=c*2;
   S:=y+S;
   writeln ('x=',x, '  y=', y, ' n=', n);
   readln
   end;
end.

[BDA]

Program zad5;
var
    x, xn, dx, xk, EPS, S, a{, c, P, Y}: double;
    n: integer;
Begin
    writeln ('vvedite xn, xk, dx, EPS');
    Readln(xn, xk, dx, EPS);
    x := xn;
    while x <= xk do
    begin
        S := 0;
        a := 1 / x;
        n := 0;
        while abs(a) > EPS do
        begin
            S := S + a;
            inc(n);
            a := (2 * n - 1) * a / ((2 * n + 1) * x * x);
        end;
        writeln ('x = ', x:0:4, '  y = ', 2 * S:0:4, ' n = ', n);
        x := x + dx;
    end;
    readln;
end.