Question

правильно ли написана программа?
для заданной функции k=tg(3,4z^3)+cos(z+1,2) вывести на экран значения функции, которые лежат в пределах от -1 до 1 и соответсвующие им значения аргументы на отрезке z(a,b) с шагом h=0,2

program tab_13;
var a,b:integer;
k,z:real;
const h=0.2;
begin
repeat
writeln('vvedite znachenie a');
read(a);
writeln('vvedite znachenie b');
read(b);
until (a<0) and9a=b do
begin
k:=sin(3.4*z*z*z)/cos(3.4*z*z*z)+cos(z+1.2);
if(k>=-1) and(k<=1) then
writeln('z=z,z:6:2,'k=',k:6:2);
z:=z+h;
end;
end.

Answer 1

Нет не правильно. В некоторых местах кавычки, скобки не так расставлены, Вот правильное(в синтаксическом плане)

f1a3d2cc3d6024ca794584d10774ae3e.pas

Answer 2

Интервал [a,b] должна находить сама программа, после этого выводить таблицу значений функции.

1183a6e95d352cbe596a0ba69fa72979.txt

Answer 3

writeln(' a = ',a,' b = ',b);
{распечатка значений функции на интервале [a,b] }
z:=a-h;
writeln('------------------');
writeln('| x | f(x) |');
writeln('------------------');
repeat
z:=z+h;
if z>b then z:=b;
k:=sin(3.4*z*z*z)/cos(3.4*z*z*z)+cos(z+1.2);
writeln('|',z:6:2,' |',k:7:3, ' |');
writeln('------------------ ');
until z=b;
end.