Табулирование функции.
Табулирование функции - это вычисление значенй функции при изменении аргумента от некоторого начального значения до некоторого конечного значения с определенным шагом. Именно так составляются таблицы значений функций, отсюда и название - табулирование. Необходимость в табулировании возникает при решении достаточно широкого круга задач. Например, при численном решении нелинейных уравнений f(x) = 0, путем табулирования можно отделить (локализовать) корни уравнения, т.е. найти такие отрезки, на концах которых, функция имеет разные знаки. С помощью табулирования можно, хотя и очень грубо, найти минимум или максимум функции. Иногда случается так, что функция не имеет аналитического представления, а ее значения получаются в результате вычислений, что часто бывает при компьютерном моделировании различных процессов. Если такая функция будет использоваться в последующих расчетах (например, она должна быть проинтегрирована или продифференцирована и т.п.), то часто поступают следующим образом: вычисляют значения функции в нужном интервале изменения аргумента, т.е. составляют таблицу (табулируют), а затем по этой таблице строят каким-либо образом другую функцию, заданную аналитическим выражением (формулой). Необходимость в табулировании возникает также при построении графиков функции на экране компьютера. И т.д. и т.п.
Протабулировать функцию F(x,y), где х изменяется на отрезке [а,b] c шагом х,у изменяется на отрезке [с,d] причем если то c шагом y1, иначе с шагом y2.
Program A1;
Var x,y,a,b,c,d,Q,dx,dy1,dy2,F,T: real;
Begin
Writeln(‘ Введите a,b,c,d,dx,dy1,dy2,T’);
Readln(a,b,c,d,dx,dy1,dy2,T);
X:=a;
While x <= b do
begin
y:=c;
While y <= d do
begin
f:=
Writeln(‘F=‘, f, ’x=’ , x ,’y=’ , y);
Q:=(T*x+ SQR(x))/ 18;
IF Q<8 Then y:=y+dy1 ELSE y:=y+dy2;
end;
х:=х+dх
end;
end.