Программа, проверяющая поподает ли точка 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
....

че скажешь?

[Kosmik]

че скажешь?

Скажу что для меня пока все это сложно а на счет задания абсолютных координат я подумаю

[Kosmik]

Что-то у меня вообще ничего не получается если такие задачи нам дают на первом курсе то что будет дальше?..

[Lapp]

Что-то у меня вообще ничего не получается если такие задачи нам дают на первом курсе то что будет дальше?..

Надя, ты чего?.. Так хорошо начинала, все сама делала.. Я смотрел - не мог нарадоваться (пошерсти-ка по форуму, посмотри, как другие поступают..).

Что именно у тебя не выходит? Ты говори, разберемся вместе. Обязательно разберемся.

[Kosmik]

Что именно у тебя не выходит?

Я не могу построить график по координатам...вообще никак не получается...пробовала в той же программе прописать ту процедуру, которую Вы посоветовали..но как у новичка в прогроммировании..стали выходить ошибки...одну исправлю выходит другая...я уже запуталась..не могу понять что мне сейчас делать. Все что нарисовала переделывать или искать решение у второй задачи. Путаница в голове полнейшая

Если бы я смогла как-то начертить график окружности и нарисовать треугольник по его вершинам...там наверное уже можно бы было думать на счет второй задачи. Щас буду думать как это все воплотить...может что-то и получится...надеюсь.

[Lapp]

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

Очень часто приходится переделывать всю программу, с начала до конца. Как ьы хорошо ни старался продумать заранее, все учесть невозможно. Тому, кто боится переделать все с нуля, в программировании делать нечего )). Обычно желание все переписать появляется и потом накапливается. В некоторый момент понимаешь, что все - по-старому уже нельзя. И процесс переделки далеко не всегда радужный..

Если бы я смогла как-то начертить график окружности и нарисовать треугольник по его вершинам...там наверное уже можно бы было думать на счет второй задачи.

Боюсь, я не совсем тебя понял. Что означает "начертить график окружности"? У тебя же есть процедура Circle. Просто нужно подставить туда математические координаты. Сложность возникает в случаеЬ когда масштаб по осям не совпадает. И тогда ясно, что на самом деле нужно использовать не Circle, а Ellipse с соответствующим пересчетом осей. Сможешь сама сделать или помочь?

А треугольник по вершинам - просто с помощью MathLine .. Я что-то упускаю?

ты только не паникуй )). без трудностей не бывает. да и неинтересно.. ))

[Kosmik]

Очень часто приходится переделывать всю программу, с начала до конца. Как ьы хорошо ни старался продумать заранее, все учесть невозможно. Тому, кто боится переделать все с нуля, в программировании делать нечего )). Обычно желание все переписать появляется и потом накапливается. В некоторый момент понимаешь, что все - по-старому уже нельзя. И процесс переделки далеко не всегда радужный..

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

Боюсь, я не совсем тебя понял. Что означает "начертить график окружности"? У тебя же есть процедура Circle. Просто нужно подставить туда математические координаты. Сложность возникает в случаеЬ когда масштаб по осям не совпадает. И тогда ясно, что на самом деле нужно использовать не Circle, а Ellipse с соответствующим пересчетом осей. Сможешь сама сделать или помочь?

Помогите, если вам будет это не трудно

А треугольник по вершинам - просто с помощью MathLine .. Я что-то упускаю?

Пыталась это сделать, но на этой строчке Line(xPh(x1),yPh(y1),xPh(x2),yPh(y2)) все время выходила какая-то ошибка(только уже не помню какая, слишком их много сегодня было ).

Добавлено через 17 мин.
окружность нарисовала:) щас процедуру MathLine попытаюсь прописать...

[Lapp]

Помогите, если вам будет это не трудно

Во-первых, я там ошибся выше в переводе координат - извиняюсь..
Во-вторых, ниже я переделал все названия (это я люблю)).
В третьих, вот:

uses
  Graph;

var
  MaX1,MaY1,MaX2,MaY2: double;


function PhX(x: double): integer;
begin
  PhX:=Round((x-MaX1)/(MaX2-MaX1)*GetMaxX)
end;


function PhY(y: double): integer;
begin
  PhY:=Round((1-(y-MaY1)/(MaY2-MaY1))*GetMaxY)
end;


procedure MaLine(x1,y1,x2,y2: double);
begin
  Line(PhX(x1),PhY(y1),PhX(x2),PhY(y2))
end;


procedure MaCircle(x1,y1,r: double);
begin
  Circle(PhX(x1),PhY(y1),PhX(MaX1+r))
end;


