Создайте программу для вычисления у используя процедуры и функции

@Ленара · Регистрация: 25.09.2012

Создайте программу для вычисления у используя процедуры и функции:
у=√3+(sin(x-2)/x*x)
если х=2-√((d*d)+f), d=2,8 f=1,4
для проверки у=1,7046829

HighPredator · 25.09.2012, 21:08

Pascal

program test;
uses
  Math;
 
var
  d,f:real;
 
function y(const x:real):real;
begin
  y:=sqrt(3+(sin(x-2.0)/sqr(x)));
end;
 
function x(const a,b:real):real;
begin
  x:=2-sqrt(sqr(a)+b);
end;
 
begin
  writeln('Enter d:');
  readln(d);
  writeln('Enter f:');
  readln(f);
  writeln('y=',y(x(d,f)):6:6);
  readln;
end.

@Ленара 0 / 0 / 0 Регистрация: 25.09.2012 Сообщений: 4
		1
	Создайте программу для вычисления у используя процедуры и функции 25.09.2012, 19:14. Показов 1572. Ответов 1 Метки нет (Все метки) Создайте программу для вычисления у используя процедуры и функции: у=√3+(sin(x-2)/xx) если х=2-√((dd)+f), d=2,8 f=1,4 для проверки у=1,7046829 0

Опции темы

Создайте программу для вычисления у используя процедуры и функции

Решение