Как я понял, вам необходимо было исправить ошибки в коде. Если это так, то Program ddd; var tg, f:real; x:integer; begin readln (x); tg := sin(x)/cos(x); if x<=-3.14 then f:=ln(cos(5*x)-2*x)+1; if x>-3.14 then f:=0.35*tg*(0.1*x)-exp(ln(2*2.7)*(-0.1*x)); writeln (f); end.
Обратите внимание, что вещественные числа указываются посредством точки, а не запятой (не "0,1", а "0.1"). Функция cos должна принимать какой-либо аргумент, ибо сама по себе она не представляет никакого значения (f:=ln(cos*(5*x)-2*x)+1; -- здесь вы cos * на выражение, что неверно). Приравнивать переменные одих типов к значению других -- ошибка (f:integer; - значение типа интеджер. ln(cos(5*x)-2*x)+1; - функция ln возвращает значение типа real. Следовательно, f не может присвоить возвращаемое значение функции ln).
Предположим, что словом "sqr" ты обозначил возведение в квадрат.
Тогда значения следующие:
1 -> 7,3
1,05 -> 7,562
1,1 -> 7,838
1,15 -> 8,128
1,2 -> 8,432
1,25 -> 8,75
1,3 -> 9,082
1,35 -> 9,428
1,4 -> 9,788
1,45 -> 10,162
1,5 -> 10,55
1,55 -> 10,952
1,6 -> 11,368
1,65 -> 11,798
1,7 -> 12,242
1,75 -> 12,7
1,8 -> 13,172
1,85 -> 13,658
1,9 -> 14,158
1,95 -> 14,672
2 -> 15,2