Нахождение синуса

[whatever]

Сразу хочу извиниться за название темы, ума не дам как описать эту проблему...

const
n=11;
var
  i:integer;
  z:real;
BEGIN
  write('x':8);
  write('sin':8);
  write('cos':8);
  writeln;
  z:=0;
  for I:=1 to n do
    begin
      write(z:8:3);
      write(sin(z):8:3);
      write(cos(z):8:3);
      writeln;
      z:=z+0.1;
    end;
readln
END.

Эта программа находит значения синуса и косинуса на отрезке [0.1] с шагом в 0.1
Результат такой:

        x        sin        cos
    0.000    0.000    0.000
    0.100    0.100    0.995
..................................
    1.000    0.841    0.540

А должен быть:

        x        sin        cos
    0.000    0.000    0.000
    0.100    0.099    0.995
..................................
    1.000    0.842    0.540

Вот теперь вопрос: почему значения синуса находятся неверно? Если в теле программы sin заменить на cos, то значения косинуса выдаются верно, т.е. значения аргумента х подставляются правильные.

Ума ни дам где может быть ошибка...

[whatever]

Все, разобрался, округляет он оказывается... Оказалось, что у меня задание так сформулировано, что при х=0,1 округлять не надо, а при х=1 почемуто округлили, что и ввело в заблуждение.

Да, тему можно удалить