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

Различия

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

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

Предыдущая версия справа и слеваПредыдущая версия
Следующая версия		Предыдущая версия
Последняя версияСледующая версия справа и слева
pascal:graph [14/03/2016 14:10] – ybezrukovpascal:graph [18/03/2016 11:49] – ybezrukov
Строка 280: Строка 280:
 <code pascal> repeat until graphkeypressed;</code> <code pascal> repeat until graphkeypressed;</code>
  
-Когда выполнение программы доходит до этой строки, запускается цикл repeat-until, который работает до тех пор, пока условие не станет истинным, что в нашем случае произойдет только при нажатии любой клавиши.+Когда выполнение программы доходит до приведенной строки, запускается цикл repeat-until, который работает до тех пор, пока условие не станет истинным, что в нашем случае произойдет только при нажатии любой клавиши.
  
 Функция graphreadkey так же реагирует на нажатия, но в результате работы возвращает скан-код клавиши, т.е. уникальное целочисленное значение, которое соответствует коду клавиши, генерируемому контроллером клавиатуры. Функция graphreadkey так же реагирует на нажатия, но в результате работы возвращает скан-код клавиши, т.е. уникальное целочисленное значение, которое соответствует коду клавиши, генерируемому контроллером клавиатуры.
Строка 298: Строка 298:
 <code pascal> <code pascal>
 uses oglgraph; uses oglgraph;
 +var
   gd, gm, code: smallint;   gd, gm, code: smallint;
      
Строка 309: Строка 309:
   begin   begin
      if graphkeypressed then      if graphkeypressed then
 +     begin
         code := graphreadkey;          code := graphreadkey; 
-     writeln(code);+        writeln(code); 
 +     end;   
   end;   end;
   closegraph;   closegraph;