70

Нужен какойнибудь рисунок на языке турбо-паскаль,) произвольный рисунок,)…

22 февраля 2023

Нужен какойнибудь рисунок на языке турбо-паскаль,) произвольный рисунок,) помогите пожалуйста, желательно с обьяснением) заранее спасибо) ну только рисунокчтобы был не какой нибудь сложный, а простой типо обезьяны) благодарю)

категория: информатика

34

program Picture; uses Graph; const PathToDriver='D: \BP\bgi'; {подставьте свой путь к каталогу с файлами*.bgi}var Gd,Gm: Integer; begin DetectGraph (Gd, Gm); {определим драйвер и режим} InitGraph (Gd, Gm, PathToDriver); {проинициализируем графику} if GraphResult <> grok then Halt (1); {если ошибка, завершим работу} SetViewPort (0,0,639,349,ClipOn); {установим область рисования} ClearViewPort; {очистим область рисования} {для рисования используем следующие процедуры} {Circle (X,Y,R) — рисует окружность} {MoveTo (X,Y) — перемещает указатель в заданную точку} {LineTo (X,Y) — проводит линию от указателя до заданной точки,} { указатель перемещает в конец линии} {Rectangle (X1,Y1,X2,Y2) — рисует прямоугольник} {PutPixel (X,Y,Color) — ставит точку в позиции с заданным цветом} {человечек} Circle (170, 225, 5); MoveTo (170, 230); LineTo (170, 260); MoveTo (160, 240); LineTo (170, 250); LineTo (180, 240); MoveTo (160, 270); LineTo (170, 260); LineTo (180, 270); {домик} MoveTo (230, 270); LineTo (230, 320); LineTo (290, 320); LineTo (290, 270); LineTo (260, 220); LineTo (230, 270); LineTo (290, 270); MoveTo (250, 320); LineTo (250, 290); LineTo (270, 290); LineTo (270, 320); PutPixel (265, 305, White); {дерево} Circle (345, 175, 45); Rectangle (340, 220, 350, 320); ReadLn; {задердка для просмотра} CloseGraph; {выход из графического режима}end.

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...