Question

Составить программу для вычисления следующей функции в Turbo Packal x=cos(b)/корень b+5 b=a+c^2

Answer 1

Uses Crt;

var
  a,b,c,x:double;
 
begin
  ClrScr;
  Write('Введите через пробел a и c:'); Read(a,c);
  b:=a+c*c;
  x:=Cos(b)/Sqrt(b+5);
  Writeln('x=',x);
  ReadKey
end.

Answer 2

Для вычисления функции, описанной формулой x = cos(b) / √(b + 5), где b = a + c^2, нужно создать программу на языке Turbo Pascal. Вот пример программы:

pascalCopy code
program FunctionCalculation;

uses
  Crt;

var
  a, c, x, b: real;

function CalculateFunction(a, c: real): real;
begin
  b := a + c * c;
  CalculateFunction := cos(b) / sqrt(b + 5);
end;

begin
  ClrScr;
  writeln('Программа для вычисления функции x = cos(b) / √(b + 5), где b = a + c^2');
  writeln;
  
  write('Введите значение a: ');
  readln(a);
  
  write('Введите значение c: ');
  readln(c);

  x := CalculateFunction(a, c);
  
  writeln;
  writeln('Результат вычисления функции x: ', x:0:4);
  readln;
end.

Обратите внимание, что в этом примере я предположил, что вы хотите ввести значения переменных "a" и "c" с клавиатуры. Если вам нужно вводить значения из файла или как-то иначе, вы можете изменить код соответствующим образом.