Задать вопрос
22 сентября, 06:39

Разработайте динамическую модель - старт ракеты.

программа в паскале

+3
Ответы (1)
  1. 22 сентября, 09:17
    0
    uses graphABC; var f:boolean; procedure planety (r, x, y:integer; c:Color); begin setpencolor (c); setbrushcolor (c); setbrushstyle (bsSolid); circle (x, y, r); end; procedure KeyPress (key:char); begin if key#0 then f:=false; end; var xc, yc, rs, rz, rl, r1, r2, x1, y1, x2, y2:integer; u1, u2:real; begin xc:=windowwidth div 2; yc:=windowheight div 2; rs:=90; rz:=15; rl:=3; r1:=170; r2:=25; u1:=0; u2:=0; clearwindow (clBlack); lockdrawing; o nkeypress:=Keypress; f:=true; repeat clearwindow (clBlack); setbrushstyle (bsClear); setfontcolor (clWhite); textout (windowwidth div 2-80,10,'Выход любая клавиша'); planety (rs, xc, yc, clYellow); u1:=u1-0.02; u2:=u2+0.1; x1:=xc+round (r1*cos (u1)); y1:=yc-round (r1*sin (u1)); x2:=x1+round (r2*cos (u2)); y2:=y1-round (r2*sin (u2)); planety (rz, x1, y1, clBlue); planety (rl, x2, y2, clSilver); sleep (100); redraw until not f end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Разработайте динамическую модель - старт ракеты. программа в паскале ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы