#define PROG_NAME "Circle" #define PROG_DESC "???" #define PROG_VERS "1.0" #define Circle_C_COPYRIGHT \ "" #define PROG_INFO \ "" \ " " #include #define _GNU_SOURCE #include #include #define _GNU_SOURCE #include VAR uint n; teta: double = 0.0; double y; <* FATAL Wr.Failure, Thread.Alerted, Rd.EndOfFile, FloatMode.Trap, Rd.Failure, Lex.Error); INTEGER ReadInt() { return Scan.Int(Rd.GetLine(stdin)); } ReadInt; { fprintf(stderr, "Input an integer in the next line\n"); n = ReadInt(); ??? count = 360 DIV n; { for (i = 0; i < n; i++) { teta = FLOAT(count,double) + teta; ??? nr = FLOAT((teta * FLOAT(Math.Pi, double))/180.0); with(double), double x = cos(nr); double x2 = FLOAT(x * x,double) ){ if ((nr > FLOAT(Math.Pi,double))) { y = sqrt(1.0-x2); } else { y = -sqrt(1.0-x2); } fprintf(stderr, Fmt.LongReal(x) & " " & Fmt.LongReal(y) & "\n"); } } } } circle.