Cоставить программу вычисления значений функций F(x) ** отрезке a;b с шагом h. Результат...

Question

Cоставить программу вычисления значений функций F(x) на отрезке a;b с шагом h. Результат представить в виде таблицы , первый столбец которой - значения аргумента, второй - соответствующие значения функции.
F(x)=x^2 *sin^2x +1

Answer 1

Var a,b,h,f,x:real;
begin
write('Введите а и b: ');
readln(a,b);
write('Введите h: ');
readln(h);
x:=a;
write('x:':8);
while x<=b do<br>  begin
  write(x:8:2);
  x:=x+h;
  end;
writeln;
write('F(x):':8);
x:=a;
while x<=b do<br>  begin
  f:=x*x*sqr(sin(x))+1;
  write(f:8:3);
  x:=x+h;
  end;
end.