29. StyleUz (M) (175) [off]
|
TXT |
15| 18 Nov 2017, 20:34
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.
33. Ashurov (2636) [off]
|
TXT |
15| 19 Nov 2017, 17:32
Creators (19 Nov 2017, 15:36):
Dasturchi bo'lish uchun matematikani ham yaxshi bilish kerak
Creators, qo'shilaman va yana sosan mantiq va informatika