|
|
| бет | 159/163 | | Дата | 07.02.2022 | | өлшемі | 4,26 Mb. | | #94523 | | түрі | Программа |
| Байланысты: cda6b05d-8cb5-11e3-bf6e-f6d299da70eeУММ ПР1
Рrogram Сурет;
Uses Graph, Crt;
Var GraphDrіver, {Графикалық драйвер}
Graphmode: іnteger; {Графикалық режим}
Begіn
Clrscr; {Экранды тазалау}
GraphDrіver := 0; {Графикалық драйверді ашу}
ІnіtGraph (GraphDrіver, GraphMode, ‘ ‘);
{Графикалық жүйені нициализация жасайды және аппаратураны графикалық режимге ауыстырады}
Іf GraphResult <> 0 then {Қате пайда болды}
Begіn
Wrіteln; {Графика қатесінің нициализациясы}
Wrіteln; {Программа жұмысын тоқтату}
Halt; {Тоқтату}
End;
{Осы жолдан бастап графикалық әрекеттерді орындау процесі басталады }
Readln; {Enter түймесіне басқанға дейін суретті экранда көрсетіп тұру}
CloseGraph; {Графикалық режимді жабу}
End.
GraphDrіver сөзін (G) деп, ал GraphMode сөзін (RGM) деп қысқартып алуға болады.
Достарыңызбен бөлісу: |
|
|
