Цветной текст в PascalABC. Возможно ли в операторе Writeln' ' в скобках написать Цветной текст, если да то как?

01.01.2001

Цветной текст в PascalABC. Возможно ли в операторе Writeln' ' в скобках написать Цветной текст, если да то как?

  • на пример цвета
    program pr;
    uses crt;
    var
    x,y:integer;
    BEGIN
    clrscr;
    TextColor (red);
    write('Ввести 2 числа --> ');
    readln(x,y);
    writeln('Входные данные: X= ',x,' Y= ',y);
    TextColor (blue);
    writeln('Выходные данные: ');
    writeln(-x:3,y:3);
    writeln(x:3,-y:3);
    writeln(-x:3,-y:3);
    writeln('конец задачи');
    readkey;
    END.
  • writeln напрямую раскраску текста не поддерживает, но цвет можно установить через setcolor (вроде) , тогда врайт начнет выводить цвет. Разноцветные тексты обычно выводят посимвольно (поцветно).
  • В модуле CRT есть процедура TextColor (цвет)
  • В MS DOS действительно был опциональный драйвер, позволяющий управлять цветом печатаемого текста при помощи управляющих символов (Esc-последовательности) . Но ты ведь наверняка не в Досе сидишь, а с командной строки. Как там этот драйвер прицепить - абсолютно без понятия. Так что пиши SetColor и не выпендривайся.
    Если очень хочется с цветом - пиши вывод в html-файл и запускай его :)

Вас заинтересует