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.