Question

Составить программу в паскале по решению функции X в квадрате + 5 при x>3 X-8 при x меньше или равно трем

Answer 1

program prog;

var x:integer;

begin

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

readln(x);

if x > 3 then  

   x:=x * x + 5;

if x <= 3 then

   x:=x-8;

writeln(x);

end.

Answer 2

Для составления программы на языке Паскаль, решающей функцию, как описано в вашем запросе, можно использовать следующий код:

pascalCopy code
program FunctionSolver;

var
  x, result: real;

begin
  write('Введите значение x: ');
  readln(x);

  if x > 3 then
    result := x * x + 5
  else
    result := x - 8;

  writeln('Результат функции: ', result);
end.

Этот код позволяет пользователю ввести значение переменной x, а затем, в зависимости от значения x, вычисляет и выводит результат функции на экран. Если x > 3, то результат будет равен x^2 + 5, иначе результат будет равен x - 8.