Casei of

Begin

moveto(x,y);

end;

procedureplot (x,y:integer);

Begin

lineto(x,y);

end;

procedureB(i:integer);forward;

procedureC(i:integer);forward;

procedureD(i:integer);forward;

ProcedureA(i: integer);

Begin ifi >0 then

Begin

D(i-1);x:=x-h; plot(x,y);

A(i-1);y:=y-h ; plot(x,y);

A(i-1) ;x:=x+h; plot(x,y);

B(i-1);

end;

end;

ProcedureB (i: integer);

Begin ifi>0 then

BeginC(i-1);y:=y+h; plot(x,y);

B(i-1);x:=x+h; plot(x,y);

B(i-1);y:=y-h; plot(x,y);

A(i-1);

End

end;

ProcedureC(i: integer);

Begin ifi>0 then

beginB(i-1);x:=x+h; plot(x,y);

C(i-1);y:=y+h; plot(x,y);

C(i-1);x:=x-h; plot(x,y);

D(i-1);

end;

end;

ProcedureD(i: integer);

BEGIN IFI>0 THEN

beginA(i-1);y:=y-h; plot(x,y);

D(i-1);x:=x-h; plot(x,y);

D(i-1);y:=y+h; plot(x,y);

C(i-1);

end;

end;

Begin

i:=0;h:=h0;x0:=h div2;y0:=x0;

writeln('Сколько кривых нарисовать?');

readln(n);

Repeat

i:=i+1;

h:=h div2;

x0:=x0+(h div2);y0:=y0+(h div2);

x:=x0;y:=y0; setplot(x,y);

A(i)

untili=n;

end.

Задача 2. Каждая кривая рисовалась своим уникальным цветом.

usesgraphABC;

Consth0=600;

Vari,h,x,y,x0,y0,n: integer;

proceduresetplot (x,y:integer);

Begin

moveto(x,y);

end;

procedureplot (x,y:integer);

Begin

lineto(x,y);

end;

procedureB(i:integer);forward;

procedureC(i:integer);forward;

procedureD(i:integer);forward;

ProcedureA(i: integer);

Begin ifi >0 then

Begin

D(i-1);x:=x-h; plot(x,y);

A(i-1);y:=y-h ; plot(x,y);

A(i-1) ;x:=x+h; plot(x,y);

B(i-1);

end;

end;

ProcedureB (i: integer);

Begin ifi>0 then

BeginC(i-1);y:=y+h; plot(x,y);

B(i-1);x:=x+h; plot(x,y);

B(i-1);y:=y-h; plot(x,y);

A(i-1);

End

end;

ProcedureC(i: integer);

Begin ifi>0 then

beginB(i-1);x:=x+h; plot(x,y);

C(i-1);y:=y+h; plot(x,y);

C(i-1);x:=x-h; plot(x,y);

D(i-1);

end;

end;

ProcedureD(i: integer);

BEGIN IFI>0 THEN

beginA(i-1);y:=y-h; plot(x,y);

D(i-1);x:=x-h; plot(x,y);

D(i-1);y:=y+h; plot(x,y);

C(i-1);

end;

end;

Begin

i:=0;h:=h0;x0:=h div2;y0:=x0;

writeln('Сколько кривых нарисовать?');

readln(n);

Repeat

i:=i+1;

casei of

1:setpencolor (clRed);

2:setpencolor (clorange);

3:setpencolor (clyellow);

4:setpencolor (clgreen);

5:setpencolor (clcyan);

6:setpencolor (clblue);

7:setpencolor (clmagenta);

end;

h:=h div2;

x0:=x0+(h div2);y0:=y0+(h div2);

x:=x0;y:=y0; setplot(x,y);

A(i)

untili=n;

end.

Задача 3. Рисуется единственная кривая заданного порядка.

usesgraphABC;

Constn=5; h0=600;

Vari,h,x,y,x0,y0: integer;

proceduresetplot (x,y:integer);

Begin

moveto(x,y);

end;

procedureplot (x,y:integer);

Begin

lineto(x,y);

end;

procedureB(i:integer);forward;

procedureC(i:integer);forward;

procedureD(i:integer);forward;

ProcedureA(i: integer);