Ответ:
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 вычисляется в радианах