INTERNET VA DASTURLASH
|
Dasturlash tillari
|
Mavzu:
Dasturchi bo'lish uchun nima qilish kerak?
Mavzu fayllari
(1)
uses graph,crt; var gd,gm,i:integer; a:real; x,y:array[1..4]of integer; s:array[1..4]of real; begin initgraph(gd,gm,''); s[2]:=2*pi/3; s[3]:=2*pi/3*2; repeat a:=a+0.05; for i:=1 to 3 do begin x[i]:=300+trunc(200*sin(a+s[i])); y[i]:=300+trunc(50*cos(a+s[i])); end; for i:=1 to 3 do line(300,50,x[i],y[i]); line(x[1],y[1],x[2],y[2]); line(x[2],y[2],x[3],y[3]); line(x[3],y[3],x[1],y[1]); delay(20); cleardevice; until keypressed; end.
Yuklab olish
Onlayn 176 (0/176)
Forumga a'zo bo'lish
Forumdan qidirish
Bosh sahifa