Вычислить значение функции - Pascal (80159)

Формулировка задачи:

Вычислить значение функции f(x) =x/(25-х2). X изменяется от А до В с шагом h. Вычисление F(x) оформить как функцию, результаты вывести в виде таблицы в основной программе

Код к задаче: «Вычислить значение функции - Pascal (80159)»

textual
function f(x:real):real;
begin
f:=x/(25-x*x);
end;
var xn,xk,h,x:real;
begin
write('Введите начало интервала xn=');
readln(xn);
repeat
write('Введите конец интервала xk>',xn:0:2,' xk=');
readln(xk);
until xk>xn;
repeat
write('Введите шаг табуляции h<',xk-xn:0:2,' h=');
readln(h);
until h<xk-xn;
x:=xn;
while x<xk+h/2 do
 begin
  if x=5 then writeln('x=',x:5:2,' f(x) не определено')
  else writeln('x=',x:5:2,' f(x)=',f(x):8:4);
  x:=x+h;
 end;
end.

11   голосов, оценка 3.636 из 5


СОХРАНИТЬ ССЫЛКУ