Середа, 28.06.2017, 10:14

    37

    Головна | RSS

    Каталог статей

    Головна » Статті » Архів

    Рекурентні обчислення
    program Serp;
    uses Graph;
    var
    a,b,x,y: integer;
    N: integer;
    procedure lrel (dx,dy: integer);
    begin
    x:=x+dx; y:=y+dy; LineTo(x,y);
    end;
    procedure BB(k: integer); forward;
    procedure CC(k: integer); forward;
    procedure DD(k: integer); forward;
    procedure AA(k: integer);
    begin
    if k>0 then begin
    AA(k-1); lrel(a,b);
    BB(k-1); lrel(a,0);
    DD(k-1); lrel(a,-b);
    AA(k-1); end;
    end;
    procedure BB(k: integer);begin
    if k>0 then begin
    BB(k-1); lrel(-a,b);
    CC(k-1); lrel(0,b);
    AA(k-1); lrel(a,b);
    BB(k-1); end;
    end;
    procedure CC(k: integer);
    begin
    if k>0 then begin
    CC(k-1); lrel(-a,-b);
    DD(k-1); lrel(-a,0);
    BB(k-1); lrel(-a,b);
    CC(k-1); end;
    end;
    procedure DD(k: integer);
    begin
    if k>0 then begin
    DD(k-1); lrel(a,-b);
    AA(k-1); lrel(0,-b);
    CC(k-1); lrel(-a,-b);
    DD(k-1); end;
    end;
    begin
    N:=6; a:=3; b:=a; x:=10; y:=10;
    MoveTo(x,y);
    AA(N); lrel(a,b);
    BB(N); lrel(-a,b);
    CC(N); lrel(-a,-b);
    DD(N); lrel(a,-b);
    end.
    Категорія: Архів | Додав: LinkHome (26.02.2008) | Автор: Шепелюк Г.С.
    Переглядів: 712 | Коментарі: 1 | Рейтинг: 0.0/0
    Всього коментарів: 1
    1  
    uses crt,graph; vardriver,mode:integer;
    var a,b,x,y:integer;
    n:integer;
    procedure lerl (dx,dy:integer);
    begin delay(5);
    x:=x+dx;y:=y+dy; lineto(x,y);
    end;
    procedure bb(k:integer);forward;
    procedure cc(k:integer);forward;
    procedure dd(k:integer);forward;
    procedure aa(k:integer);
    begin
    if K>0 then
    begin
    aa (k-1); lerl(a,b); setlinestyle(1,0,4); setbkcolor(15);
    bb(k-1); lerl(a,0); ;
    dd(k-1);lerl(a,-b);
    aa(k-1);
    end;
    end;
    procedure bb(k:integer);
    begin
    if K>0 then begin SETCOLOR(RANDOM(12));
    bb(k-1); lerl(-a,b);
    cc(k-1); lerl(0,b);
    aa (k-1); lerl(a,b);
    bb(k-1);
    end;
    end;
    procedure cc(k:integer);
    begin if k>0 then
    begin
    cc(k-1); lerl(-a,-b);
    dd(k-1); lerl(-a,0);
    bb (k-1); lerl(-a,b);
    cc(k-1);
    end;
    end;
    procedure dd(k:integer);
    begin
    if k>0 then
    begin
    dd(k-1); lerl(a,-b);
    aa(k-1); lerl(0,-b);
    cc (k-1); lerl(-a,-b);
    dd(k-1);
    end;
    end;
    begin driver:=detect; initgraph (driver,mode,'c:\bp\bgi');
    n:=6;a:=3; b:=a; x:=10; y:=10;
    moveto (x,y);
    aa(n);setcolor(1); lerl(a,b);
    bb(n); setcolor(12);lerl(-a,b);
    cc (n);setcolor(14); lerl(-a,-b);
    dd(n); lerl(a,-b);
    end. biggrin

    Ім`я *:
    Email *:
    Код *:
    Форма входу
    Категорії розділу
    Архів [14]
    Наше опитування
    Твій рівень знань
    Всього відповідей: 45
    Статистика

    Онлайн всього: 1
    Гостей: 1
    Користувачів: 0