Компьютерное моделирование. Тарасов В.Н - 119 стр.

                                  Приложение Г
                                   (рекомендуемое)

Исходный текст программы к заданию №2

     unit Dip1;
     interface
     uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, ComCtrls, Series,
      ImgList,Math;
     type
      TForm1 = class(TForm)
        PageControl1: TPageControl;
        TabSheet1: TTabSheet;
        Button1: TButton;
        GroupBox1: TGroupBox;
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        Edit1: TEdit;
        Edit2: TEdit;
        Edit3: TEdit;
        Edit4: TEdit;
        GroupBox2: TGroupBox;
        Label5: TLabel;
        LRo: TLabel;
        Label7: TLabel;
        LW: TLabel;
        Label6: TLabel;
        LNq: TLabel;
        Label8: TLabel;
        LNsr: TLabel;
        Label9: TLabel;
        TabSheet2: TTabSheet;
        Chart1: TChart;
        Series1: TLineSeries;
        ImageList1: TImageList;
        Label10: TLabel;
        Label11: TLabel;
        Label12: TLabel;
        Series2: TLineSeries;
        LPn: TEdit;
        procedure Button1Click(Sender: TObject);
        procedure PageControl1Changing(Sender: TObject;
         var AllowChange: Boolean);
        procedure FormActivate(Sender: TObject);
      private



                                                                                   9