до каких чисел округляет функция round в Паскале ABC&

[Настяyu]

Помогите пожалуйста, мне надо узнать, до каких чисел округляет round в Паскале АВС????????
заранее спасибо!

[ByAlex]

Сообщение от Настяyu

Помогите пожалуйста, мне надо узнать, до каких чисел округляет round в Паскале АВС????????
заранее спасибо!

До ближайшего целого!

[veniside]

если они заявляют о совместимости с Дельфи, то должны использовать т.н. банковское округление.

http://ideone.com/eT8k7

[Настяyu]

Program z16;
uses crt,graphABC;
var r,x0,y0,x1,y1: integer;
begin
writeln(' x0');
readln(x0);
writeln('y0');
readln(y0);
writeln('x1');
readln(x1);
writeln(' y1');
readln(y1);
r:=round(sqrt((x1-x0)*(x1-x0)+(y1-y0)*(y1-y0)));
circle(x0,y0,r);
readln;
end.


а как сделать здесь, чтобы окружность не выходила за пределы?

[Настяyu]

она у меня за пределы выходит и всё! ((не могу сделать никак...

[Настяyu]

Program z16;
uses crt,graphABC;
var r,k,x0,y0,x1,y1: integer;
begin
writeln('Ââåäèòå x0');
readln(x0);
writeln('Ââåäèòå y0');
readln(y0);
writeln('Ââåäèòå x1');
readln(x1);
writeln('Ââåäèòå y1');
readln(y1);
k:=round(r);
r:=round(sqrt((x1-x0)*(x1-x0)+(y1-y0)*(y1-y0)));
circle(x0,y0,r);
readln;
end.

может так?