Question

Люди, помогите пожалуйста составить программу на языке Паскаль следующие функции: 1) у= х^3+b^4-(r/3)-5 2)f=(x-1)+(b-3)-4

Answer 1

Var
    y, f, x, b, r: real;

begin
    readln(x, b, r);
    y := x * x * x + b * b * b * b - r / 3 - 5;
    writeln('y = ', y);
    f := x - 1 + b - 3 - 4;
    writeln('f = ', f);
end.

Answer 2

Конечно, я могу помочь вам с написанием программы на языке Pascal для данных функций. Ваш запрос несколько неясен, так как функции у и f не определены в вашем вопросе. Вероятно, вы хотели бы создать программу, в которой пользователь вводит значения переменных x, b и r, а затем программа вычисляет значения функций у и f согласно вашим формулам.

Вот пример программы на языке Pascal, реализующей это:

program CalculateFunctions;

var
  x, b, r, u, f: real;

begin
  // Ввод значений переменных
  write('Введите значение x: ');
  readln(x);

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

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

// Вычисление функции у
  u := power(x, 3) + power(b, 4) - (r / 3) - 5;

// Вычисление функции f
  f := (x - 1) + (b - 3) - 4;

// Вывод результатов
  writeln('Значение функции у: ', u:0:2);
  writeln('Значение функции f: ', f:0:2);

readln;
end.

В этой программе используются функции `power` для возведения в степень. Обратите внимание, что в реальной жизни вам может потребоваться добавить дополнительные проверки на ввод пользователя (например, проверку на нулевой знаменатель при делении), чтобы сделать программу более надежной.