Вещественной число NAN (Pascal)

[leiprechain]

Здравствуйте. Уважаемые программисты!
Помогите решить следующую проблему:
После многократного запуска данной программы

var v,x,y,f:extended;
n,i,z,integer;
koordinati:text;
begin
    assign(koordinati,'graphik.txt');
    rewrite(koordinati);
    randomize;
    write('Введите скорость частицы: ');
    readln(v);
    write('Введите количество толчков: ');
    readln(n);
    x:=0; y:=0;
    for i:=1 to n do
      begin
        f:=2*random*3.14;
        x:=x+v*cos(f);
        y:=y+v*sin(f);
        writeln(koordinati,x);
        writeln(koordinati, y);
        writeln('Абсцисса частицы: ',x);
        writeln('Ордината частицы: ',y);
      end;
    writeln('Для выхода из программы нажмите любую кнопку: ');
    readln;
    close(koordinati);
end.

x и y cтановится равным NAN. Пример во вложении.
Объясните, пожалуйста, как исправить.

[Базиля]

Какие значения задаете?

[leiprechain]

Сообщение от Базиля

Какие значения задаете?

По заданию, n= 100, 200, 300, 400, 500, 600, 700, 800, 800, 900. v любое (я задаю от 1 до 10).

[Базиля]

Странно, задал я у себя эти исходные данные.
Ошибки как таковой не последовало.
Но все-таки, для справки, NAN говорит обычно о том, что при вычислениях (речь идет о вещ. типе) произошло (как пример) деление на нуль и т.п.

[leiprechain]

Сообщение от Базиля

Странно, задал я у себя эти исходные данные.
Ошибки как таковой не последовало.
Но все-таки, для справки, NAN говорит обычно о том, что при вычислениях (речь идет о вещ. типе) произошло (как пример) деление на нуль и т.п.

Сейчас проверил ещё раз. При v=1 и n= 900 ( к примеру) во время четвёртого запуска перед NAN получил одни нули. Может поэтому NAN выскакивает? Если да, то как убрать эти нули

[Базиля]

Может поэтому NAN выскакивает?

Я же уже пояснил почему выскакивает NaN и в каких случаях. Читаем внимательней
Смею предположить что у вас шалит рандом. В следствии чего, может возникнуть некорректный агрумент у функций sin и cos.

[leiprechain]

Сообщение от Базиля

Я же уже пояснил почему выскакивает NaN и в каких случаях. Читаем внимательней
Смею предположить что у вас шалит рандом. В следствии чего, может возникнуть некорректный агрумент у функций sin и cos.

Т.е с этим ничего ничего не сделаешь.

[leiprechain]

Сообщение от Базиля

Смею предположить что у вас шалит рандом. В следствии чего, может возникнуть некорректный агрумент у функций sin и cos.

Не, дело не рандоме. Даже без него эти нули вылезают.
Здесь скорее всего что-то с синусом и косинусом.

[leiprechain]

Народ помогите исправить!!!

[GreenWizard]

если выскакивает не постоянно => проблема в рандоме => f может быть любым => может выходить за пределы допустимых значение => проверяем его, смотрим на наличие ошибки

попробуйте в код вставить:

f := random;
writeln('random = ', f);
f := 2 * f * 3.14;

и смотрите, что там за числа