Графическое меню, имеющее следующие команды: окружность, треугольник, отрезок, выход

19.10.2012, 20:32. **Показов** 1504. **Ответов** 0

Author24 — интернет-сервис помощи студентам

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

Я написал код

Pascal

Program Graphika;
Uses crt, Graph;
Var d,m:integer; s:string;
Begin
d:=detect;
initgraph(d,m,'');
moveto(5,5);
lineto(150,5);
line(150,5,150,200);
line(150,200,5,200);
line(5,200,5,5);
OutTextXY(53,98, 'Circle');
moveto(150,5);
lineto(295,5);
line(295,5,295,200);
line(295,200,150,200);
OutTextXY(178,98, 'Treygol''nik');
moveto(295,5);
lineto(440,5);
line(440,5,440,200);
line(440,200,295,200);
OutTextXY(343,98, 'Otrezok');
moveto(440,5);
lineto(585,5);
line(585,5,585,200);
line(585,200,440,200);
line(440,200,440,5);
OutTextXY(498,98, 'Exit');
readln;
End.

Как организовать работу мыши по вышеуказанной задаче в этом коде. Фигуры сам нарисую, помогите только организовать работу с мышью. Заранее спасибо!

	19.10.2012, 20:32