Изобразить на экране правильный треугольник, вращающийся вокруг своего центра - Turbo Pascal - Ответ 1719903

Uses
    CRT,Graph;
 
Var
    w,fi:real;
    a,x0,y0,r2,x1,y1,x2,y2,x3,y3:integer;
 
Procedure GRINIT;
Var
    Driver:Integer;
    Mode:Integer;
    Error:Integer;
Begin
    Driver:=Detect;
    InitGraph(Driver,Mode,'d:\');
    Error:=GraphResult;
    if Error<>grOk then
    begin
        writeln('Oshibka graphiki: ',GraphErrorMsg(Error));
        writeln('Programa ostanovlena');
        readln;
        Exit;
    end
End;
 
Begin
    write('Vvedite skorost: ');
    Readln(w);
    write('Vvedite storonu: ');
    Readln(a);
    r2:=round(a/sqrt(3));
    x0:=300;
    y0:=200;
    fi:=0;
    GRINIT;
    repeat
        if fi=2*pi then fi:=0;
        x1:=x0+round(r2*cos(w*fi));
        y1:=y0+round(r2*sin(w*fi));
        x2:=x0+round(r2*cos(w*fi+2*pi/3));
        y2:=y0+round(r2*sin(w*fi+2*pi/3));
        x3:=x0+round(r2*cos(w*fi+4*pi/3));
        y3:=y0+round(r2*sin(w*fi+4*pi/3));
        SetColor(white);
        moveto(x1,y1);
        lineto(x2,y2);
        lineto(x3,y3);
        lineto(x1,y1);
        fi:=fi+0.0001;
        SetColor(black);
        moveto(x1,y1);
        lineto(x2,y2);
        lineto(x3,y3);
        lineto(x1,y1);
    Until keypressed;
    Closegraph;
End.