Зміст

Теоретична частина

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;

Характеристика роботи

Реферат

Кількість сторінок: 22

Безкоштовна робота

Закрити

Програмування для електронно-обчислювальної техніки і автоматизованих систем

Замовити дану роботу можна двома способами:

  • Подзвонити: (097) 844–69–22
  • Заповнити форму замовлення:
Не заповнені всі поля!
Обов'язкові поля до заповнення «ім'я» і одне з полів «телефон» або «email»

Щоб у Вас була можливість впевнитись в наявності обраної роботи, і частково ознайомитись з її змістом, ми можемо за бажанням відправити частини даної роботи безкоштовно. Всі роботи виконані в форматі Word згідно з усіма вимогами щодо оформлення даних робіт.