Question

составить программу f(x)=x-sinx отрезок [0,3]

Answer 1

1 2 3 4 5 6 7 8 9 10 11 12 13 14 var a,b,h:real; begin write('vvedite otrezok cherz proboel ');readln(a,b); write('vv chag ');readln(h); writeln('|   x','  | | ','F(x) |'); writeln('|------|-|------|'); while a<=b do       begin       writeln('|',a:0:3,' | | ',sqrt(a)*sqr(cos(x)):0:3,'|');       writeln('|------|-|------|');       a:=a+h;       end; readln; end.