From c1147629f7aae2ee90ccd7c9f1ccbf106361d486 Mon Sep 17 00:00:00 2001 From: Eugen Wissner 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/2_ideal_gas/project1.ico" | Bin 0 -> 137040 bytes .../1/2_ideal_gas/project1.lpi" | 77 +++++++++++++ .../1/2_ideal_gas/project1.lpr" | 23 ++++ .../1/2_ideal_gas/project1.lps" | 47 ++++++++ .../1/2_ideal_gas/project1.res" | Bin 0 -> 139052 bytes .../1/2_ideal_gas/unit1.lfm" | 27 +++++ .../1/2_ideal_gas/unit1.pas" | 125 +++++++++++++++++++++ 7 files changed, 299 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/2_ideal_gas/project1.ico" 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/2_ideal_gas/project1.lpi" 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/2_ideal_gas/project1.lpr" 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/2_ideal_gas/project1.lps" 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/2_ideal_gas/project1.res" 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/2_ideal_gas/unit1.lfm" 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/2_ideal_gas/unit1.pas" (limited to 'Занимательное программирование/1/2_ideal_gas') 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/2_ideal_gas/project1.ico" "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/2_ideal_gas/project1.ico" new file mode 100644 index 0000000..0341321 Binary files /dev/null and "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/2_ideal_gas/project1.ico" differ 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/2_ideal_gas/project1.lpi" "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/2_ideal_gas/project1.lpi" new file mode 100644 index 0000000..ef22555 --- /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/2_ideal_gas/project1.lpi" @@ -0,0 +1,77 @@ + + + + + + + + + <Scaled Value="True"/> + <ResourceType Value="res"/> + <UseXPManifest Value="True"/> + <XPManifest> + <DpiAware Value="True"/> + </XPManifest> + <Icon Value="0"/> + </General> + <BuildModes Count="1"> + <Item1 Name="Default" Default="True"/> + </BuildModes> + <PublishOptions> + <Version Value="2"/> + <UseFileFilters Value="True"/> + </PublishOptions> + <RunParams> + <FormatVersion Value="2"/> + <Modes Count="0"/> + </RunParams> + <RequiredPackages Count="1"> + <Item1> + <PackageName Value="LCL"/> + </Item1> + </RequiredPackages> + <Units Count="2"> + <Unit0> + <Filename Value="project1.lpr"/> + <IsPartOfProject Value="True"/> + </Unit0> + <Unit1> + <Filename Value="unit1.pas"/> + <IsPartOfProject Value="True"/> + <ComponentName Value="Form1"/> + <ResourceBaseClass Value="Form"/> + <UnitName Value="Unit1"/> + </Unit1> + </Units> + </ProjectOptions> + <CompilerOptions> + <Version Value="11"/> + <Target> + <Filename Value="project1"/> + </Target> + <SearchPaths> + <IncludeFiles Value="$(ProjOutDir)"/> + <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> + </SearchPaths> + <Linking> + <Options> + <Win32> + <GraphicApplication Value="True"/> + </Win32> + </Options> + </Linking> + </CompilerOptions> + <Debugging> + <Exceptions Count="3"> + <Item1> + <Name Value="EAbort"/> + </Item1> + <Item2> + <Name Value="ECodetoolError"/> + </Item2> + <Item3> + <Name Value="EFOpenError"/> + </Item3> + </Exceptions> + </Debugging> +</CONFIG> 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/2_ideal_gas/project1.lpr" "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/2_ideal_gas/project1.lpr" new file mode 100644 index 0000000..7b131c4 --- /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/2_ideal_gas/project1.lpr" @@ -0,0 +1,23 @@ +program project1; + +{$mode objfpc}{$H+} + +uses + {$IFDEF UNIX}{$IFDEF UseCThreads} + cthreads, + {$ENDIF}{$ENDIF} + Interfaces, // this includes the LCL widgetset + Forms, Unit1 + { you can add units after this }; + +{$R *.res} + +begin + RequireDerivedFormResource:=True; + Application.Title:='Ideal gas'; + Application.Scaled:=True; + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. + 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/2_ideal_gas/project1.lps" "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/2_ideal_gas/project1.lps" new file mode 100644 index 0000000..348b7a0 --- /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/2_ideal_gas/project1.lps" @@ -0,0 +1,47 @@ +<?xml version="1.0" encoding="UTF-8"?> +<CONFIG> + <ProjectSession> + <Version Value="11"/> + <BuildModes Active="Default"/> + <Units Count="2"> + <Unit0> + <Filename Value="project1.lpr"/> + <IsPartOfProject Value="True"/> + <EditorIndex Value="-1"/> + <WindowIndex Value="-1"/> + <TopLine Value="-1"/> + <CursorPos X="-1" Y="-1"/> + <UsageCount Value="20"/> + </Unit0> + <Unit1> + <Filename Value="unit1.pas"/> + <IsPartOfProject Value="True"/> + <ComponentName Value="Form1"/> + <ResourceBaseClass Value="Form"/> + <UnitName Value="Unit1"/> + <IsVisibleTab Value="True"/> + <CursorPos Y="45"/> + <UsageCount Value="20"/> + <Loaded Value="True"/> + <LoadedDesigner Value="True"/> + </Unit1> + </Units> + <JumpHistory Count="3" HistoryIndex="2"> + <Position1> + <Filename Value="unit1.pas"/> + </Position1> + <Position2> + <Filename Value="unit1.pas"/> + <Caret Line="16" Column="15"/> + </Position2> + <Position3> + <Filename Value="unit1.pas"/> + <Caret Line="48" Column="5"/> + </Position3> + </JumpHistory> + <RunParams> + <FormatVersion Value="2"/> + <Modes Count="0" ActiveMode=""/> + </RunParams> + </ProjectSession> +</CONFIG> 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/2_ideal_gas/project1.res" "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/2_ideal_gas/project1.res" new file mode 100644 index 0000000..1adb040 Binary files /dev/null and "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/2_ideal_gas/project1.res" differ 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/2_ideal_gas/unit1.lfm" "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/2_ideal_gas/unit1.lfm" new file mode 100644 index 0000000..13a9ef0 --- /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/2_ideal_gas/unit1.lfm" @@ -0,0 +1,27 @@ +object Form1: TForm1 + Left = 976 + Height = 506 + Top = 800 + Width = 767 + Caption = 'Form1' + ClientHeight = 506 + ClientWidth = 767 + DesignTimePPI = 93 + LCLVersion = '2.0.12.0' + object Screen: TPaintBox + Left = 11 + Height = 432 + Top = 11 + Width = 740 + OnPaint = ScreenPaint + end + object StartStopBtn: TButton + Left = 336 + Height = 20 + Top = 464 + Width = 99 + Caption = 'Пуск' + OnClick = StartStopBtnClick + TabOrder = 0 + end +end 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/2_ideal_gas/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/2_ideal_gas/unit1.pas" new file mode 100644 index 0000000..44489ca --- /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/2_ideal_gas/unit1.pas" @@ -0,0 +1,125 @@ +unit Unit1; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, + Math; + +type + + Molecule = record + X, Y: Integer; + Vx, Vy: Integer; + end; + + { TForm1 } + + TForm1 = class(TForm) + StartStopBtn: TButton; + Screen: TPaintBox; + procedure StartStopBtnClick(Sender: TObject); + procedure ScreenPaint(Sender: TObject); + private + const R: Integer = 10; { Радиус молекулы } + V: Integer = 7; { Максимальная скорость молекулы } + N = 30; { Количество молекул } + var Mol: array[1..N] of Molecule; { Массив молекул } + public + + end; + +var + Form1: TForm1; + IsRunning: Boolean = false; + +implementation + +{$R *.lfm} + +{ TForm1 } + +procedure TForm1.ScreenPaint(Sender: TObject); + var i: Integer; +begin + if not IsRunning then Exit; + + for i := 1 to N do { Цикл по всем молекулам } + begin + Screen.Canvas.Pen.Color := clBtnFace; { Стираем молекулу } + Screen.Canvas.Ellipse(Mol[i].X - R, Mol[i].Y - R, + Mol[i].X + R, Mol[i].Y + R); + + Mol[i].X := Mol[i].X + Mol[i].Vx; { Сдвигаем на новую позицию } + Mol[i].Y := Mol[i].Y + Mol[i]. Vy; + + { Определяем, не вышла ли молекула за границы аквариума } + if Mol[i].X > Screen.Width - R then + begin + Mol[i].X := Screen.Width - R; + Mol[i].Vx := -Mol[i].Vx; + end; + if Mol[i].X < R then + begin + Mol[i].X := R; + Mol[i].Vx := -Mol[i].Vx; + end; + if Mol[i].Y > Screen.Height - R then + begin + Mol[i].Y := Screen.Height - R; + Mol[i].Vy := -Mol[i].Vy; + end; + if Mol[i].Y < R then + begin + Mol[i].Y := R; + Mol[i].Vy := -Mol[i].Vy; + end; + + Screen.Canvas.Pen.Color := clBlue; { Рисуем молекулу на новой } + Screen.Canvas.Ellipse(Mol[i].X - R, Mol[i].Y - R, { позиции } + Mol[i].X + R, Mol[i].Y + R); + end; +end; + +procedure TForm1.StartStopBtnClick(Sender: TObject); + var angle: Real; { Угол, задающий изначальное направление полета } + i: Integer; { Счетчик цикла } + CurV: Integer; { Выбранная случайная скорость молекулы } +begin + if IsRunning then + begin + IsRunning := false; + StartStopBtn.Caption := 'Пуск'; + Exit; + end; + + StartStopBtn.Caption := 'Стоп'; + IsRunning := true; + + Randomize; + + for i := 1 to N do { Цикл по всем молекулам } + begin + Mol[i].X := RandomRange(R, Screen.Width - R); { Выбор начального } + Mol[i].Y := RandomRange(R, Screen.Height - R); { положения молекулы } + angle := Random(360) * Pi / 180; { и ее направления } + + CurV := RandomRange(1, V); { Выбор скорости молекулы (1 - V) } + Mol[i].Vx := Round(CurV * Sin(angle)); { Получение составляющих } + Mol[i].Vy := Round(CurV * Cos(angle)); { скорости молекулы } + end; + + while IsRunning do { Основной цикл } + begin + Screen.Invalidate; + Sleep(10); { Пауза на 10 миллисекунд } + Application.ProcessMessages; + if Application.Terminated then Break; + end; + +end; + +end. + -- cgit v1.2.3