Question

Подключите графический режим в программе Измените программу так, чтобы сообщение ꞌположительноеꞌ выводилось красным цветом, а сообщение ꞌне положительноеꞌ — синим.(паскаль abc ) var x: integer; begin write('Введите x = '); read(x); if x > 0 then write('положительное') else write('не положительное'); end.

Answer 1

Нужно использовать  using graphABC в самом верху для подключения библиотеки графики. Цвет изменяется командой textcolor(blue/red);

Answer 2

Для подключения графического режима в программе на Pascal и вывода сообщения в разных цветах, необходимо использовать графические библиотеки, такие как Graph или Lazarus. В данном ответе я предложу пример использования библиотеки Graph, которая является классической для Pascal.

Прежде чем начать, убедитесь, что у вас установлена и настроена библиотека Graph для вашей среды разработки Pascal.

Ниже приведен пример программы с подключением графического режима и выводом сообщения "положительное" красным цветом, а сообщения "не положительное" — синим.

pascalCopy code
uses
  Graph, Crt;

var
  x: integer;

procedure InitGraphics;
var
  GraphDriver, GraphMode: smallint;
begin
  GraphDriver := VGA; // Используем VGA графический драйвер
  GraphMode := VGAHi; // Высокое разрешение (640x480)
  InitGraph(GraphDriver, GraphMode, ''); // Инициализация графического режима
end;

procedure DeinitGraphics;
begin
  CloseGraph; // Закрытие графического режима
end;

procedure OutputMessage(msg: string; color: integer);
begin
  SetColor(color); // Установка цвета текста
  OutTextXY(100, 100, msg); // Вывод текста в координатах (100, 100)
end;

begin
  InitGraphics; // Инициализация графического режима

  write('Введите x = '); 
  read(x);

  if x > 0 then
    OutputMessage('положительное', Red) // Вывод "положительное" красным цветом
  else
    OutputMessage('не положительное', Blue); // Вывод "не положительное" синим цветом

  ReadLn;
  DeinitGraphics; // Закрытие графического режима
end.

Этот код будет выводить сообщение "Введите x =" в текстовом режиме, после чего, после ввода числа, переключится в графический режим и выведет соответствующее сообщение красным или синим цветом, в зависимости от введенного значения x.