Question

Помогите решить задачу на Pascal ABC, пожалуйста. Для данного целого x найти значение следующей функции f, принимающей значения целого типа: f(x)= 9x/17 при x<1 или x>5 x^2+81 (под корнем) , в противном случае.

Answer 1

Var
  x,f:real;
begin
  Write('x='); Read(X);
  if (x<1) or (x>5) then f:=9*x/17
  else f:=Sqrt(x*x+81);
  Writeln('f(x)=',f)
end.

Answer 2

Я могу помочь вам с решением задачи на Pascal ABC. Вот один из возможных вариантов решения:

program f;
var
  x, y: integer;
begin
  readln(x); // считываем целое число x
  if (x < 1) or (x > 5) then // проверяем условие x < 1 или x > 5
    y := 9 * x div 17 // вычисляем значение функции f(x) = 9x/17
  else // иначе
    y := round(sqrt(x * x + 81)); // вычисляем значение функции f(x) = sqrt(x^2 + 81)
  writeln(y); // выводим результат на экран
end.

Эта программа считывает целое число x с клавиатуры, проверяет, какому условию оно удовлетворяет, и вычисляет соответствующее значение функции f. Затем она выводит это значение на экран. Для того, чтобы функция f принимала значения целого типа, мы используем оператор целочисленного деления div и функцию округления round. Вы можете запустить эту программу в среде разработки PascalABC.NET или в онлайн-компиляторе.

Надеюсь, это поможет вам с решением задачи. Если у вас есть еще вопросы, я буду рад ответить на них. Спасибо, что пользуетесь Bing!