Question

Составить программу вычисления значения функции по формуле: Y= √X+5+√5X-4. (Учесть, что подкоренные выражения не должны принимать отрицательные значения) Надо сделать в паскале абц пожалуйста. (√- это корень).

Answer 1

Код программы:

var Y, X:real;

begin

 writeln('Введите X');

 readln(X);

 if X < 0 then

   writeln('Ошибка, число под корнем не может быть отрицательным')

 else begin

   Y:= sqrt(X) + 5 + sqrt(5) * X - 4;

   writeln('Y = ', Y);

 end;

end.

Answer 2

Конечно, вот программа на языке Pascal, которая вычисляет значение функции Y = √(X + 5) + √(5X - 4) с учетом того, что подкоренные выражения не должны быть отрицательными:

pascalCopy code
program FunctionCalculation;

uses
  SysUtils;

function CalculateFunction(X: Real): Real;
begin
  if (X + 5 >= 0) and (5 * X - 4 >= 0) then
    CalculateFunction := sqrt(X + 5) + sqrt(5 * X - 4)
  else
    CalculateFunction := NaN; // Not-a-Number, indicating an invalid result
end;

var
  InputX, ResultY: Real;

begin
  Write('Enter the value of X: ');
  Readln(InputX);

  ResultY := CalculateFunction(InputX);

  if not IsNaN(ResultY) then
    Writeln('Y = ', ResultY:0:2)
  else
    Writeln('Invalid input for X, resulting in an imaginary value for Y.');

  Readln; // Wait for user input before closing
end.

Программа запрашивает значение X, затем использует функцию CalculateFunction для вычисления значения Y. В функции CalculateFunction проверяется, что оба подкоренных выражения не отрицательны, иначе возвращается значение NaN.