Ошибка 46 в алго

Авторизуйтесь или зарегистрируйтесь, чтобы добавить комментарий
leinkor
10
leinkor  

Написал код и пишет ошибку 46 в чем ошибка

Program NoName;

Var AB,x1,x2,y1,y2:integer;

Begin

Write('x1='); Readln(x1);

Writeln('x2='); Readln(x2);

Writeln('y1='); Readln(y1);

Writeln('y2='); Readln(y2);

AB:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));

Writeln('AB=',AB);


end.

Andrey F. Zelinsky
35834
Andrey F. Zelinsky  
leinkor:

Написал код и пишет ошибку 46 в чем ошибка

Program NoName;

Var AB,x1,x2,y1,y2:integer;

Begin

Write('x1='); Readln(x1);

Writeln('x2='); Readln(x2);

Writeln('y1='); Readln(y1);

Writeln('y2='); Readln(y2);

AB:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));

Writeln('AB=',AB);


end.


навскидку -- АВ какого типа?

TheXpert
18271
TheXpert  
program HelloWorld;

Var x1,x2,y1,y2:integer;
Var AB:extended;

begin
   Write('x1='); Readln(x1);
   Writeln('x2='); Readln(x2);
   Writeln('y1='); Readln(y1);
   Writeln('y2='); Readln(y2);
   AB:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
   Writeln('AB=',AB);
end.
Авторизуйтесь или зарегистрируйтесь, чтобы добавить комментарий