Не запускается программа - PascalABC.NET (251673)

Узнай цену своей работы

Формулировка задачи:

Решение задачи: «Не запускается программа»

textual
Листинг программы
uses Graph3D;
 
begin
  Window.Title := 'Вращение планет';
  View3D.ShowCoordinateSystem := False;
  View3D.ShowGridLines := False;
  View3D.ShowViewCube := False;
  View3D.BackgroundColor := Colors.Black;
  var s := Sphere(2, 0, 0, 0.5, Colors.Red);
  var ss := Sphere(0, 0, 0, 1, Colors.Blue);
  Sphere(0, 0, 0, 2, DiffuseMaterial(Colors.Yellow) + SpecularMaterial(32));
  var g := Group(s, ss);
  g.MoveOn(-7, 0, 0);
  var anim := s.AnimRotateAt(OrtZ, 360 * 100, P3D(-2, 0, 0), 2 * 100) * g.AnimRotateAt(OrtZ, 360 * 100, P3D(7, 0, 0), 10 * 100);
  anim.Begin;
end.

Объяснение кода листинга программы

  1. Объявлены переменные s, ss, g.
  2. Создается окно с заголовком 'Вращение планет'.
  3. Отключается отображение координатной системы, линий сетки и куба просмотра.
  4. Устанавливается цвет фона черным.
  5. Создается сфера s с радиусом 2, центром в точке (0,0,0) и цветом красным.
  6. Создается сфера ss с радиусом 1, центром в точке (0,0,0) и цветом синим.
  7. Создается сфера с радиусом 0, центром в точке (0,0,0) и материалом, который отражает желтый цвет и имеет коэффициент отражения 32.
  8. Создается группа g, которая содержит сферы s и ss.
  9. Группа g перемещается на расстояние -7 по оси X.
  10. Создается анимация для сферы s, которая вращается вокруг оси Z на 360 градусов в течение 100 единиц времени с центром вращения в точке (-2,0,0) и группой g.
  11. Создается анимация для группы g, которая вращается вокруг оси Z на 360 градусов в течение 100 единиц времени с центром вращения в точке (7,0,0).
  12. Запускается анимация.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.571 из 5
Похожие ответы