Program Lab_3_var;

Uses crt;

Var

z, phimin, phimax, dphi, phi, a, x: real;

i,n:integer;

label 1;

begin

clrscr;

1:writeln('Введите phimin, phimax');

Readln(phimin,phimax);

If phimin>=phimax then begin writeln('Неверно phimin>=phimax'); goto 1;

End;

Writeln('Введите dphi');

Readln(dphi);

Writeln('Введите a');

Readln(a);

n:=trunc((phimax-phimin)/dphi)+1;

writeln('______________','______________','______________');

writeln('|Значение X ','Значение a ','Значение z |');

writeln('|_____________','______________','_______________|');

phi:=phimin;

while phi<phimax+0.1 do begin

x:=sin(phi)/cos(phi) + a;

z:=0.5 * x*x*x - ln(abs(x-5))/ln(10);

writeln(' ', x:5:4, ' ' ,a:2:1, ' ', z:8:6);

phi:=phi+dphi;

end;

end.