Проблема с числами

@leiprechain · Регистрация: 14.12.2011

Студворк — интернет-сервис помощи студентам

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

Pascal

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, пример во вложении.
Помогите исправить.

Опции темы