pascal Составьте программу табулирования функции y=x+ln[sin(x)]на интервале x{-3;3} шаг х=0,2

Question

Роман Сидоренко · Accepted Answer

примени себе 
program tabulaciya; // f:=sin(k*k*k)/cos(k*k*k) + sin(k - 2.4); 
uses crt; //x<4 
var a:integer; 
 f,k:real; 
 BEGIN 
 clrscr; 
 writeln('vichislenie funkcii'); 
writeln('---------------------'); 
writeln; 
write('vvesti levuy granicu promegutka A (celoe!)-->'); 
readln(a); 
 writeln; 
writeln(' x f'); 
writeln('----------------'); 
k:=a; 
 repeat 
 f:=sin(k*k*k)/cos(k*k*k) + sin(k - 2.4); 
 writeln(k:6:2,f:7:2); 
 k:=k+0.2; 
 until k >4; 
 writeln('----------------'); 
 writeln; 
 writeln('konec zadachi'); 
 readkey; 
 END.