Табуляция функции

@Summy · Регистрация: 05.11.2015

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

Нужна помощь с этим ужасом

В таблице представлены варианты, включающие исходные данные для табуляции:
F(x) - табулируемая функция; arcsin(2·x)
[A, B]- диапазон изменения аргумента; A=–0.5 ; B=0.5
n -количество точек; 21
h - шаг табуляции. Отсутствует
Эти параметры вводятся в программу с клавиатуры. Результатом является таблица, содержащая три столбца:
i - текущая точка расчета, Xi - значение аргумента, Yi – значение функции.

1. При создании программы F(x) оформить в виде отдельной функции.
2. Для расчетов использовать следующие формулы:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?h=\frac{B-A}{n-1}$ ; $https://www.cyberforum.ru/cgi-bin/latex.cgi?{X}_{i}=A+i*h$ ; $https://www.cyberforum.ru/cgi-bin/latex.cgi?{Y}_{i}=F({X}_{i})$ ; $https://www.cyberforum.ru/cgi-bin/latex.cgi?i=0,1,2,...,n-1$
3. Учесть и программно обработать особые точки, в том числе возможные разрывы функции F(x).

Добавлено через 15 минут
Вроде сам разобрался, проверьте только, если вдруг что-то неправильное будет, сразу мне по голове стучать

Pascal

var
  x, y,
  A, B, h : Real;
            i, n : Integer;
begin
  Writeln('Табулирование функции.');
  A := -0.5;
  B := 0.5;
  n := 21;
  h := (B-A)/(n-1);
  for i:=1 to n do begin
    x := A + h*(i-1);
    y := Pi/3-arctan(x/sqrt(1-sqr(x)));;
    Writeln(x:6:3, y:6:3);
  end;
  Readln;
end.

@Summy · 18.12.2015, 02:37 **[ТС]**

Оп. Возникла небольшая проблема, эту программу надо реализовать с использованием функции и выводом результата в виде таблицы, требуется любая помощь

Добавлено через 6 часов 1 минуту
Дело сделано, вас пока дождешься..уже и сам разберешь со всех сторон

Pascal

function f(x:real):real; 
begin 
f:=arcsin(2*x); 
end; 
var A,B,x,y,h:real; 
i,n:integer; 
begin 
n:=21; 
A:=-0.5; 
B:=0.5; 
h:=(B-A)/(n-1); 
x:=A; 
i:=0; 
while x<=B do 
begin 
i:=i+1; 
writeln(' ',i,' ',x:6:3,' ',f(x):6:3); 
x:=x+h; 
end; 
readln; 
end.

	18.12.2015, 02:37