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

[Настяyu]

Постройте окружность по двум заданным точкам: центру и одной из точек окружности. Обе точки указываются с клавиатуры.

[danekne]

алгоритм:
вводим точки
Высчитываем радиус (расстояние между точками). Можно разными способами писать
В цикле - По формуле окружности (писать не буду, в инете есть) рисуем окружность с любым заданным шагом
Профит!

[Настяyu]

сПАСИБО БОЛЬШОЕ...а как в паскале высчитывается радиус окружности?

[danekne]

(x-x0)^2+(y-y0)^2 = R^2. (x0,y0) - Координаты центра. (X,y) - Координаты точки на окружности

[danekne]

Это, кстати, в геометрии, а не только в паскале

[danekne]

Ааа, блин, про graph забыл. Короче

USES GRAPH
VAR H,k,l,x0,y0,x1,y1: INTEGER;
BEGIN
	DetectGrahp(k,l);
	InitGraph(k,l,'d:\tp7\bgi\');
Writeln('Введите x0');
Readln(x0);
Writeln('Введите y0');
Readln(y0);
Writeln('Введите x1');
Readln(x1);
Writeln('Введите y1');
Readln(y1);
R:=Sqrt((x-x0)*(x-x0)+(y-y0)(y-y0));
circle(x0,y0,R);
Readln;
end;

Что то вроде этого

[Настяyu]

Все, спасибо, уже нашла)))))))))))

[Настяyu]

он пишет неизвестный DetectGrahp((((
что он вообще значит?

[Zer0]

DetectGraph
Просто в коде опечатка
А для чего он - можете почитать тут

+

R:=Sqrt((x-x0)*(x-x0)+(y-y0)(y-y0));

R - не объявленная переменная, и чтобы использовать это значение в Circle - оно должно быть целым
Т.е. добавьте в var

R:word;

И эту формулу поменяйте на

R:=Round(Sqrt((x-x0)*(x-x0)+(y-y0)(y-y0)));

[Настяyu]

Program z16;
uses crt,graphABC;
VAR k,l,x0,y0,x1,y1: INTEGER;
R:word;
BEGIN
DetectGrahp(k,l);
InitGraph(k,l,'d:\tp7\bgi\');
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.


Вот так пишем, не получается...все равно, неизвестный DetectGrahp