Паскаль!!! Необходимо написать модель солнечной системы с 3 планетками( Меркурий, Венера,

Паскаль!!! Необходимо написать модель солнечной системы с 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.

Грабовский Диман 2019-02-22 18:49:30

Вот почти доделал, желаю уточнить: Для вас для ABC или для ABC.NET - различается не очень

Ден Клецковский 2019-02-22 18:53:02

abc.net

Василиса Минай 2019-02-22 18:57:02

Переделывать не придётся

Polina Cherkendova 2019-02-22 19:05:57

В ABC.NET в образцах есть вот такое:

Алексей Тюмнев 2019-02-22 19:15:14

//Программа "Скозь вселенную". Порт с midletPascaluses GraphABC; type // Обрисовываем тип-элемент Звезда TStar = record X, Y, Z : real; // Положение в пространстве end; const MAX_STARS = 1000; // Кол-во звёздочек SPEED = 200; // Скорость, в единицах/сек var i : Integer; // Наши звёздочки :) Stars : array [1..MAX_STARS] of TStar; // Ширина и вышина дисплея scr_W : Integer; scr_H : Integer; // Время time, dt : Integer;

Даниил Подруцкий 2019-02-22 19:22:13

// Живописует текущую звёздочку (i), цвета (c) procedure SetPix(c: Integer); var sx, sy : Integer; begin // Данные деяния, проецируют 3D точку на 2D полоскость монитора try sx := trunc(scr_W / 2 + Stars[i].X * 200 / (Stars[i].Z + 200)); sy := trunc(scr_H / 2 - Stars[i].Y * 200 / (Stars[i].Z + 200)); except end; try SetPixel(sx, sy, Color.FromArgb(c, c, c)); except end; end; begin MaximizeWindow(); scr_W := Window.Width; scr_H := Window.Height;

Инна Гладченко 2019-02-22 19:24:50

//случайным образом раскидаем звёздочки randomize; for i := 1 to MAX_STARS do begin Stars[i].X := random(scr_W * 4) - scr_W * 2; Stars[i].Y := random(scr_H * 4) - scr_H * 2; Stars[i].Z := random(1900); end; // Чистка содержимого дисплея (чёрный цвет) ClearWindow(Color.Black); time := Milliseconds; // Основной цикл отрисовки repeat scr_W := Window.Width; scr_H := Window.Height; dt := Milliseconds - time; // Сколько мс прошло, с прошлой отрисовки

Настя Плямина 2019-02-22 19:29:37

time := Milliseconds; // Засекаем время for i := 1 to MAX_STARS do begin // Затираем звёздочку с предыдущего кадра SetPix(0); // Изменяем её позицию в зависимости прошедшего с заключительной отрисовки медли Stars[i].Z := Stars[i].Z - SPEED * dt/1000; // Если звезда "улетела" за позицию камеры - генерируем её вдали if Stars[i].Z <= -200 then begin Stars[i].X := random(scr_W * 4) - scr_W * 2; Stars[i].Y := random(scr_H * 4) - scr_H * 2; Stars[i].Z := 1900; // Откидываем звезду далеко вперёд :)

Сангатулин Руслан 2019-02-22 19:30:43

end; // Живописуем звёздочку в новом положении (цвет зависит от Z координаты) SetPix(trunc(255 - 255 * (Stars[i].Z + 200) / 2100)); end; sleep(10); until false; end.

Alla Nevmjakova 2019-02-22 19:36:57

Если немножко переработать, можно Звёзды в движении на фон поставить