Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

Уважаемые программисты !
Помогите пожалуйста доделать задачу !
Задание
С клавиатуры ввести кардинаты точки. Программа должна определить находится ли точка в графическом режиме на нарисованных фигурах (с 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 Кб, 6 просмотров)
BuTeK1 вне форума   Ответить с цитированием
Ответ

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


03:58.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru