Создать программу табулирования функции

Наталочка

Привести алгоритм и создать программу табулирования функции y=f(x) на отрезку [a,b] с шагом h. В программе должен использоваться цикл с параметром. Для расчетов: а=2, b=2, h=0,1. Функция : y=sin √x3/(2-x).
8 ответов

Наталочка

Наталочка, может а = -2?


Наталочка

да, а=-2))))


Наталочка

Наталочка, может еще поправки )) корень квадратный из отрицательного числа не извлекается.. может корень кубический?если не получается формулу составить - попробуйте описать словами


Наталочка

игрик равно синус корень квадратный из икса в кубе разделить на в скобках на два минус икс))))


Наталочка

var
  a,b,h: real;
  x,y: real;
begin
  a:=-2; b:=2; h:=0.1; x:=a;
  while x<b do
  begin
    if x*x*x<0 then writeln('При х = ',x:0:2,' нет решений') 
      else begin 
        y:=sin(sqrt(x*x*x))/(2-x);
        writeln('При x = ',x:0:2,'   y = ',y:0:3);
      end;
    x:=x+0.1;
  end;
  writeln('При х = 2 нет решений');
  readln;
end.


Наталочка

а как теперь сделать чтобы использовать цикл с постусловием?условия те же!))


Наталочка

var
  a,b,h: real;
  x,y: real;
begin
  a:=-2; b:=2; h:=0.1; x:=a;
  repeat
    if x*x*x<0 then writeln('При х = ',x:0:2,' нет решений') 
      else begin 
        y:=sin(sqrt(x*x*x))/(2-x);
        writeln('При x = ',x:0:2,'   y = ',y:0:3);
      end;
    x:=x+0.1;
  until x>b;
  writeln('При х = 2 нет решений');
  readln;
end.


Наталочка

спасибо большое)теперь попробую сама разобраться с циклами с предусловием))))))