Построить таблицу значений функции F для х имеющегося в пределах от x0 до xk с шагом h....

Question

Построить таблицу значений функции F для х имеющегося в пределах от x0 до xk с шагом h. Значения x0, xk, h задаются пользователем. Под цифрой 6

---

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (x0, h, xk) := ReadReal3('Введите через пробел x0,h,xk:');

 var b := ReadReal('Введите b:');

 for var i := 0 to Trunc((xk - x0) / h) do

 begin

   var x := x0 + i * h;

   var F := x = 2 ? (5 - b * b) * Cos(Pi * x) : Ln(x - 2) * Sin(x / 2);

   $'{x,17:f10}{F,24:f10}'.Println

 end

end.

---

Comments

Желаемое количество знаков в дробной части указывается тут: $'{x,17:f10}{F,24:f10}'.Println - в данном случае оно равно 10 для обоих колонок.

---

А как вот эта часть: F=arctg(x)+... ?

---

А это уж виноват автор вопроса. Там мало что не видно, где 5, а где 6, так мы что, еще должны догадаться. что запись функции начинается ВЫШЕ номера, под которым она записана?

Answer 2

// PascalABC.NET 3.3

begin

 var (x0,xk,h):=ReadlnReal3('x0, xk, h: ');

 var b:=1.5;

 var n:=round((xk-x0)/h);

 var x:=Range(0,n).Select((x,i)->x0+i*h);

 x.Foreach(x->Writeln(x:4:1,'  ',

  x

end.

Пример:

x0, xk, h:  0 4 0.5

0.0  1.4142135623731

0.5  1.6883924803924

1.0  1.78539816339745

1.5  1.68990050443388

2.0  3.75

2.5  -0.657786013301077

3.0  0

3.5  0.398971968326155

4.0  0.630276947694634

Comments

Если Вы будете продолжать направо и налево кидать свои просьбы под чужими ответами (что является спамом), можете добиться, что Вас просто забанят.