программа по рисунку

[WorldMaster]

Вот код:

var angle: double;
    d,x,y, R: double;
    p,l, xc, yc: Integer;
begin
Form1.Canvas.MoveTo(50,200);
Form1.Canvas.LineTo(450,200);

Form1.Canvas.MoveTo(250,20);
Form1.Canvas.LineTo(250,370);

angle :=0;
while(angle<369)
do
  begin
    x :=300+ 50* Cos(angle);
    y :=200+ 50* Sin(angle);
    angle:=angle+0.5;
    p := Round(x);
    l := Round(y);
    Form1.Canvas.Pixels[p,l] := clRed;
  end;

  R := 50; // радиус окружности
  xc := 250; // координаты центра окружности
  yc := 200;

  // код проверки
// специально закрашиваем большую область чтобы видно что подходит под условия
 for p := 0 to 500 do
   for l := 0 to 500 do
   begin
     d := sqrt(sqr(p-R-xc) + sqr(l-yc));
     if (d < R) and (l-yc < 0) then  Form1.Canvas.Pixels[p,l] := clGreen;  // l-yc  меньше нуля потому что оси развернуты в делфи так
   end;
end;

[Vadim7721]

Сообщение от WorldMaster

Вот код:

var angle: double;
    d,x,y, R: double;
    p,l, xc, yc: Integer;
begin
Form1.Canvas.MoveTo(50,200);
Form1.Canvas.LineTo(450,200);

Form1.Canvas.MoveTo(250,20);
Form1.Canvas.LineTo(250,370);

angle :=0;
while(angle<369)
do
  begin
    x :=300+ 50* Cos(angle);
    y :=200+ 50* Sin(angle);
    angle:=angle+0.5;
    p := Round(x);
    l := Round(y);
    Form1.Canvas.Pixels[p,l] := clRed;
  end;

  R := 50; // радиус окружности
  xc := 250; // координаты центра окружности
  yc := 200;

  // код проверки
 for p := 0 to 500 do
   for l := 0 to 500 do
   begin
     d := sqrt(sqr(p-R-xc) + sqr(l-yc));
     if (d < R) and (l-yc < 0) then  Form1.Canvas.Pixels[p,l] := clGreen;
   end;
end;

Спасибо большое, но прошу прощения, можно это сделать попроще, например вот так ?
[ CODE]
var
Angleouble;
d,x,y, R: double;
p,l, xc, yc: Integer;
Begin
Angle:=0;
While (angle <369) do
Begin
x :=300+ 50* Cos(angle);
y :=200+ 50* Sin(angle);
angle:=angle+0.5;
p := Round(x);
l := Round(y);
R := 50;
xc := 250;
yc := 200;
for p := 0 to 500 do
for l := 0 to 500 do
begin
d := sqrt(sqr(p-R-xc) + sqr(l-yc));
if (d < R) and (l-yc < 0) then
Writeln ( ' все попадает ');
End;
End;
End.
[/CODE]

[ViktorR]

Ведь насколько я знаю, теорема Пифагора относится к прямоугольному треугольнику (гипотенуза)^2= (катет) ^2 + ( катет )^ 2

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

PS: Под понятием "центр полукруга" следует понимать точку, которая была центром круга, частью которого является рассматриваемый полукруг.
Ну это так, ...


Как-то так, ...

[WorldMaster]

Да можно еще проще.

var 
d,x,y, R: double;
p,l, xc, yc: Integer;
Begin
R := 50;
   xc := 250;
   yc := 200;
  for p := 0 to 500 do
   for l := 0 to 500 do
   begin
     d := sqrt(sqr(p-R-xc) + sqr(l-yc));
     if (d < R) and (l-yc < 0) then
     Writeln ( ' все попадает ');
  End;
 End.

[Vadim7721]

Сообщение от WorldMaster

Да можно еще проще.

var 
d,x,y, R: double;
p,l, xc, yc: Integer;
Begin
R := 50;
   xc := 250;
   yc := 200;
  for p := 0 to 500 do
   for l := 0 to 500 do
   begin
     d := sqrt(sqr(p-R-xc) + sqr(l-yc));
     if (d < R) and (l-yc < 0) then
     Writeln ( ' все попадает ');
  End;
 End.

Разве не надо readln (x,y); ?

[min@y™]

Ведь насколько я знаю, теорема Пифагора относится к прямоугольному треугольнику (гипотенуза)^2= (катет) ^2 + ( катет )^ 2

мы тута окадемиев не кончали, но высшее абразавание вам даду!

[WorldMaster]

Сообщение от Vadim7721

Разве не надо readln (x,y); ?

Сами то хоть что нибудь сделайте. Вам итак основной алгоритм разжевали.