Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
uses graph,crt;
var grmode: integer;
grdriver: integer;
left,up: integer;
begin
clrscr;
grdriver:=detect;
initgraph(grdriver,grmode,'');
line(0,0,0,10);
line(0,0,10,0);
line(0,0,10,10);
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,up,left+10,up);
line(left,up,left,up+10);
line(left,up,left+10,up+10);
end;
closegraph;
end.
var grmode: integer;
grdriver: integer;
left,up: integer;
begin
clrscr;
grdriver:=detect;
initgraph(grdriver,grmode,'');
line(0,0,0,10);
line(0,0,10,0);
line(0,0,10,10);
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,up,left+10,up);
line(left,up,left,up+10);
line(left,up,left+10,up+10);
end;
closegraph;
end.