Помогите пожалуйста, пол дня мучаюсь, а завтра сдавать. Нужно построить два графике в одной системе: Y=a*cos^3(фи) и Y=a*sin^3(фи), с графиками честно говоря не очень все фто могла сделать это вот...
program grafik; uses Crt, Graph; const mtx=50; mty=50; xn=320; yn=235; var grad,grreg,i,m,n,g,v:integer; x,y,x0,y0:real; s:string; begin grad:=detect; InitGraph(grad,grreg,'K:\tp7\bgi'); SetBkColor(LightGray); SetColor(blue); line(10,yn,630,yn); line(630,yn,600,225); line(630,yn,600,250); line(xn,10,xn,470); line(xn,10,340,30); line(xn,10,300,30); outtextXY(xn+25,10,'Y'); outtextXY(620,yn+20,'X'); outtextXY(xn-20,yn+10,'0'); m:=trunc(540/mtx); n:=trunc(460/mty); for i:=1 to m do begin g:=i*mtx; line(xn+g,yn-3,xn+g,yn+3); str(i,s); outtextXY(xn+g-5,yn+10,s); line(xn-g,yn-3,xn-g,yn+3); str(-i,s); outtextXY(xn-g-5,yn+10,s); end; for i:=1 to n do begin v:=i*mty; line(xn-3,yn-v,xn+3,yn-v); str(i,s); outtextXY(xn-30,yn-v,s); line(xn-3,yn+v,xn+3,yn+v); str(-i,s); OutTextXY(xn-30,yn+v,s) end; setcolor(green); OutTextXY(90,15,'Grafik funkcii y=cos(x)'); x0:=-270; Repeat x:=x0/mtx; y:=cos(x); y0:=y*mty; PutPixel(xn+trunc(x0),yn-trunc(y0),red); x0:=x0+1 until x0>270; readln; Closegraph end.