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

@yanochka_roza · Регистрация: 13.11.2017

Значение функций вычислять с точностью до тысячных долей.
Рассмотреть 2 варианта реализации подпрограммы: подпрограмма – процедура и подпрограмма – функция.
Использовать подпрограмму для построения таблицы значений функции в 10 различных точках.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{cases} & \text{ if } y= 1 - \frac{2{x}^{3} }{1-{x}^{2}} \\ & \text{ if } y= sqrt(\cos(2x-1)) \\ & \text{ if } y= exp(-cos(2x))\end{cases}$

$https://www.cyberforum.ru/cgi-bin/latex.cgi?x > 3.5<br /> 0 \leq x \leq 3.5<br /> x < 0$

@ZX Spectrum-128 · 27.04.2018, 21:09

Pascal

function y(x: real): real;
begin
  if x > 3.5 then
    y := 1 - (2 * x * x * x) / (1 - x * x)
  else
  if x < 0 then
    y := exp(-cos(2 * x))
  else
    y := sqrt(cos(2 * x - 1));
end;
 
var
  x: real;
  i: integer;
 
begin
  x := -4;
  i := 1;
  while x <= 5 do
  begin
    writeln(i:8, x:8:3, y(x):8:3);
    x := x + 1;
    inc(i);
  end;
end.

@yanochka_roza 0 / 0 / 2 Регистрация: 13.11.2017 Сообщений: 38
		1
	Разработать подпрограмму для вычисления значения функции 26.04.2018, 12:47. Показов 3409. Ответов 1 Метки нет (Все метки) Значение функций вычислять с точностью до тысячных долей. Рассмотреть 2 варианта реализации подпрограммы: подпрограмма – процедура и подпрограмма – функция. Использовать подпрограмму для построения таблицы значений функции в 10 различных точках. $https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{cases} & \text{ if } y= 1 - \frac{2{x}^{3} }{1-{x}^{2}} \\ & \text{ if } y= sqrt(\cos(2x-1)) \\ & \text{ if } y= exp(-cos(2x))\end{cases}$ $https://www.cyberforum.ru/cgi-bin/latex.cgi?x > 3.5<br /> 0 \leq x \leq 3.5<br /> x < 0$ __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение