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

Различия

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

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

Предыдущая версия справа и слеваПредыдущая версия
Последняя версияСледующая версия справа и слева
pascal:graph [14/03/2016 15:25] – ybezrukovpascal:graph [18/03/2016 11:49] – ybezrukov
Строка 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;