Ошибка в программе

[yulia.a]

Написала программу(пример прикреплен ниже), все запускается, все вроде работает, но при просчете значений вручную второе выражение не сходится и плюс непонятно, почему у значения х вместо нуля стоит дробное число(скрин ниже).Объясните, пожалуйста, что не так?

Program LAB;
  Var
    A,B,hx,x,x0,xn,z:real;
    i,nx:integer;
  Begin 
    A:=-5;
    B:=12;
    x0:=-2;
    hx:=0.2;
    xn:=2;
    x:=x0;
    nx:=trunс((xn-x0)/hx+1e-6)+1;
    For i:=1 to nx do
      begin
        if x<=pi/2
          then
            z:=2*sin(x)
          else 
            if (-pi/2<x) and (x<pi/2)
              then
                z:=A*sin(x)+B
              else
                z:=cos(x);
        writeln(‘x=’,x,’z=’,z);
        x:=x+hx
      end
  End.

[eoln]

Ответы сходятся, т.к. синус в паскале считается в радианах, а не градусах.
Почему не ноль? Ноль там, то есть почти ноль 0,000000000002, это особенность дробных чисел (см. инет или поиск по форуму). Чтоб такого не было, например, пиши writeln(‘x=’,x:0:5,’z=’,z:0:5);
с транкейтами что-то замудрёно. Используй не for, а while или repeat

[type_Oleg]

Там вроде в самой задаче опечатка.
Первая строка должно быть <= - пи/2, а не <= пи/2.
Иначе условие пересекается с условием второй строки.

[yulia.a]

Спасибо большое!
По заданию нужно именно for.
Наверное, там и есть ошибка в первом условии