Вычислить значение выражения

@RomeoSFS · Регистрация: 23.09.2012

Студворк — интернет-сервис помощи студентам

Функции, отсутствующие в списке стандартных функций языка Turbo Pascal, следует выразить через имеющиеся.

@Comst95 · 23.09.2012, 19:58

Pascal

1	Var y, b : Double;

Pascal

1 2	y := 1 + 1 / x + 1 / ( x * x ); b := ( 1 + Cos ( y - 2) ) / ( ( x * x * x * x ) / 2 + Sin ( y ) * Sin ( y ) );

Kodzaev · 23.09.2012, 20:01

Pascal

Uses crt;
Function Y(x: Real):Real;
begin
  y:=1+1/x+1/sqr(x);
end;
Function b(x,y: Real): Real;
begin
  b:=(1+cos(y-2)/((exp(4*ln(x))/2+sin(y)*sin(y))));
end;
Var
  x: Real;
BEGIN
Writeln('Введите X: '); Readln(x);
Writeln('Y= ',Y(x):5:2);
Writeln('b= ',b(x,y(x)):5:2);
Readln
END.

@RomeoSFS 0 / 0 / 2 Регистрация: 23.09.2012 Сообщений: 130
		1
	Вычислить значение выражения 23.09.2012, 19:49. Показов 1174. Ответов 2 Метки нет (Все метки) Функции, отсутствующие в списке стандартных функций языка Turbo Pascal, следует выразить через имеющиеся. 0

	23.09.2012, 20:01

Опции темы

Вычислить значение выражения

Решение