clg

color black,white
rect 50,50,200,200
text 40,255,"0"
text 250,255,"90°"
text 0,150,"sin A"
text 150,255,"A"
text 40,40,"1"

penwidth 3
color red
for i=0 to pi/2 step 0.05
x=50 + int(i*200*2/pi)
y=250 - int(sin(i) * 200)
plot x,y
print x;" ";y
next i

end

clg

color black,white
rect 50,50,200,200
text 40,255,"0"
text 250,255,"90°"
text 0,150,"cos A"
text 150,255,"A"
text 40,40,"1"

penwidth 3
color red
for i=0 to pi/2 step 0.05
x=50 + int(i*200*2/pi)
y=250 - int(cos(i) * 200)
plot x,y
print x;" ";y
next i

end