проблема с отображением графика в Turbo Pascal

[mishammm]

нужно было постоить график в полярной системе координат функции p = exp(fi/10). но проблема вместо графика мигает точка в середине экрана и всё. вот код

uses
   crt,  graph;
   const
        step=pi/10;
        var
        gd,gm,xc,yc,x,y:integer;
        fi:real;
        i:longint;
        function r0(fi:real):real;
        begin
        r0:=exp(fi/10);
        end;
        begin
        gd:=detect;
        initgraph(gd,gm,'');
        xc:=getmaxx div 2;
        yc:=getmaxy div 2;
        for i:=1 to 100 do begin
        fi:=fi*step;
        x:=trunc(r0(fi) * cos(fi));
        y:=trunc(r0(fi) * sin(fi));
        setcolor(i div 16+1);
        If i=1 then
        moveto(xc+x,yc-y)
        else
        lineto(xc+x,yc-y);
        delay(500);
        end;
        readln;
        closegraph;
        End.

код правильный вроде, так как препод давал такой же но беда с самим отображением. помогите что тут можно сделать?

[Serge_Bliznykov]

код неправильный. у Вас fi изначально равно нулю. а сколько ноль на step не умножай, всё ноль будет!

так устроит?

uses
  crt, graph;
const
  step = pi / 10;
var
  gd, gm, xc, yc, x, y: integer;
  fi: real;
  i: longint;

function r0(fi: real): real;
begin
  r0 := exp(fi / 10);
end;

begin
  gd := detect;
  initgraph(gd, gm, '');
  xc := getmaxx div 2;
  yc := getmaxy div 2;
  fi := 0;
  for i := 1 to 160 do begin
    fi := fi + step;
    x := trunc(r0(fi) * cos(fi));
    y := trunc(r0(fi) * sin(fi));
    { WriteLn('fi=',fi,' x=',x,' y=',y); }
    setcolor(i div 16 + 1);
    if i = 1 then
      moveto(xc + x, yc - y)
    else
      lineto(xc + x, yc - y);
    delay(50);
    if keypressed then Break;
  end;
  OutText('DONE!');
  readln;
  closegraph;
end.

p.s. почему Вы код не форматируете отступами? Это же удобно и повышает читаемость и наглядность кода программы!!

[mishammm]

спасибо, учту ваши замечания насчёт кода

[mishammm]

оно так и должно спираль рисовать начиная с самой маленькой точки? а можно как то этот процес ускорить? например в цыкле или это физически невозможно? а хоят главное рисует да и рисует

[Serge_Bliznykov]

а можно как то этот процес ускорить?

уберите строчку delay(xxx); - процесс и ускорится!

[Sciv]

оно так и должно спираль рисовать начиная с самой маленькой точки?

Да. Даже если на бумажке рисовать - перебор чисел делаем традиционно от меньшего к большему.

например в цыкле или это физически невозможно?

Так и так в цикле сделано

а можно как то этот процес ускорить?

А это уже выше Сергей объяснил