Question

Создайте программный код, который потребует ввести любые два числа a b и рассчитать: выражение (a + b)/b; (создать в паскале). Перед выводом результатов экран очищается, и реализуется пауза, чтобы были видны результаты. Цвет текста результатов черный, фон белый. Результаты выводятся в формате (результат: 8: 3). Возможный результат работы программы.

Answer 1

Ответ:

=========================================

C++:

#include <bits/stdc++.h>

using namespace std;

int main() {

 long long a, b; cin >> a >> b;

 system("cls && color ....")           <========= код цвета

 cout << (a + b) / b;

}

==========================================

PASCAL:

var a, b, c: integer;

begin

 readln(a);

 readln(b);

 c:=(a+b)/b;

 ClrScr;

 textbackground(...);       <======= где троеточие вставляй код цвета

 textcolor(...);

 writeln(c);

end.

=========================================

Объяснение:

Коды цветов в паскаль:

0   Black,         черный.   8   DarkGray,          темно-серый.          

1   Blue,           синий.   9   LightBlue,          ярко-синий.          

2   Green,        зеленый.  10   LightGreen,       ярко-зеленый.        

3   Cyan,         голубой.  11   LightCyan,        ярко-голубой.        

4   Red,          красный.  12   LightRed,         ярко-красный.        

5   Magenta,   фиолетовый.  13   LightMagenta,  ярко-фиолетовый.    

6   Brown,     коричневый.  14   Yellow,                 желтый.              

7   LightGray, ярко-серый.  15   White,                   белый

==============================================

Важно для работы ClrScreen надо подключить модуль Crtl через use

Answer 2

Вот программа на языке Pascal, которая выполняет указанные вами действия:

pascalCopy code
program CalculateExpression;
uses Crt;

var
  a, b: real;
  result: real;

begin
  ClrScr; // Очистка экрана
  TextBackground(White); // Установка белого фона
  TextColor(Black); // Установка черного цвета текста

  write('Введите число a: ');
  readln(a);

  write('Введите число b: ');
  readln(b);

  if b = 0 then
  begin
    writeln('Ошибка: деление на ноль невозможно.');
  end
  else
  begin
    result := (a + b) / b;
    writeln('Результат: ', a:0:2, ' + ', b:0:2, ' / ', b:0:2, ' = ', result:0:2);
  end;

  writeln('Нажмите любую клавишу для завершения...');
  ReadKey; // Пауза
end.

Этот код сначала запрашивает у пользователя два числа a и b, затем выполняет расчет и выводит результат на экран в соответствии с вашими требованиями. Если введенное значение b равно нулю, программа выдаст сообщение об ошибке. После вывода результата она также предлагает нажать любую клавишу для завершения программы.