Question

Постройте таблицу значений функции y=f(x) для x€[a,b] с шагом h.
Замечание. Для решения задачи использовать вспомогательный метод.
12 задача

Answer 1

// PascalABC.Net 3.0, сборка 1052
function f(x:double):double;
begin
  if x<0 then result:=0
  else
    if x=1 then result:=1
    else result:=sqr(x)+1
end;

var
  a,b,h,x:double;
begin
  Write('Введите a b h: '); Read(a,b,h);
  x:=a;
  while x<=(b+1e-10*h) do begin
    Writeln('x=',x:10:5,', y=',f(x):10:5);
    x:=x+h
  end
end.

Тестовое решение:
Введите a b h: 0.3 2.5 0.25
x=   0.30000, y=   1.09000
x=   0.55000, y=   1.30250
x=   0.80000, y=   1.64000
x=   1.05000, y=   2.10250
x=   1.30000, y=   2.69000
x=   1.55000, y=   3.40250
x=   1.80000, y=   4.24000
x=   2.05000, y=   5.20250
x=   2.30000, y=   6.29000