Напишите программу для уравнения, фотография которого будет приложена ниже, в Паскале АBC

Question

Информатика: Напишите программу для уравнения, фотография которого будет приложена ниже, в Паскале АBC

eremenko6kirov · Accepted Answer

#include math.h #include glut.h void Draw () { glClear (GL_COLOR_BUFFER_BIT); glColor3f (0.7,0.7,1); glTranslatef (200,200,0); glBegin (GL_POINTS); for (int i=0,R=30;i 5;i++,R+=10) { for (float x=-R;x R;x+=0.01) { glVertex2f (R*sin(x),R*cos(x)); } } glEnd (); glutSwapBuffers (); } void Init () { glClearColor (1,1,1,1); glMatrixMode (GL_PROJECTION); glLoadIdentity (); glOrtho (0,400, 0,400, 0,400); glMatrixMode (GL_MODELVIEW); } int main (int argc,char** argv)glutInit (&argc,argv); glutInitDisplayMode...

MOGZ ответил