Программа, проверяющая поподает ли точка M(x,y) в заданную область Опции

[Kosmik]

Написать программу, проверяющую, попадает ли точка M(x,y) с координатами x и y в заданную область. Нарисовать заданный рисунок в графическом режиме и закрасить ту область, в которую попала точка.
Написать программу, которая по заданной области автоматически составляет Паскаль-программу, проверяющую, попадает ли точка M(x,y) с координатами x и y в эту область.



Для решения задачи организуйте арифметический цикл с заранее известным числом повторений.

Напишите, какие появились идеи на счет решения этой задачи...

График я сейчас попытаюсь сделать...в остальном возникли затруднения.

[Archon]

У тебя же два задания, верно? Как я понимаю, изображение относится к первому. Условие для него такое (я потестировал, но ты лучше сама проверь, мало ли):

(y <= 0) and (x <= 0) and ((sqr(x+2) + sqr(y) <= 4) xor ((y < (x+2)*2/3) and (y > (x+3.6641)*(-0.2837)-1.1094)))

Нарисовать картинку на экране, думаю, дело техники.

А вот со вторым заданием непонятно. Судя по всему на вход программе должна поступать некоторым образом заданная область, а на выходе она должна выдавать программу на Паскале. Вот я и спрашиваю, в каком виде должна задаваться эта область. Ну не рисунок же программа разбирать должна. Кстати, вот это:

Для решения задачи организуйте арифметический цикл с заранее известным числом повторений.

к какой задаче относится?

[Kosmik]

График я нарисовала...какой уж получился...простой такой правда...

program graphik;
uses crt,graph;

var gd,gm:integer;
fun:string;

procedure osicoordinat;
const step=25;
var x1,y1,r:integer;
s:string;
begin
 line(210,240,440,240);
 line(320,140,320,330);
 line(430,235,440,240);
 line(430,245,440,240);
 line(315,150,320,140);
 line(325,150,320,140);
 outtextxy(330,140,'Y');
 outtextxy(435,220,'X');
 y1:=240; x1:=320; r:=0;
 str(r div step, S);
 outtextxy(x1-10,y1+6,S);
 while x1+r<420 do
  begin
   r:=r+step;
   str(r div step, S);
   settextjustify (1,1);
   outtextxy(x1+r,y1+10,S);
   s:='-'+S;
   outtextxy(x1-r,y1+10,S);
   line(x1+r,y1-2,x1+r,y1+2);
   line(x1-r,y1-2,x1-r,y1+2);
  end;
  r:=0;
  while y1+r<315 do
   begin
    r:=r+step;
    str(r div step, S);
    settextjustify (1,1);
    outtextxy(x1-10,y1-r,S);
    s:='-'+S;
    outtextxy(x1-10,y1+r,S);
    line(x1+4,y1+r,x1-4,y1+r);
    line(x1+4,y1-r,x1-4,y1-r);
   end;
   end;
   begin
    initgraph(gd,gm,'..\bgi');
    osicoordinat;
    circle (270,240,50);
    line(370,165,395,315);
    line(395,315,230,270);
    line(230,270,370,165);
    SetFillStyle(LtSlashFill,15);
    FloodFill(235,250,15);
    FloodFill(260,285,15);
    FloodFill(315,270,15);
    readln
end.

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

[Lapp]

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

ммммммммне кажется, что нужно было по-другому..
Во-первых, отвыкай (лучше, еще не привыкнув) использовать абсолютные координаты на экране. Исключительный моветон. Правильно было бы задать соответствие математических координат (типа слева x1=-5, справа x2=5 и т.д.) и сделать функцию, которая переводит математические координаты в физические на эеране. Типа так:

function xPh(x: tReal): integer;
begin
  xPh=Round(x/(x2-x1)*GetMaxX)
end;

function yPh(y: tReal): integer;
begin
  yPh=Round((1-y/(y2-y1))*GetMaxY)
end;

Во-вторых, тебе надо было закрасить область, куда попала точка (предварительно, видимо, запросив ее ввход). Куда ПОПАЛА, а не заданная область. Чувствуешь разницу?

А в третьих, задание не очень ясное. Я имею в виду второе.. Как там задается область? ее что, сканировать нужно?? Я бы, может, придумал некий язык для задания и читал бы из файла тогда. В файле что-то типа такого:

Код

area

circle
-2
0
2
inner

line
0
1.5
-2
0
right

line
0
0
-2
0
left

area
....

че скажешь?