Ответ:

program z1;

var i: integer;

a, x, f: real;

begin

writeln ('Программа вычисления функции f(x) = sin (2x) / sqrt (x)');

writeln ('При x, изменяющемя от 1 до 2 с шагом а');

writeln ('Введите шаг измениения функции (a>0)');

write ('a = ');

readln (a);

writeln ('i - номер строки');

writeln ('|--------------------------------------------------------|');

writeln ('|       Таблица функции f(x) = sin (2x) / sqrt (x)       |');

writeln ('|--------------------------------------------------------|');

writeln ('|    i    |      x     |      f      |     Значение      |');

writeln ('|--------------------------------------------------------|');

i:=0;

x:=1;

repeat

i:=i+1;

f:=sin (2*x) / sqrt (x);

if f > 0 then writeln ('|',i:5,'    |    ',x:0:3,'   |    ',f:0:3,'    |   положительная   |') else

if f < 0 then writeln ('|',i:5,'    |    ',x:0:3,'   |    ',f:0:3,'   |   отрицательная   |') else

writeln ('|',i:5,'    |    ',x:0:3,'   |     ',f:0:3,'   |      равна 0     |');

writeln ('|--------------------------------------------------------|');

x:=x+a;

until x > 2.0001

end.

Объяснение:

Программы будет выводит значение: положительная или отрицательная (а не неотрицательная, т.к. думаю, что там просто опечатка)

Программа допускает точность а до тысячных разрядов дробной части.

sin вычисляется в радианах