Курсовая работа: Создание программы на языке Delphi

Алгоритм программы

Рисунок А.1 – Алгоритм программы

ПРИЛОЖЕНИЕ Б

Листинг программы

1.unit Unit1;

2.

3.interface

4.

5.uses

6.Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

7.Dialogs, StdCtrls;

8.

9.type

10. TForm1 = class(TForm)

11. Edit1: TEdit;

12. Label1: TLabel;

13. Button1: TButton;

14. RadioButton1: TRadioButton;

15. RadioButton2: TRadioButton;

16. RadioButton3: TRadioButton;

17. RadioButton4: TRadioButton;

18. procedure FormCreate(Sender: TObject);

19. procedure Button1Click(Sender: TObject);

20.

21. { Private declarations }

22. public

23. { Public declarations }

24. end;