Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.01.2009, 11:01   #1
BuTeK1
 
Регистрация: 08.01.2009
Сообщений: 8
По умолчанию Паскаль графика

Уважаемые программисты !
Помогите пожалуйста доделать задачу !
Задание
С клавиатуры ввести кардинаты точки. Программа должна определить находится ли точка в графическом режиме на нарисованных фигурах (с x и y осью и соответствующими кардинатами ) внутри,снаружи, или на линии ! Точку надо показать на рисунке и вывести соответствующие сообщение на экран. Фигуры закрасить полосками.
Использовать оператор if ! Я незнаю что нужно писать чтобы определялась где находится точка (внутри,снаружи или на линии) !
Вот что я написал -
Program uzd1;

Uses graph,crt;

Var a,r,b,c,x,y,e,midx,midy:integer;

Begin
writeln('Vvedite to4ki');
read(a,b);


x:=detect;

InitGraph(x,y,' ');


e:=graphresult;

if e<>grok then writeln ('ERROR');


CLEARDEVICE;
SETCOLOR(1);
MOVETO(GETMAXX DIV 2, GETMAXY DIV 2);
OUTTEXTXY(GETX, GETY,'0');


midx:=getmaxX div 2;

midy:=getmaxy div 2;

Line(0, round(GetMaxY/2), GetMaxX,

Round(GetMaxY/2));

Line(round(GetMaxX/2), 0,

Round(GetMaxX/2), GetMaxY);


Rectangle(midx-400,midy+0,midx-200,midy-200);

rectangle(midx - 0,midy - 200 ,midx + 200 , midy + 0 );

CIRCLE (735, 600, 100);

SetfillStyle(5,brown);
floodfill(midx-100,midy+100,blue);
floodfill(midx+100,midy-100,blue);
floodfill(midx-300,midy-100,blue);


setcolor(green);
outtextxy(midx+5,midy-200,'+2');
outtextxy(midx-200,midy-10,'-2');
outtextxy(midx+200,midy-10,'+2');
outtextxy(midx-400,midy-10,'-4');
outtextxy(midx+5,midy+200,'-2');
Setfillstyle(1,4);
setcolor(4);
Sector (midx+a*100,midy-b*100,0,360,4,4);
readkey;
Readln;

CloseGraph;
End.
BuTeK1 вне форума Ответить с цитированием
Изображения
Тип файла: jpg uzdevums1111111.JPG (5.5 Кб, 123 просмотров)
BuTeK1 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Графика. Паскаль Zond235 Паскаль, Turbo Pascal, PascalABC.NET 15 11.06.2010 18:17
Паскаль. Задачи. (Графика, БД, строки) Aferist Помощь студентам 16 19.02.2010 17:48
ПАСКАЛЬ ГРАФИКА glasian Помощь студентам 19 17.06.2008 04:26
Приммитивная графика. Паскаль. Oleg Romanchuk Помощь студентам 1 11.01.2008 10:48