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



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

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

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

А в каком виде задается область?

В заштрихованную область...там на рисунке отмечено.

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

(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)))

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

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

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

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.

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

Рисует красиво

Спасибо

ммммммммне кажется, что нужно было по-другому..
Во-первых, отвыкай (лучше, еще не привыкнув) использовать абсолютные координаты на экране. Исключительный моветон. Правильно было бы задать соответствие математических координат (типа слева 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;

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

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


че скажешь?

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

Не так страшен черт..
Думай, это дело хорошее )).
Имея такие функции, которые я написал выше, ты можешь задавать, например, линию, так:

Line(xPh(-1),yPh(2),xPh(3.5),yPh(-10.23));

Но это громоздко. Лучше, если ты сделаешь также проседурку типа такую:

procedure MathLine(x1,y1,x2,y2: tReal);
begin
  Line(xPh(x1),yPh(y1),xPh(x2),yPh(y2))
end;

И вот тогда все станет намнооооого проще )).
Такие же можно сделать для рисования всех остальных примитивов. И засунь их всех в смой личный юнит MathGraph .

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

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

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

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

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

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

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

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

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

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



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


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

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

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

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.

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

А может попробуем мою переделать? окружность уже рисует по координатам только вот с треугольником возникли проблемки..программа вот в этих строчках указывает на ошибку...скорее всего из-за этих чисел 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);
теперь все работает

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

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

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

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

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

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

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

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