Решение задач машиностроения средствами Turbo Pascal. Крупенников О.Г - 84 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

83
CIRCLE(280,120,8);{графическое отображение окружности в верхнем ле-
вом углу}
CIRCLE(360,120,8);{графическое отображение окружности в верхнем пра-
вом углу}
CIRCLE(280,240,8);{графическое отображение окружности в нижнем ле-
вом углу}
CIRCLE(360,240,8);{графическое отображение окружности в нижнем пра-
вом углу}
SETLINESTYLE(2,0,1);{задание типа осевых линий}
LINE(320,95,320,265); {графическое отображение осевых линий
LINE(255,180,385,180); окружности, расположенной по центру}
LINE(280,102,280,138); {графическое отображение
осевых линий
LINE(262,120,298,120); окружности, расположенной в верхнем левом углу}
LINE(360,102,360,138); {графическое отображение осевых линий
LINE(342,120,378,120); окружности, расположенной в верхнем правом углу}
LINE(280,222,280,258); {графическое отображение осевых линий
LINE(262,240,298,240); окружности, расположенной в нижнем левом углу}
LINE(360,222,360,258); {графическое отображение осевых линий
LINE(342,240,378,240); окружности, расположенной в нижнем правом углу}
{графическое отображение надписи названия детали – “КРЫШКА”}
SETTEXTSTYLE(3,0,5);{задание
типа надписи}
OUTTEXTXY(380,35,’КРЫШКА’);{графическое отображение названия
детали в верхнем правом углу рамки}
READLN;
CLOSEGRAPH;{закрытие графического режима}
END;
END.
12.2 Задания к практическому занятию
Составить программу отображения элементов технических систем в гра-
фическом режиме согласно выданному преподавателем варианту задания из
таблицы 12.1.

Страницы