Версия для печати темы

Автор: Zac 15.12.2007 18:49

Доброго времени суток. Вот ломаю голову на рекурсией.. чтото наваял Да не то как обычно.. Показывает только одну часть цепи с 8 позиции курсора.

Задача: Составить рекурсивный алгоритм, который вычерчивает на экране схему электрической цепи .Порядок цепи (количество сопротивлений R2) должен вводиться во время работы программы. (картинка цепи в приложении)

Uses CRT;
Function chast(r2,x:integer):integer;
   var y:integer;
  begin
   y:=2;
   GotoXY(x,y);
   writeln(CHR($C2),CHR($C4),CHR($DB),CHR($DB),CHR($C4),CHR($C2));
   GotoXY(x,y+1);
   writeln(CHR($DB));
   GotoXY(x,y+2);
   writeln(CHR($DB));
   GotoXY(x,y+3);
   writeln(CHR($C1),CHR($C4),CHR($DB),CHR($DB),CHR($C4),CHR($C1));
   GotoXY(x,y);
   chast:=r2;

  end;

var r2,x:integer;
begin
  CLRSCR;
  x:=1;
  repeat
    write('R2 = ');
    Readln(r2);
   Until r2>0;

   if r2=1 then  chast(r2,x)
    else
      begin
       x:=x+7;
       chast(chast(r2,x)-1,x);
       end;
    readln;
   end.

Эскизы прикрепленных изображений

Автор: klem4 15.12.2007 19:36

нужно именно в текстовом режиме ?

Автор: Zac 15.12.2007 20:36

ну не обязательно навреное , просто я думал в текстовом режиме проще .. или я ошибаюсь

Автор: Zac 16.12.2007 22:45

Сегодня опять просидел над этой задачей. ка кбы я не менял чтото всегда только 2 или 1 часть ресует и все тут.

Автор: klem4 17.12.2007 1:14

как-то так ...

uses crt, graph;

var
  gd, gm: Integer;

procedure CircuitPart(lx, ly, deep: Integer);
begin
  if deep > 0 then begin
    line(lx, ly, lx + 20, ly);
    line(lx + 20, ly - 5, lx + 20, ly + 5);
    line(lx + 20, ly - 5, lx + 40, ly - 5);
    line(lx + 20, ly + 5, lx + 40, ly + 5);
    line(lx + 40, ly - 5, lx + 40, ly + 5);
    line(lx + 40, ly, lx + 60, ly); 
    line(lx + 60, ly, lx + 60, ly + 20);
    line(lx + 55, ly + 20, lx + 65, ly + 20);
    line(lx + 55, ly + 20, lx + 55, ly + 40);
    line(lx + 65, ly + 20, lx + 65, ly + 40);
    line(lx + 55, ly + 40, lx + 65, ly + 40);
    line(lx + 60, ly + 40, lx + 60, ly + 60);
    line(lx + 60, ly + 60, lx + 40, ly + 60);
    line(lx + 40, ly + 55, lx + 40, ly + 65);
    line(lx + 40, ly + 55, lx + 20, ly + 55);
    line(lx + 40, ly + 65, lx + 20, ly + 65);
    line(lx + 20, ly + 55, lx + 20, ly + 65);
    line(lx + 20, ly + 60, lx, ly + 60);

    CircuitPart(lx + 60, ly, deep - 1);
  end;
end;

begin
  initgraph(gd, gm, '');

  CircuitPart(100, 100, 8);

  readkey;
  closegraph;
end.

Автор: Zac 17.12.2007 2:08

Работает... теперь я понял как надо делать, и что лучше работать с графикой чем с непокроными символами.
Спаисбо