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

@forp · Регистрация: 08.10.2014

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

Составить программу табулирования функции. Заранее огромное спасибо!

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

$https://www.cyberforum.ru/cgi-bin/latex.cgi?Y=\begin{cases}e^x+\left(\ln(x) \right)^3\cdot \cos (x-2) &\ ,\ \ x\leq 1\\\\ 2^x+\sqrt[3]{x+6} &\ ,\ \ x>1\end{cases}$

на отрезке [0; 2] с шагом h = 0.2.

@Joy · 09.10.2014, 17:07

Pascal

const h=0.2;
var
  x,y:real;
begin
  writeln('   X |    Y');
  writeln('----------------');
  x:=0;
  repeat
    if x=0.0 then writeln(x:1:2,' | undefined') else begin
    if x<=1.0 then y:=exp(x)+sqr(ln(x))*ln(x)*cos(x-2)
              else y:=exp(2*ln(x))+exp(1/3*ln(x+6));
    writeln(x:1:2,' | ',y:0:6);
    end;
    x:=x+h;
  until x>2.0+h;
  readln;
end.

@Cyborg Drone · 09.10.2014, 17:57

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

Pascal

    if x<=0.0
      then writeln(x:1:2,' | undefined')
      else begin
        if x<=1.0
          then y:=exp(x)+sqr(ln(x))*ln(x)*cos(x-2)
          else y:=exp(x*ln(2))+exp(ln(x+6)/3);
          writeln(x:1:2,' | ',y:0:6);
      end;

@Joy · 09.10.2014, 20:10

Cyborg Drone, там же отрезок конкретный прописан [0;2] откуда отрицательные числа возьмутся?

@Cyborg Drone · 10.10.2014, 00:52

Да, насчёт отрицательных проверять и в самом деле не нужно. Это одновременно сработали моя невнимательность и буквоедство. Извиняюсь. Тогда остаётся только опечатка (2^x=e^x*ln(2)).

@Joy · 10.10.2014, 03:37

forp, строка 11 должна быть такая

Pascal

1	else y:=exp(xln(2))+exp(1/3ln(x+6));

@forp 0 / 0 / 0 Регистрация: 08.10.2014 Сообщений: 2
		1
	Составить программу табулирования функции 09.10.2014, 16:54. Показов 887. Ответов 5 Метки нет (Все метки) Составить программу табулирования функции. Заранее огромное спасибо! Составить программу табулирования функции $https://www.cyberforum.ru/cgi-bin/latex.cgi?Y=\begin{cases}e^x+\left(\ln(x) \right)^3\cdot \cos (x-2) &\ ,\ \ x\leq 1\\\\ 2^x+\sqrt[3]{x+6} &\ ,\ \ x>1\end{cases}$ на отрезке [0; 2] с шагом h = 0.2. 0

@Joy 2385 / 1297 / 1492 Регистрация: 29.08.2014 Сообщений: 4,661
	09.10.2014, 20:10	4
	Cyborg Drone, там же отрезок конкретный прописан [0;2] откуда отрицательные числа возьмутся? 0

@Cyborg Drone Модератор 9656 / 4976 / 3265 Регистрация: 17.08.2012 Сообщений: 15,476
	10.10.2014, 00:52	5
	Да, насчёт отрицательных проверять и в самом деле не нужно. Это одновременно сработали моя невнимательность и буквоедство. Извиняюсь. Тогда остаётся только опечатка (2^x=e^x*ln(2)). 0

Опции темы

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

Решение