Правильно ли написана программа? для заданной функции k=tg(3,4z^3)+cos(z+1,2) вывести **...

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<br> 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<br> writeln('z=z,z:6:2,'k=',k:6:2);
z:=z+h;
end;
end.

Answer 1

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

Answer 2

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

---

Скачать вложение Текст (TXT)

Comments

var k,z,a,b: real;
const h=0.02;
begin
z:=0;
{нахождение точки разрыва}
repeat
z:=z+0.001;
k:=sin(3.4*z*z*z)/cos(3.4*z*z*z)+cos(z+1.2);
until k<0;<br>{нахождение левой границы интервала а }
repeat
z:=z+0.001;
k:=sin(3.4*z*z*z)/cos(3.4*z*z*z)+cos(z+1.2);
until k>(-1);
a:=round(z*100)/100;
{ нахождение правой границы интервала b }
repeat
z:=z+0.001;
k:=sin(3.4*z*z*z)/cos(3.4*z*z*z)+cos(z+1.2);
until k>1;
b:=round(z*100)/100;
writeln(' a = ',a,' b =

---

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.