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

Question

Составить программу для вычисления значений функции F(x) на отрезке [a,b] с шагом h. результат представить в виде таблицы, первый столбец которой-значение аргумента,второй-соответствующие значения функции F(x)=sinx*sinx

Answer 1

uses crt;
var a, b, h, f, x:real;
begin 
 writeln ('введите a, b');
  readln (a, b); 
 if a>b then h:=a-b
else h:=b-a;  x:=h; 
 f:=sin(x)*sin(x); 
 writeln; 
 writeln('|---|------|'); 
 writeln('|x', '  | ' ' f   |');
  writeln('|---|------|'); 
 writeln('|',x,'  |', f:6:2,'|');
  writeln('|---|------|'); 
 x:=x+h;
end.