Question

Вывести значение функции на отрезке от a до b с шагом d. Числа a, b, d вводятся с клавиатуры. Программу составьте, используя цикл с предусловием. Turbo Pascal; f(x)= x^2+1/x-4.

Answer 1

var 
   a, b, d, y, x, x0: real;
begin 
   writeln('Пожалуйста, введите границы отрезка: '); 
   readln(a, b); 
   writeln('Пожалуйста, введите шаг: '); 
   readln(d); 
   y := sqr(x) + 1 / (x - 4); 
   x0 := a; 
   while (x0 <= b) do  
   begin   
      if ((x0 - 4) = 0) then writeln('Возникло деление на ноль!') else      
         writeln('Значение функции f(x) в точке x0 = ', x0, ' = ', sqr(x0) + 1 / (x0 - 4));   
      x0 := x0 + d; 
   end;
   readln;
end.