Табуляция функции y=tg^2(ln(x)

@mr_free · Регистрация: 08.08.2012

Доброго времени суток!

Мне необходимо протабулировать функцию y = tg² ln(x).
Вроде все сделал и оформил, как надо, но почему-то программа, когда натыкается на аргумент (х=0), который не входит в ОДЗ, выводит бред. Хотя я вроде учёл этот случай. Что не так?

Помогите, пожалуйста!
Заранее спасибо

Pascal

program lab3_2;
uses crt;
const a=-1; b=1; h=0.2;
var x,y:real;
BEGIN
        clrscr;
        x:=a;
        writeln('Табуляция функции в интервале [', x:4:2, ';', b, ']');
        writeln('+------------+-------------------+');
        writeln('|  Аргумент  | Значение функции  |');
        writeln('+------------+-------------------+');
        while x<=b do
                begin
                if (x=0) then
                    writeln('|', '           0', '          -        ', '|'); 
                if (x<0) or (x=exp(PI/2)) or (x=exp(-PI/2)) then
                    writeln('|', x:12, '|','          -        ', '|')
                else
                    begin
                    y:=sqr(sin(ln(x))/cos(ln(x)));
                    writeln('|', x:12, '|', y:19, '|');
                    end;
                x:=x+h;
                end;
        writeln('+------------+-------------------+');
END.

Когда по идее х = 0.
Вот что выводится:

| -5.55111512312578E-17 | - |

@Puporev · 25.10.2014, 09:25

Pascal

program lab3_2;
uses crt;
function f(x:real):real;
begin
f:=sqr(sin(ln(x))/cos(ln(x)));
end;
var a,b,h,x,y:real;
BEGIN
a:=-1;
b:=1;
h:=0.2;
x:=a;
writeln('Табуляция функции y=tg^2(ln(x))');
writeln('на интервале [',a:0:1,';',b:0:1,'] с шагом ',h:0:1);
writeln('+------------+-------------------+');
writeln('|  Аргумент  | Значение функции  |');
writeln('+------------+-------------------+');
while x<=b do
 begin
  if (x<=0)or(cos(x)=0) then
        writeln('|',x:12:1,'|          -        ', '|')
  else  writeln('|',x:12:1,'|',f(x):19:4,'|');
  x:=x+h;
 end;
writeln('+------------+-------------------+');
END.

Опции темы