Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
uses graph,crt;
var grmode: integer;
grdriver: integer;
left,up: integer;
begin
clrscr;
grdriver:=detect;
initgraph(grdriver,grmode,'');
line(0,-5,0,5);
line(-5,0,5,0);
while readkey<>'q' do begin
if(readkey='s') then
up:=up+1;
if(readkey='w') then
up:=up-1;
if(readkey='a') then
left:=left-1;
if(readkey='d') then
left:=left+1;
cleardevice;
line(left-5,up,left+5,up);
line(left,up-5,left,up+5);
end;
closegraph;
end.
var grmode: integer;
grdriver: integer;
left,up: integer;
begin
clrscr;
grdriver:=detect;
initgraph(grdriver,grmode,'');
line(0,-5,0,5);
line(-5,0,5,0);
while readkey<>'q' do begin
if(readkey='s') then
up:=up+1;
if(readkey='w') then
up:=up-1;
if(readkey='a') then
left:=left-1;
if(readkey='d') then
left:=left+1;
cleardevice;
line(left-5,up,left+5,up);
line(left,up-5,left,up+5);
end;
closegraph;
end.