мета-данные страницы
  •  
Загрузка не удалась. Возможно, проблемы с правами доступа?

Различия

Показаны различия между двумя версиями страницы.

Ссылка на это сравнение

Предыдущая версия справа и слеваПредыдущая версия
Следующая версия		Предыдущая версия
pascal:graph [14/03/2016 08:25] – ybezrukovpascal:graph [05/10/2018 05:39] (текущий) – ybezrukov
Строка 1: Строка 1:
 ===== Графика в Паскале ===== ===== Графика в Паскале =====
-FIXME 
- 
-Пример работы с графикой в системе Borland (что тоже самое - Turbo) Pascal: 
- 
-<code pascal> 
-USES GRAPH;                           // подключение "графической библиотеки" 
- 
-VAR h,k,l: INTEGER; 
- 
-BEGIN 
- ...                                  // "Неграфическое" начало программы (если есть) 
- 
- DetectGrahp(k,l);                    // Определение параметров графики 
- InitGraph(k,l,'d:\tp7\bgi\');        // Инициализация графики 
-  
- h:=GraphResult;                      // Проверка на ошибку запуска графики 
- If h<>0 then                         // Реакция на ошибку запуска графики  
- begin 
-   writeln('Error - ', h); 
-   writeln('Press ENTER for EXIT!');  // Ожидание  
-   readln;  
-   halt;                               // Выход из программы 
- end 
- else ... ;                            // Здесь - код для работы с графикой  
- 
- ...                                   // "Неграфическое" окончание программы (если есть) 
- 
-END. 
-</code> 
- 
  
 Пример работы с графикой в нашей системе. Пример работы с графикой в нашей системе.
Строка 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);+        writeln(code); 
 +     end;   
   end;   end;
   closegraph;   closegraph;