составить алгоритм или блок-схему написать

[danekne]

DetectGrahp поменяйте на directgraph

[Настяyu]

и DetectGrahp поменяли на DetectGraph все равно ошибку пишет..не узнает..(

[Настяyu]

Все равно пишет неизвестен

[danekne]

У тебя Pascal Abc видимо. Там вроде не нужно графику инициализировать. Стирай строку. И Initgraph тоже стирай

[Настяyu]

Дааа...АВС..
стерла, теперь пишет что неизвестен х
может формулу другую надо?
Program z16;
uses crt,graphABC;
var r, k,l,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((x-x0)*(x-x0)+(y-y0)(y-y0)));
circle(x0,y0,R);
readln;
end.

[danekne]

x1 и y1 Поставь вместо x и y

[Настяyu]

Подставили..пишет не верное выражение....r:=round(sqrt((x1-x0)*(x1-x0)+(y1-y0)(y1-y0)));

[Zer0]

(y1-y0)(y1-y0)
Поменять на
(y1-y0)*(y1-y0)

[Настяyu]

Все! получилась!
только теперь окружность не показывается.....а как сделать теперь чтоб нам окружность показывалась????

[Zer0]

Вот про это я точно сказать не могу (не помню как в ABC разделять консольный ввод и отрисовку графики), главное координаты вводить нормально, например:
25 25 10 10 (нарисует маленькую окружность в левом верхнем углу)
-10 -10 -5 -5 (окружность не будет видно, т.к. она будет лежать за границами экрана)