ВУЗ:
Составители:
Рубрика:
xxl:=64;
yyl:=3;
for i:=l to 8 do
ааШ
:=0;
for i:=l
to 8 do begin
ocno_curs(xxl,yyl,xxl+12,yyl,3,'
у
');
yyl:=yyl+2; end;
yyl:=3;
repeat
ocno_curs(xxl,yyl,xxl+12,yy1,1,'
у
');
key:=readkey; case key of
chr(80):begin
ocno_curs(xxl,yyl,xxl+12,yyl,3,'
у
');
if yyl<17 then
begin
yyl:=yyl+2;
end
else begin
yyl:=3; end; end;
chr(72):begin
ocno_curs(xxl,yyl,xxl+12,yyl,3,'
у
');
if yyl>3 then
begin
yyl:=yyl-2;
end else
Страницы
- « первая
- ‹ предыдущая
- …
- 135
- 136
- 137
- 138
- 139
- …
- следующая ›
- последняя »
