Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата

    else begin

      if i=2 then textcolor(9)

      else textcolor(3);

      gotoxy(8,i+3);write(m.st[i]);

    end;

  end;

end;

procedure krutis;  {Звездочка рядом с активным элементом}

begin

  textcolor(14);

  if kr='/' then kr:='-'

    else if kr='-' then kr:=''

      else if kr='' then kr:='|'

        else kr:='/';

  gotoxy(6,tek+3);write(kr);

  textcolor(3);

end;

procedure ramka(ch:char); {перемещение указателя}

begin

  gotoxy(6,tek+3);Writeln(' ');

  textcolor(3);gotoxy(8,tek+3);write(nast.st[tek]);

  if ch='+' then tek:=tek+1

  else tek:=tek-1;

  if tek=1 then tek:=nast.m

  else if tek=nast.m+1 then tek:=2;

Рекомендуем скачать другие рефераты по теме: сочинение изложение, курсовые работы бесплатно.



Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки