Вычислить функцию при изменении х на отрезке [0.5; 0.8] с шагом 0.25.

@dimon_9922 · Регистрация: 29.12.2011

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

Помогите решить задачу
Вычислить при изменении х на отрезке [0.5; 0.8] с шагом 0.25.

@Mysterious Light · 01.01.2012, 22:03

Delphi

function f(n: byte; x: double): double;
    function g(k: byte; x: double): double;
    begin
        if(k=n) then g:=cos(n*x);
        else g:=cos(k*x)/(1+g(k+1,x));
    end;
begin
    f:=g(1,x);
end;
 
var v,x: double;
var n: byte;
 
{ ... }
 
x:=0.5;
while x<0.8
    do begin
        v:=f(n,x);
        { делаем что-то с v=f(x), например, печатаем на экране }
        x:=x+0.25;
    end;
{ ... }

n -- параметр. Ввод-вывод организуй, как тебе надо.

Как-то так.

P.S. спс, Puporev

@Puporev · 01.01.2012, 22:07

Delphi

1	if(k=n) then g:=cos(n*x);

@dimon_9922 · 02.01.2012, 19:57 **[ТС]**

Спасибо !!
Буду пробывать
Добавлено через 3 часа 46 минут
ну как то так у меня получилось

Pascal

program Project1;
uses crt;
 
function f(n: byte; x: real): real;          //ОБЯВЛЕНИЕ ФУНКЦИИ
function g(k: byte; x: real): real;
  begin
  if(k=n)   then g:=cos(n*x)                //СРАВНЕНИЕ С ВВЕДЁННЫМ N
        else
  g:=cos(k*x)/(1+g(k+1,x));                //ЕСЛИ НЕ= К ТО...
  end;
  begin
   f:=g(1,x);                              
  end;
 
var v,x: real;
var n: byte;
  begin
   writeln('  Введите число n:');
   readln(n);                            //ВВОД N
   x:=0.5;                               //НАЧАЛЛО Х ОТ 0.5
   writeln('  При x=0.5:');
   writeln('  При x=0.75:');
   writeln;
        while x<0.8 do                  //ПРОМЕЖУТОК ДО 0.8
  begin
   v:=f(n,x);
   writeln('  Функция равна:',v);      //ВЫВОД ФУНКЦИИ
   x:=x+0.25;                          //ПРИБАВЛЕНИЕ ШАГА В 0.25
  end;
  end.

@dimon_9922 4 / 0 / 0 Регистрация: 29.12.2011 Сообщений: 32
		1
	Вычислить функцию при изменении х на отрезке [0.5; 0.8] с шагом 0.25. 01.01.2012, 21:06. Показов 2170. Ответов 3 Метки нет (Все метки) Помогите решить задачу Вычислить при изменении х на отрезке [0.5; 0.8] с шагом 0.25. Изображения 0

	02.01.2012, 19:57