создать анимацию строения атома в турбо паскале
Предмет:
ИнформатикаАвтор:
kieranthqlProgram P1;usesGraph,Crt;vard,m,i,k : integer;x,y,x0,y0,r : integer;a,b : real;begin
d := detect;
InitGraph(d,m,'');
x0 := 640 div 2;y0 := 480 div 2;
i := 1;
r := 100;
a := 0;b := 1;
x := x0;y := y0;
repeat
Delay(100);
a := a + 0.1;b := b - 0.1;
ClearDevice;
Circle(x0,y0,r);
x := round(x0 + (r+20)*cos(a));y := round(y0 + (r+20)*sin(a));
putpixel(x,y,65535);
x := round(x0 + (r+40)*cos(b));y := round(y0 + (r+40)*sin(b));
putpixel(x,y,65535);
untilKeyPressed = true;
CloseGraph;
end.
Автор:
corneliusuaemДобавить свой ответ
почему темпы приватизации торговли и сферы услуг были более высокими, чем в промышленности?
Предмет:
ИсторияАвтор:
timothy173Ответов:
Смотреть
Предмет:
Українська моваАвтор:
scoutuxgaОтветов:
Смотреть
урожайность хлопка на первом поле на 12,5% меньше урожайности хлопка на втором поле.Какова урожайность хлопка на первом поле,если на втором поле она равна 28 ц с гектара? помогите,пожалуйста решить задачу,с объяснениями к каждому действию!
Предмет:
МатематикаАвтор:
syllableq9dqОтветов:
Смотреть
Каким образом могут быть заряжены разноименными зарядами два электрометра , если в распоряжении есть только эбонитовая палочка , полотенце и проводник с изолированнной ручкой?