Просто не догоняю как сделать, плиз помогите Великие ПРОГРАМЕРЫ ))

[PUSHkiN]

Закапался по полной, не могу нарисовать, помогите плиз, вот сие задание которое нужно набахать: (Мой мозг это просто перестал воспринимать после двухчасового втыкания):

1). Напишите программу, которая схематически изображает заданный рисунок и по введённому значению аргумента записывает в виде текста уравнение функции на том участке, где находится аргумент. Параметр R задаётся в виде константы.

Тут надо смотреть рис.от задачи№1

2). Составте программу, которая определяет, попадпет ли точка с заданными координатами в область, закрашенную на рисунке темно-серым цветом. Результатом работы программы должно быть сообщение "точка с координатами .... принадлежит заданной области" или "точка с координатами .... не принадлежит заданной области"

А тут рисуночек рис.от задачи№2
Рисунки прекреплены!

Заранее благодарю......

[N!ckeL]

2-я задача:
zeroX, zeroY - координаты нуля

if Form1.Canvas.Pixels[zeroX+strtoint(edit1.text), zeroY+strtoint(edit2.text)]=clSilver then
//попала
else
//не попала

[PUSHkiN]

Я на Делфи и сам могу, так это надо на Паскале..... (((((((((

[Карась]

Разобрать эти задачи с точки зрения математики, а потом только думать как это программировать.

[PUSHkiN]

Да уже пробовал.... и так кручу, и так, с точки зрения математики я её решил, а вот заКодить...

[Stilet]

Я на Делфи и сам могу, так это надо на Паскале

А Делфи не очень далек от Паскаля.

Там тоже есть LineTo и Arc, а это все что нужно чтоб построить первый график.

[Карась]

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

Да уже пробовал.... и так кручу, и так, с точки зрения математики я её решил, а вот заКодить...

Ну и какиеже условия должны соблюдаться во второй задачи чтоб определить принадлежность точки к заданым участкам?

[PUSHkiN]

для левой окружности: (х>=-r) and (y>=0) and (sqr(x-x0)+sqr(y-y0)<=r*r)
r я брал = 5;

для правой тоже самое, только знакт другие, вот только не получается у меня немножко....

[Stilet]

вот только не получается у меня немножко

Код в студию )

[PUSHkiN]

Извините, проблемы с нетом, вот он:

program pr;
 uses crt,graph;
 var r,gr,gs,x,y:integer;

begin
 gr:=detect;
 writeln('Vvedite radius');
 readln(r);
 InitGraph(gr,gs,'');
 line(getmaxx div 2,0,getmaxx div 2,getmaxy);
 line(0,getmaxy div 2,getmaxx, getmaxy div 2);
 setcolor(green);
    {levoe polusharie}
 ellipse(getmaxx div 2-r, getmaxy div 2,0,90,r,r);
 line(getmaxx div 2-r,getmaxy div 2-r,getmaxx div 2-r,getmaxy div 2);
 line(getmaxx div 2-r,getmaxy div 2,getmaxx div 2,getmaxy div 2);
    {pravoe polusharie}
 ellipse(getmaxx div 2+r, getmaxy div 2,180,270,r,r);
 line(getmaxx div 2+r,getmaxy div 2+r,getmaxx div 2+r,getmaxy div 2);
 line(getmaxx div 2+r,getmaxy div 2,getmaxx div 2,getmaxy div 2);
 repeat until keypressed;
 CloseGraph;
 writeln('Vvedite koordinaty tochki');
 readln(x,y);
if ((x>=-r) and (y>=0) and (sqr(x-(getmaxx-r))+sqr(y-(getmaxy-r))<=r*r))
   or
   ((x<=r) and (y<=0) and (sqr(x-(getmaxx+r))+sqr(y-(getmaxy+r))<=r*r))
   then writeln('Vhodit')
   else writeln('NE Vhodit');
 readln;
end.

вот и такая лабуда, не работает...