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

UptoLike

ВУЗ: 

ОГУ | Оренбург

Составители: 

Рубрика: 

14
Приложение Д
(рекомендуемое)
Исходный текст программы к заданию №3
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Grids, ImgList, ExtCtrls, StdCtrls, Math, TeEngine,
Series, TeeProcs, Chart;
type
mas=array[1..50] of real;
mass=array[1..50,1..50] of real;
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Label1: TLabel;
Image1: TImage;
Image2: TImage;
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
Edit1: TEdit;
Button1: TButton;
StringGrid3: TStringGrid;
Button2: TButton;
Label2: TLabel;
TabSheet3: TTabSheet;
LENq: TLabeledEdit;
LEN: TLabeledEdit;
LEW: TLabeledEdit;
LEU: TLabeledEdit;
TabSheet4: TTabSheet;
Chart1: TChart;
Series1: TLineSeries;
Label3: TLabel;
procedure SimQ(n:integer; A:mass; var b:mas);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
const 
                                  Приложение Д
                                   (рекомендуемое)

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

      unit Unit1;
      interface
      uses
        Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
        Dialogs, ComCtrls, Grids, ImgList, ExtCtrls, StdCtrls, Math, TeEngine,
        Series, TeeProcs, Chart;
      type
      mas=array[1..50] of real;
      mass=array[1..50,1..50] of real;
        TForm1 = class(TForm)
         PageControl1: TPageControl;
         TabSheet1: TTabSheet;
         TabSheet2: TTabSheet;
         Label1: TLabel;
         Image1: TImage;
         Image2: TImage;
         StringGrid1: TStringGrid;
         StringGrid2: TStringGrid;
         Edit1: TEdit;
         Button1: TButton;
         StringGrid3: TStringGrid;
         Button2: TButton;
         Label2: TLabel;
         TabSheet3: TTabSheet;
         LENq: TLabeledEdit;
         LEN: TLabeledEdit;
         LEW: TLabeledEdit;
         LEU: TLabeledEdit;
         TabSheet4: TTabSheet;
         Chart1: TChart;
         Series1: TLineSeries;
         Label3: TLabel;
         procedure SimQ(n:integer; A:mass; var b:mas);
         procedure FormCreate(Sender: TObject);
         procedure Button1Click(Sender: TObject);
         procedure Button2Click(Sender: TObject);
         procedure PageControl1Changing(Sender: TObject;
         var AllowChange: Boolean);
        private
         { Private declarations }
        public
         { Public declarations }
        end;
       const



                                                                                     14

Страницы