мета-данные страницы
Загрузка не удалась. Возможно, проблемы с правами доступа?
Различия
Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слеваПредыдущая версияСледующая версия | Предыдущая версия | ||
pascal:graph [14/03/2016 15:25] – ybezrukov | pascal:graph [05/10/2018 12:39] (текущий) – ybezrukov | ||
---|---|---|---|
Строка 1: | Строка 1: | ||
===== Графика в Паскале ===== | ===== Графика в Паскале ===== | ||
- | FIXME | ||
- | |||
- | Пример работы с графикой в системе Borland (что тоже самое - Turbo) Pascal: | ||
- | |||
- | <code pascal> | ||
- | USES GRAPH; | ||
- | |||
- | VAR h,k,l: INTEGER; | ||
- | |||
- | BEGIN | ||
- | | ||
- | |||
- | | ||
- | | ||
- | |||
- | | ||
- | If h<>0 then // Реакция на ошибку запуска графики | ||
- | begin | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | end | ||
- | else ... ; // Здесь - код для работы с графикой | ||
- | |||
- | | ||
- | |||
- | END. | ||
- | </ | ||
- | |||
Пример работы с графикой в нашей системе. | Пример работы с графикой в нашей системе. | ||
Строка 298: | Строка 268: | ||
<code pascal> | <code pascal> | ||
uses oglgraph; | uses oglgraph; | ||
+ | var | ||
gd, gm, code: smallint; | gd, gm, code: smallint; | ||
| | ||
Строка 309: | Строка 279: | ||
begin | begin | ||
if graphkeypressed then | if graphkeypressed then | ||
+ | begin | ||
code := graphreadkey; | code := graphreadkey; | ||
- | writeln(code); | + | |
+ | | ||
end; | end; | ||
closegraph; | closegraph; |