КАТЕГОРИИ:
АстрономияБиологияГеографияДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРиторикаСоциологияСпортСтроительствоТехнологияФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
|
Casei ofBegin 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);
|