Автор работы: Пользователь скрыл имя, 02 Апреля 2010 в 11:37, Не определен
В данной курсовой работе был показан метод разработки программного продукта реализующего поиск всех чисел палиндромов в указанном интервале, которые при возведении в квадрат дают палиндромы. Палиндромы – это числа, которые одинаковы в прямой и обратной записи с применением компьютера. Для разработки программы была использована среда разработки Delphi.
Курсовая работа состоит из двух глав: первая глава состоит из … страниц, в ней описывается способ определения оптимального метода разработки программного продукта, метод разработки программного продукта. Вторая глава состоит из … страниц в ней описан процесс разработки программного продукта.
begin
if savedialog1.execute then memo1.Lines.SaveToFile
(savedialog1.filename)
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Form2.ShowModal;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
About.AboutBox.ShowModal;
end;
end.
Программный код Unit2:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Edit1: TEdit;
Продолжение программного кода Unit2:
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
function isPalindrom(num: uint64): boolean;
var
_on, nn, r: uint64;
begin
_on := num;
nn := 0;
while (num <> 0) do
begin
r := num mod 10;
num := num div 10;
nn := nn * 10 + r;
end;
result := (_on = nn);
end;
Продолжение программного кода Unit2:
procedure TForm2.Button1Click(Sender: TObject);
var
p: uint64;
begin
p:=StrToInt(Edit1.Text);
if isPalindrom(p)
then Label1.Caption:='Число палиндром'
else Label1.Caption:='Число
не палиндром';
if IsPalindrom(p*p)
then Label2.Caption:='Квадрат числа палиндром'
else Label2.Caption:='Квадрат
числа не палиндром';
end;
end.
Программный код AboutBox:
unit About;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls;
type
TAboutBox = class(TForm)
Panel1: TPanel;
ProgramIcon: TImage;
ProductName: TLabel;
Version: TLabel;
Copyright: TLabel;
OKButton: TButton;
Продолжение программного кода AboutBox:
Memo1: TMemo;
private
{ Private declarations }
public
{ Public declarations }
end;
var
AboutBox: TAboutBox;
implementation
{$R *.dfm}
end.
Общий программный код программного продукта Project1.dpr:
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
ABOUT in 'ABOUT.pas' {AboutBox};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(
Application.Run;
end.
Приложение Г
Таблица описания
объекта Form1:
| Объект | Свойства | События | Методы |
| Form 1 | Caption: ‘Palindrome 666’
ClientHeight: 439
ClientWidth: 216 Height: 483 Left: 286 Top: 220 Width: 222 |
Menu: MainMenu1 | |
| Label1 | Caption: ‘От’
Height: 13 Left: 8 Top: 39 Width: 15 |
||
| Label2 | Caption: ‘До’
Height: 13 Left: 121 Top: 39 Width: 17 |
||
| Memo1 | Height 326, Left 8, Top 80, Width 201 | ||
| Button1 | Caption: ‘Найти’
Height: 25 Left: 8 Top: 8 Width: 201 |
OnClick: ButtonClick 1 | |
| Edit1 | Height: 21
Left: 8 Text: 10 Top: 53 Width: 89 |
||
| Edit2 | Height :21
Left: 120 Text: 50000 Top: 53 Width: 89 |
||
| ProgressBar | Height: 17
Left: 8 Step: 5 TabOrder: 4 Top: 412 Width: 201 |
||
| XPManifest1 | |||
| SaveDialog1 | DefaultExt: .txt
Filter: ‘Текстовый файл’ | *.txt |
||
| MainMenu1 | |||
| N1 | Caption: ‘Файл’ |
Продолжение
таблицы объекта Unit1:
| N2 | Caption: ‘Сохранить’ | OnClick: N2Click | |||||
| N3 | Caption: ‘Проверка’ | OnClick: N3Click | |||||
| N4 | Caption: ‘?’ |
Таблица описания
Form2:
| Form2 | Caption: ‘Проверка’
ClientHeight: 76 ClientWidth: 221 Height: 103 Left: 0 Top: 0 Width: 229 |
||
| Button1 | Caption: Проверить
Height: 21 Left: 135 TabOrder: 1 Top: 8 Width: 75 |
OnClick: Button1Click | |
| Label1 | Caption: ‘’
Height: 13 Left: 8 Top: 35 Width: 3 |
||
| Label2 | Caption: ‘’
Height: 13 Left: 8 Top: 54 Width: 3 |
Таблица описания
объекта AboutBox:
| AboutBox | Caption: ‘Палиндром
666’
ClientHeight: 267 ClientWidth: 297 Height: 292 Left: 200 Top: 108 Width: 303 |
||
| OKButton | Caption: ‘ОК’
Height: 25 Left: 111 TabOrder: 1 Top: 239 Width: 75 |
Продолжение
таблицы описания объекта AboutBox:
| Panel1 | Caption: ‘ ’
Height: 225 Left: 8 TabOrder: 0 Top: 8 Width: 281 |
||
| Copyright | Caption: ‘Copyright
2010’
Height: 13 Left: 0 Top: 144 Width: 281 |
||
| Memo1 | Height: 52
Left: 0 TabOrder: 0 Top: 173 Width: 281 |
||
| ProductName | Caption: ‘Палиндром
2010’
Height:13 Left: 0 Top: 80 Width: 281 |
||
| ProgramIcon | Height:74
Left: 0 Top: 0 Width: 281 |
||
| Version | Caption: ‘Версия
666’
Height:13 Left: 112 Top: 112 Width: 58 |
Приложение Д
Информация о работе Разработка программного продукта для работы с числами палиндромами