procedure MaTriangle(x1,y1,x2,y2,x3,y3: double);
begin
  Line(PhX(x1),PhY(y1),PhX(x2),PhY(y2));
  Line(PhX(x2),PhY(y2),PhX(x3),PhY(y3));
  Line(PhX(x3),PhY(y3),PhX(x1),PhY(y1))
end;


var
  gd,gm: integer;


begin
  gd:=0;
  InitGraph(gd,gm,'');

  // расставим мат. границы
  MaX1:=-6;
  MaX2:=6;
  MaY2:=(MaX2-MaX1)/GetMaxX*GetMaxY/2;
  MaY1:=-MaY2;

  // рисуем оси
  MaLine(-5.5,0,5.5,0);
  MaLine(0,-3.5,0,3.5);

  MaTriangle(-3.7, -1.2, 3, 2, 3, -3);
  MaCircle(-2, 0, 2);
  ReadLn
end.

С эллипсом немного потом, ладно? Когда посплю чуток)).
И зарубки на осях сделаем)).

[Kosmik]

А может попробуем мою переделать? окружность уже рисует по координатам только вот с треугольником возникли проблемки..программа вот в этих строчках указывает на ошибку...скорее всего из-за этих чисел 3.6 может знаете в чем ошибка?
line(x1+3*st,y1+3*st,x1-(3.6*st),y1+1.2*st);
line(x1-3.6*st,y1+1.2*st,x1+2*st,y1-3*st);

program graphik;
uses crt,graph;
const st=25;
var gd,gm:integer;
x2,x1,y2,y1,r:integer;
fun:string;

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

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

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,'..\pp');
osicoordinat;

y1:=240; x1:=320; r:=2*st;
circle (x1-2*st,y1,r);
line(x1+2*st,y1-3*st,x1+3*st,y1+3*st);
line(x1+3*st,y1+3*st,x1-(3.6*st),y1+1.2*st);
line(x1-3.6*st,y1+1.2*st,x1+2*st,y1-3*st);
SetFillStyle(LtSlashFill,15);
FloodFill(235,250,15);
FloodFill(260,285,15);
FloodFill(315,270,15);
readln
end.

Добавлено через 10 мин.

Ошибку решила так
line(x1+3*st,y1+3*st,x1-trunc(3.6*st),y1+trunc(1.2*st));
line(x1-trunc(3.6*st),y1+trunc(1.2*st),x1+2*st,y1-3*st);
теперь все работает

Теперь осталась вторая часть задания да?

[Kosmik]

вот моя программка все координаты абсолютные  graphik.pas ( 1.69 килобайт ) Кол-во скачиваний: 612
программка теперь отмечает ту область куда поподает точка а как сделать чтобы в определенную область попадала, еще не знаю

Добавлено через 5 мин.
просто в моей программке мне все понятно а вашей я запуталась

Сообщение отредактировано: Kosmik - 29.11.2009 4:18

[Kosmik]

Оставляю здесь мой "шедевр"  graphik.pas ( 1.97 килобайт ) Кол-во скачиваний: 604

Сделала все что смогла...

[Lapp]

Сделала все что смогла...

Уверена?
Я так и не понял, что тебе не было понятно в моем коде. Ты пишешь: "запуталась" - но не говоришь, в чем. Не получилось разметить оси координат? Заштриховать? Что именно вызвало трудность?

Дело ведь в чем.. В абсолютные координаты можно пересчитать одну несложную картинку - ну, две.. А знаешь, как выглядит твоя картинка на моем мониторе (1920х1280)? Почему не заставить компьютер делать работу по пересчету координат? Он это умеет лучше людей )). Можно учесть разные размеры экрана. Можно вообще делать несколько окон с графиками на экране одновременно. Ты только представь, как бы ты стала рисовать, скажем, синус в левом окошке, косинус справа и экспоненту в центре.. Везде же нужно делать свой сдвиг! А программными же средствами - только не забывай переключать окна.. ))
Не выглядит заманчивым? .. нет?
Или ты думаешь, что программирование - это значит правильно вычислить число на калькуляторе, а потом занести его в программный код?..

[Kosmik]

Я так и не понял, что тебе не было понятно в моем коде. Ты пишешь: "запуталась" - но не говоришь, в чем. Не получилось разметить оси координат? Заштриховать? Что именно вызвало трудность?

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

А знаешь, как выглядит твоя картинка на моем мониторе (1920х1280)?

Не знаю как?

Можно вообще делать несколько окон с графиками на экране одновременно. Ты только представь, как бы ты стала рисовать, скажем, синус в левом окошке, косинус справа и экспоненту в центре..

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

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