Turbo Pascal. Примеры выполнения задач_5 / V41 / V41_N12

Program V41_N12;
uses graph,crt;
var
P: Pointer;
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
Size: Word;
ch:char;
X,Y:integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'');
ErrCode := GraphResult;
if ErrCode = grOk then
begin { Do graphics }
setcolor(2);
rectangle(0,0,639,479);
line(213,0,213,479);
line(426,0,426,479);
line(0,240,639,240);
SetFillStyle(1, RED);
BAR(101,115,111,125);
Size := ImageSize(101, 115, 111, 125);
GetMem(P, Size);
GetImage(101, 115, 111, 125, P^);
putimage(314, 115, P^, XorPut);
putimage(527, 115, P^, XorPut);
putimage(101, 355, P^, XorPut);
putimage(314, 355, P^, XorPut);
putimage(527, 355, P^, XorPut);
ch:=' ';X:=101;Y:=115;
while ord(ch)<>27 do begin
ch:=readkey;
if ord(ch)=0 then ch:=readkey;
case ord(ch) of
{‚ўҐае} 72:begin
if Y>1 then begin
putimage(X, Y, P^, XorPut);
putimage(X+213, Y, P^, XorPut);
putimage(X+426, Y, P^, XorPut);
putimage(X, Y+240, P^, XorPut);
putimage(X+213, Y+240, P^, XorPut);
putimage(X+426, Y+240, P^, XorPut);
dec(Y,2);
putimage(X, Y, P^, XorPut);
putimage(X+213, Y, P^, XorPut);
putimage(X+426, Y, P^, XorPut);
putimage(X, Y+240, P^, XorPut);
putimage(X+213, Y+240, P^, XorPut);
putimage(X+426, Y+240, P^, XorPut);
end;
end;
{‚­Ё§} 80:begin
if Y<227 then begin
putimage(X, Y, P^, XorPut);
putimage(X+213, Y, P^, XorPut);
putimage(X+426, Y, P^, XorPut);
putimage(X, Y+240, P^, XorPut);
putimage(X+213, Y+240, P^, XorPut);
putimage(X+426, Y+240, P^, XorPut);
inc(Y,2);
putimage(X, Y, P^, XorPut);
putimage(X+213, Y, P^, XorPut);
putimage(X+426, Y, P^, XorPut);
putimage(X, Y+240, P^, XorPut);
putimage(X+213, Y+240, P^, XorPut);
putimage(X+426, Y+240, P^, XorPut);
end;
end;
{‚«Ґў®} 75:begin
if X>1 then begin
putimage(X, Y, P^, XorPut);
putimage(X+213, Y, P^, XorPut);
putimage(X+426, Y, P^, XorPut);
putimage(X, Y+240, P^, XorPut);
putimage(X+213, Y+240, P^, XorPut);
putimage(X+426, Y+240, P^, XorPut);
dec(X,2);
putimage(X, Y, P^, XorPut);
putimage(X+213, Y, P^, XorPut);
putimage(X+426, Y, P^, XorPut);
putimage(X, Y+240, P^, XorPut);
putimage(X+213, Y+240, P^, XorPut);
putimage(X+426, Y+240, P^, XorPut);
end;
end;
{‚Їа ў®} 77:begin
if X<201 then begin
putimage(X, Y, P^, XorPut);
putimage(X+213, Y, P^, XorPut);
putimage(X+426, Y, P^, XorPut);
putimage(X, Y+240, P^, XorPut);
putimage(X+213, Y+240, P^, XorPut);
putimage(X+426, Y+240, P^, XorPut);
inc(X,2);
putimage(X, Y, P^, XorPut);
putimage(X+213, Y, P^, XorPut);
putimage(X+426, Y, P^, XorPut);
putimage(X, Y+240, P^, XorPut);
putimage(X+213, Y+240, P^, XorPut);
putimage(X+426, Y+240, P^, XorPut);
end;

end;
end;
end;
CloseGraph;
end
else
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.