From c1147629f7aae2ee90ccd7c9f1ccbf106361d486 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Sat, 13 Dec 2025 16:35:46 +0100
Subject: =?UTF-8?q?Add=20book=20"=D0=97=D0=B0=D0=BD=D0=B8=D0=BC=D0=B0?=
 =?UTF-8?q?=D1=82=D0=B5=D0=BB=D1=8C=D0=BD=D0=BE=D0=B5=20=D0=BF=D1=80=D0=BE?=
 =?UTF-8?q?=D0=B3=D1=80=D0=B0=D0=BC=D0=BC=D0=B8=D1=80=D0=BE=D0=B2=D0=B0?=
 =?UTF-8?q?=D0=BD=D0=B8=D0=B5"?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../1/6_solar_system/unit1.pas"                    | 107 +++++++++++++++++++++
 1 file changed, 107 insertions(+)
 create mode 100644 "\320\227\320\260\320\275\320\270\320\274\320\260\321\202\320\265\320\273\321\214\320\275\320\276\320\265 \320\277\321\200\320\276\320\263\321\200\320\260\320\274\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265/1/6_solar_system/unit1.pas"

(limited to 'Занимательное программирование/1/6_solar_system/unit1.pas')

diff --git "a/\320\227\320\260\320\275\320\270\320\274\320\260\321\202\320\265\320\273\321\214\320\275\320\276\320\265 \320\277\321\200\320\276\320\263\321\200\320\260\320\274\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265/1/6_solar_system/unit1.pas" "b/\320\227\320\260\320\275\320\270\320\274\320\260\321\202\320\265\320\273\321\214\320\275\320\276\320\265 \320\277\321\200\320\276\320\263\321\200\320\260\320\274\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265/1/6_solar_system/unit1.pas"
new file mode 100644
index 0000000..c5e404e
--- /dev/null
+++ "b/\320\227\320\260\320\275\320\270\320\274\320\260\321\202\320\265\320\273\321\214\320\275\320\276\320\265 \320\277\321\200\320\276\320\263\321\200\320\260\320\274\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265/1/6_solar_system/unit1.pas"	
@@ -0,0 +1,107 @@
+unit Unit1;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls;
+
+type
+
+  { TForm1 }
+
+  TForm1 = class(TForm)
+    StartStopBtn: TButton;
+    Screen: TPaintBox;
+    procedure ScreenPaint(Sender: TObject);
+    procedure StartStopBtnClick(Sender: TObject);
+  private
+    var EarthX, EarthY: Integer; { Координаты земли }
+      EarthA: Real; { Текущий угол отклонения Земли }
+      MoonX, MoonY: Integer; { Координаты Луны }
+      MoonA: Real; { Текущий угол отклонения Луны }
+      IsRunning: Boolean;
+
+    const SunR: Integer = 60; { Радиус Солнца }
+      EarthR: Integer = 20; { Радиус Земли }
+      MoonR: Integer = 4; { Радиус Луны }
+      EarthD: Integer = 140; { Расстояние от Солнца до Земли }
+      MoonD: Integer = 40; { Радиус от Земли до Луны }
+      EarthV: Real = 0.02; { Угловая скорость Земли }
+      MoonV: Real = 0.1; { Угловая скорость Луны }
+  public
+
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.lfm}
+
+{ TForm1 }
+
+procedure TForm1.StartStopBtnClick(Sender: TObject);
+begin
+  if IsRunning then
+  begin
+    IsRunning := false;
+    StartStopBtn.Caption := 'Пуск';
+    Exit;
+  end;
+
+  StartStopBtn.Caption := 'Стоп';
+  IsRunning := true;
+
+  { Инициализация переменных }
+  EarthA := 0;
+  MoonA := 0;
+  EarthX := 0;
+  EarthY := 0;
+  MoonX := 0;
+  MoonY := 0;
+
+  while IsRunning do { Основной цикл }
+  begin
+    { Пересчитаем координаты Земли и Луны }
+    EarthX := Round(Screen.Width div 2 + EarthD * Cos(EarthA));
+    EarthY := Round(Screen.Height div 2 + EarthD * Sin(EarthA));
+    MoonX := Round(EarthX + MoonD * Cos(MoonA));
+    MoonY := Round(EarthY + MoonD * Sin(MoonA));
+
+    EarthA := EarthA + EarthV; { Изменяем текущие углы отклонения }
+    MoonA :=  MoonA + MoonV; { Земли и Луны }
+
+    if EarthA > 2 * PI then EarthA := EarthA - 2 * PI; { Корректируем углы }
+    if MoonA > 2 * PI then MoonA := MoonA - 2 * PI; { если требуется }
+
+    Screen.Invalidate;
+    Sleep(30); { Пауза }
+    Application.ProcessMessages;
+    if Application.Terminated then break;
+  end;
+end;
+
+procedure TForm1.ScreenPaint(Sender: TObject);
+begin
+  if not IsRunning then Exit;
+
+  Screen.Canvas.Pen.Width := 5; { Толщина линий - 5 пикселей }
+  Screen.Canvas.Pen.Color := clRed; { Рисуем Солнце в центре экрана }
+  Screen.Canvas.Ellipse(Screen.Width div 2 - SunR,
+    Screen.Height div 2 - SunR,
+    Screen.Width div 2 + SunR,
+      Screen.Height div 2 + SunR);
+
+  Screen.Canvas.Pen.Color := clGreen; { Рисуем Землю }
+  Screen.Canvas.Ellipse(EarthX - EarthR, EarthY - EarthR,
+    EarthX + EarthR, EarthY + EarthR); { и Луну }
+  Screen.Canvas.Pen.Color := clBlue;
+  Screen.Canvas.Ellipse(MoonX - MoonR, MoonY - MoonR,
+    MoonX + MoonR, MoonY + MoonR);
+end;
+
+end.
+
-- 
cgit v1.2.3