. Лойцянський Л.Г. Механіка рідини і газу: Учеб. посібник для студентів вузів.- Другий вид., Перераб. і доп.- М .: Наука. Глав. ред. фіз.-мат. літ-ри., 1987. - 840 с.
. Повх І.Л. Технічна гідромеханіка: Учеб. посібник для студентів вузів.- М .: Машинобудування, 1976. - 502 с.
Додаток А
Алгоритм програми написаної мовою програмування Delphi для лекційної демонстрації «Вивчення механізму формування ударної хвилі»
unit Unit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, jpeg, ExtCtrls, StdCtrls, Math;=class (TForm): TImage ;: TImage ;: TPanel ;: TButton ;: TButton ;: TButton ;: TButton ;: TLabel ;: TLabel ;: TLabel; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1 ;, j, ds: integer ;: boolean;: real;
{$ R * .dfm} TForm1.Button1Click (Sender: TObject); CloseQuery then Close ;; TForm1.Button3Click (Sender: TObject);:=10;:=trunc (ClientHeight/2) ; .Image2.Top:=j - 10;(Form1.Canvas.Handle,0,0,Form1.ClientWidth,Form1.ClientHeight,);.Picture.LoadFromFile(laquo;blue_sky.jpgraquo;);.Visible:=true;.Left:=i+10;.Visible:=true;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Pen.Color:=clGreen;:=110;:=20;;TForm1.Button2Click(Sender: TObject) ;, r2, r3, r4, r5, r6, r7, r8, r9: integer;, x2, x3, ii:integer;:String;:real;:=true;:=200;:=160;:=130;:=200;:=180;:=160;:=200;:=160;:=140;.Label1.Visible:=true;.MoveTo(i,j);.LineTo(i+Image2.Width,j);.Enabled:=false;.Visible:=true;:=round(ClientWidth/8);:=round(ClientWidth/3);:=round(ClientWidth*8/13);:=round(ClientWidth/10);((ilt;=ClientWidth-Form1.Image2.Width- 40) and flag=true) do.Left:=Image2.Left + 1; .LineTo (i, j) ;. ProcessMessages; (ds) ;. Label2.Visible:=true; ((i gt; 0) and ( i lt; x2) and (dx lt; 330)) then:=dx + 0.5; (dx: 5: 2, s) ;. Label2.Caption:= V= + s + м/с raquo ;; ; (i gt; x2) then.Pen.Color:=clYellow; .Label1.Caption:= V іст=V raquo ;;. Label2.Caption:= V= + 330 + м/с raquo ;;; (i gt; x3) then.Pen.Color:=clRed; .Label1.Caption:= V истgt;Vraquo;;:=dx+0.2;(dx:5:2,s);.Label2.Caption:=laquo;V=raquo;+s+laquo;м/сraquo;;:=arcsin(330/dx);(teta:5:2,s);.Label3.Visible:=true;.Label3.Caption:=laquo;Teta=raquo;+s;;(i=x1) then Canvas.Arc (i-r1, j-r1, i + r1, j + r1,0,0,0,0); (i=x1 + 20) then Canvas.Arc (i-r2, j-r2, i + r2, j + r2,0,0,0,0); (i=x1 + 40) then Canvas.Arc (i-r3, j-r3, i + r3, j + r3,0,0,0 , 0); (i=x2 + 20) then Canvas.Arc (i-r4, j-r4, i + r4, j + r4,0, i * 2,0,0); (i=x2 + 40) then Canvas.Arc (i-r5, j-r5, i + r5, j + r5,0,0,0,0); (i=x2 + 60) then Canvas.Arc (i-r6, j-r6, i + r6, j + r6,0,0,0,0); (i=x3 + 40) then Canvas.Arc (i-r7, j-r7, i + r7, j + r7,0,2 * i , i, 0); (i=x3 + 100) then Canvas.Arc (i-r8, j-r8, i + r8, j + r8,0,0,0,0); (i=x3 + 140) then Canvas.Arc (i-r9, j-r9, i + r9, j + r9,0,0,0,0); (i); (i=ii) then:=ds - 2;:=ii + round (ClientWidth/10) ;;; (flag) then.Pen.Color:=clYellow; .MoveTo (x2 + r4 + 20,10) ;. LineTo (x2 + r4 + 20, ClientHeight - 10) ;. Pen. Color:=clRed; .MoveTo (i - 80, j) ;. LineTo (i - 400, j - 300) ;. MoveTo (i - 80, j) ;. LineTo (i - 400, j + 300) ;;.Enabled:=true ;; TForm1.Button4Click (Sender: TObject);:=false ;;.
