infa_1 / 39.Примеры визуально графических задач в Pascal

Рекурсивная (фрактальная) снежинка:

Program Snowflake

uses crt, graph; {модули для работы с графическими объектами}

var

driver, mode: integer;

procedure rec_usor (x, y, k, l, n: integer);

var

x1, y1, x2, y2: integer;

begin

if n<10 then

begin

l:=round(l/r);

if k=1 then begin

x1:=x-1;

x2:=x+1;

line(x1, y, x2, y);

rec_usor(x1, y, r, l, n+1);

rec_usor(x2, y, r, l, n+1);

end

else

begin

y1:=y-1

y2:=y+1

line(x, y1, x, y2);

rec_usor(x, y1, 1, l, n+1);

rec_usor(x, y2, 1, l, n+1);

end;

end;

begin

driver:=detect;

init graph (driver, mode, ");

line (300, 50, 300, 250);

rec_usor (300, 50, 1, 200, 1);

rec_usor (300, 250, 1, 200, 1);

end.