Напишите на языке Паскаль программу вычисления y по формуле: y = (2x - 5)/(x - 1), где x - данное целое число.

Вот пример программы на языке Паскаль для вычисления значения $y$ по формуле $y = \frac{2x - 5}{x - 1}$, где $x$ — данное целое число:

pascal
Копировать код
program CalculateY;
var
  x: Integer;
  y: Real;
begin
  { Вводим значение x }
  Write('Введите значение x: ');
  ReadLn(x);
  { Проверяем, чтобы x не было равным 1, так как это приведет к делению на ноль }
  if x = 1 then
    WriteLn('Ошибка: деление на ноль!')
  else
  begin
    { Вычисляем y по формуле }
    y := (2 * x - 5) / (x - 1);
    { Выводим результат }
    WriteLn('Значение y: ', y:0:2);
  end;
end.

Объяснение:

1. В программе запрашивается ввод значения переменной $x$.

2. Проверяется, чтобы $x$ не было равно 1, так как это приведет к делению на ноль и ошибке.

3. Если значение $x$ корректно, то вычисляется значение $y$ по заданной формуле.

4. Результат выводится на экран с точностью до двух знаков после запятой.