Програмування для електронно-обчислювальної техніки і автоматизованих систем
Зміст
Теоретична частина
1. Вступ
2. Вхідні дані
3. Вихідні дані
4. Суть технології розрахунку
Практична частина
1. Блок-схема програми
2. Текст програми
3. Аналіз отриманих результатів
4. Практичне використання програми
5. Висновки
6. Використана література
Практичначастина
1. Блок-схема
2. Текст програми
Модуль програми до форми №1
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, ExtCtrls, Buttons;
type
TForm1 = class(TForm)
Image1: TImage;
SpeedButton1: TSpeedButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
procedure SpeedButton1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4;
{$R *.dfm}
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Form2.Show;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Form1.close;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Form4.Show;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Form3.show;
end;
end.
Модуль програми до форми №2
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtDlgs, ExtCtrls, Buttons, TeEngine, Series,
TeeProcs, Chart;
type
TForm2 = class(TForm)
ListBox2: TListBox;
Memo1: TMemo;
Image1: TImage;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure ListBox2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1, Unit4;
{$R *.dfm}
procedure TForm2.ListBox2Click(Sender: TObject);
begin
memo1.lines.Clear;
case listbox2.ItemIndex of
0:memo1.lines.LoadFromFile('as\x1.txt');
1:memo1.lines.LoadFromFile('as\x2.txt');
2:memo1.lines.LoadFromFile('as\x3.txt');
end;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
form2.caption:='Îïåðàòîð Switch';
form2.Show;
end;
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
form2.Close;
end;
procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
form2.Close;
Form1.Close;
end;
procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
form2.Close;
end;
end.
Модуль програми до форми №3
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, Buttons, ExtCtrls;
type
TForm3 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
Form3.close;
end;
end.
Модуль програми до форми №4
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Buttons, StdCtrls;
type
TForm4 = class(TForm)
Memo1: TMemo;
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
{$R *.dfm}
procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
Form4.close;
end;