Регистрация Спросить otvet5GPT
28ByaKa28
08.01.2021 23:21
Информатика
Есть ответ 👍

Нужно написать модель солнечной системы с 3 планетами( меркурий, венера, земля) и 1 спутник(луна). чем дальше планеты от солнца тем медленнее они крутятся. есть код на одну планету, нужно дописать остальное в похожем стиле. uses crt, graphabc ; var x , y , x0 , y0 , rvod , xe , ye , rel , dy , re , i : integer ; begin x : = 640 ; // ширина окна y : = 480 ; // высота окна setwindowsize ( x , y ) ; // устанавливаем размер окна x0 : =x div 2 ; // центр х y0 : = y div 2 ; // центр у rvod : =70 ; // радиус солнца rel : = 10 ; // радиус венеры . dy : =100 ; re : =y0 - dy ; // радиус вращения венеры i : =360 ; repeat clearwindow ; if i=360 then i: = 1 else inc ( i ) ; setpencolor ( clorange ) ; // yer . цвет пepa circle ( x0 , y0 , rvod ) ; // солнце floodfill ( x0 , y0 , clyellow ) ; // заливка фигуры ( солнце ) xe : = x0 + round ( re*cos( i*pi / 180 ) ) ; ye : = y0 + round ( re*sin (i*pi / 180 ) ) ; circle ( xe , ye , rel ) ; // (венера) delay ( 10 ) ; until keypressed end.

285
350
Посмотреть ответы 2

Ответы на вопрос:

myrrr14
myrrr14
4,7(15 оценок)
Uses graphabc; var     r: integer: =70; //радиус солнца     a: array[1..4,1..5] of integer;     //a[1] - x     //a[2] - y     //a[3] - r     //a[4] - r орбиты     v: real: =0.03;     k: integer: =10; // коэффициент масштабирования орбит begin window.maximize; a[1,3]: =10; a[1,4]: =r+a[1,3]*k; a[2,3]: =13; a[2,4]: =a[1,4]+a[2,3]*k; a[3,3]: =17; a[3,4]: =a[2,4]+a[3,3]*k; a[4,3]: =a[3,3] div 4; a[4,4]: =a[3,3]+a[4,3]*k; lockdrawing; setcoordinateorigin(window.width div 2,window.height div 2); repeat window.clear; brush.color : = clyellow; fillcircle(0,0,r); brush.color : = clgray; a[1,1]: =round(a[1,4]*cos(v*3)); a[1,2]: =round(a[1,4]*sin(v*3)); fillcircle(a[1,1],a[1,2],a[1,3]); brush.color : = clorange; a[2,1]: =round(a[2,4]*cos(v*3/4)); a[2,2]: =round(a[2,4]*sin(v*3/4)); fillcircle(a[2,1],a[2,2],a[2,3]); brush.color : = clblue; a[3,1]: =round(a[3,4]*cos(v/4)); a[3,2]: =round(a[3,4]*sin(v/4)); fillcircle(a[3,1],a[3,2],a[3,3]); brush.color : = clgray; a[4,1]: =a[3,1]+round(a[4,4]*cos(20*v)); a[4,2]: =a[3,2]+round(a[4,4]*sin(20*v)); fillcircle(a[4,1],a[4,2],a[4,3]); v: =v+0.03; redraw; until false; end.
аня2941
аня2941
4,5(74 оценок)

a = int(input())

b = int(input())

c = int(input())

D = b ** 2 - 4 * a * c

print(D)

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS