GAECHKA
Твоя помощница в решении задач

Syntax error "Begin" expected but "uses" found" (3.1) при компиляции в третьей строке я так понимаю как исправить?

Program kr;
Uses Crt;
Uses Math;
const e=0.0001;
Var
    a,b,temp_a, temp_b,x: Real;
    i:integer;
 
Function func_popolam(x: Real): Real;
  Begin
    func_popolam:=2*power(x,4)-8*power(x,3)+8*sqr(x)-11;
  End;
 
 Function func_hord(x: Real): Real;
  Begin
    func_hord:=2*power(x,4)-8*power(x,3)+8*sqr(x)-11;
  End;
  
 Function f1(z: double): double; {Основная функция}
Begin
    f1:=2*power(x,4)-8*power(x,3)+8*sqr(x)-11;
End;
 
Function f2(z:double): double; {Производная от основной функции}
Begin
    f2:=8*power(x,3)-24*sqr(x)+16*x;
End;
 
Begin
    ClrScr;
    Write('Введите левую границу отрезка: ');
    ReadLn(temp_a);
    Write('Введите правую границу отрезка: ');
    ReadLn(temp_b);
    i:=0;   
    a:=temp_a;
    b:=temp_b;
    Repeat
        x:=(a+b)/2;
        If func_popolam(a)*func_popolam(x)=0 Then b:=x
                   Else a:=x;
                       i:=i+1;
    Until abs(func_popolam(x))=e;      
    Writeln('1. Метод деления отрезка пополам. Корень уравнения x = ', x:0:4,' итераций=',i);
    
    i:=0;
    a:=temp_a;
    b:=temp_b;
    { Вычисляем в цикле, пока не достигнуто заданное приближение }
    Repeat
        x:=a-func_hord(a)*(b-a)/(func_hord(b)-func_hord(a));
        If func_hord(a)*func_hord(x)=0 Then b:=x
                   Else a:=x;
                       i:=i+1;
    Until abs(func_hord(x))=e;      
    Writeln('2. Метод хорд. Корень уравнения x = ', x:0:4,'  итераций=',i);
    
    i:=0;
    a:=temp_a;
    b:=temp_b;
    if f1(a)*f2(a)>0 then x:=a
 
    else x:=b;
    
    while abs(f1(x))>e do
       begin
       i:=i+1;
         x:=x-f1(x)/f2(x);
       end;
 
     Writeln('3. Метод Ньютона. Корень уравнения x = ', x:0:4,'  итераций=',i); 
    
    Repeat Until KeyPressed
    
End.
0
вопрос задан

Источник


1 ответ
Program kr;
Uses Crt, Math; // Uses должен быть один
const e=0.0001;
// ...