Курсовая работа: Объектно-ориентированная разработка программ
end;
end;
procedure
TForm2.Edit3KeyPress(Sender: TObject; var Key: char);
begin
case key of
'0'..'9': ; //можно
вводить только цифры
',': ; //или дробный
числа
#8 : ; // клавиша Back
Space
#13 : Button1.SetFocus ;
// клавиша Enter, и переход на кнопку вычисления
// Остальные символы -
запрещены !
else key := Chr(0); //
запрещаем отображать символ
end;
end;
initialization
{$I
tugol.lrs}
end.
unit parray;
{$mode
objfpc}{$H+}
interface
uses
Classes,
SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
Grids,
StdCtrls;
type
{ TForm3 }
TForm3 =
class(TForm)
Button1:
TButton;
Label1:
TLabel;
Label2:
TLabel;
Label3:
TLabel;
Label4:
TLabel;
Label5:
TLabel;
Label6:
TLabel;
Label7:
TLabel;
Label8:
TLabel;
StringGrid1:
TStringGrid;
StringGrid2:
TStringGrid;
procedure
Button1Click(Sender: TObject);
procedure
FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure
FormShow(Sender: TObject);
private
{ private
declarations }
public
{ public
declarations }
end;
const
size = 6;
var
Form3:
TForm3;
a:array
[1..size] of integer;
b:array
[1..size] of integer;
max_a,max_b,buf:integer;
i:integer;
implementation
uses tmain;
{ TForm3 }
procedure
TForm3.FormShow(Sender: TObject);
begin
with
StringGrid1 do
for i:=1 to
size do
begin
Cells[i-1,0]:='';
Cells[i-1,1]:='';
end;
with
StringGrid2 do
for i:=1 to
size do
begin
Cells[i-1,0]:='';
Cells[i-1,1]:='';
end;
for i := 1 to
size do
begin
a[i] := 1 + Random(99); //
заполняем массив случайными числами
b[i] := 1 + Random(99); //
заполняем массив случайными числами
end;
Label7.Visible:=False;
Label8.Visible:=False;
end;
procedure TForm3.Button1Click(Sender:
TObject);
begin
with
StringGrid1 do
for i:=1 to
size do
begin
Cells[i-1,0]:=IntToStr(a[i]);
Cells[i-1,1]:=IntToStr(b[i]);
end;
max_a :=1;
max_b :=1;
for i:=2 to
size do
begin
if a[i] >
a[max_a] then max_a := i;
if b[i] >
b[max_b] then max_b := i;
end;
Label7.Visible:=True;
Label7.Caption:='Максимальный элемент
массива А :'+IntToStr(a[max_a])
+#13+'Номер элемента в массиве А :'+
IntToStr(max_a)
+#13+'Максимальный
элемент массива В :'+IntToStr(b[max_b])
+#13+'Номер элемента в
массиве В :'+ IntToStr(max_b);
buf:= a[max_a];
a[max_a]:=
b[max_b];
b[max_b]:=
buf;
with
StringGrid2 do
for i:=1 to
size do
begin
Cells[i-1,0]:=IntToStr(a[i]);
Cells[i-1,1]:=IntToStr(b[i]);
end;
max_a :=1;
max_b :=1;
for i:=2 to
size do
begin
if a[i] >
a[max_a] then max_a := i;
if b[i] >
b[max_b] then max_b := i;
end;
Label8.Visible:=True;
Label8.Caption:='Максимальный элемент
массива А :'+IntToStr(a[max_a])
+#13+'Номер элемента в массиве А :'+
IntToStr(max_a)
+#13+'Максимальный
элемент массива В :'+IntToStr(b[max_b])
+#13+'Номер элемента в
массиве В :'+ IntToStr(max_b);
end;
procedure
TForm3.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
Form1.Show;
end;
initialization
{$I
parray.lrs}
end.
unit
colorshape;
{$mode
objfpc}{$H+}
interface
uses
Classes,
SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls,
ExtCtrls;
type
{ TForm4 }
TForm4 =
class(TForm)
Button1:
TButton;
Button2:
TButton;
ColorDialog1:
TColorDialog;
Label1:
TLabel;
Panel1:
TPanel;
Shape1:
TShape;
procedure
Button1Click(Sender: TObject);
procedure
Button2Click(Sender: TObject);
procedure
FormClose(Sender: TObject; var CloseAction: TCloseAction);
private
{ private declarations
}
public
{ public
declarations }
end;
var
Form4:
TForm4;
implementation
uses tmain;
{ TForm4 }
procedure
TForm4.Button1Click(Sender: TObject);
begin
if
ColorDialog1.Execute then // вызываем окно диолого выборы цвета
Shape1.Brush.Color:=ColorDialog1.Color;
// меняем цвет фигуры
end;
procedure
TForm4.Button2Click(Sender: TObject);
begin
if
ColorDialog1.Execute then // вызываем окно диолого выборы цвета
Form4.Color:=
ColorDialog1.Color; // меняем цвет формы
end;
procedure
TForm4.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
Form1.Show;
end;
initialization
{$I
colorshape.lrs}
end.
Приложение В
Результаты работы
программ:
1.
Работа программы tmain.
2. Работа программы Tugol
3. Работа программы parray
4. Работа программы colorshape.
ВЫВОДЫ
Данная курсовая работа была выполнена в полном соответствии
поставленному заданию и отлажена в среде Лазарус. В ходе выполнения курсовой
работы была разработана программа на модальных окнах.
В ходе выполнения курсового проекта были проведены - анализ
технического задания и постановка задачи проектирования.
Были выделены функции, которыми должна обладать
разрабатываемая программа.
Был разработан алгоритм программы, предназначенной для
выполнения сформированных функций.
Согласно разработанному алгоритму была составлена и отлажена
программа алгоритмическом языке программирования Delphi. В ходе разработки программы проводилось ее
тестирование и отладка на тестовых наборах.
Результаты работы оформлены в виде пояснительной записки.
В ходе разработки программы были закреплены навыки работы:
- командами ввода-вывода как на экран, так и в текстовые
файлы,
- использования процедур,
- команды обработки массивов,
- команды для реализации циклов с заданным числом повторений;
В результате выполнения данной курсовой работы, мы убедились в широких возможностях
языка программирования Delphi, закрепили практические навыки программирования в cреде Лазарус.
Список Использованной
Литературы:
1.
Е.А. Жоголев. Введение в технологию программирования (конспект лекций).
- М.: "ДИАЛОГ-МГУ", 1994.
2.
М. Зелковец, А. Шоу, Дж. Гэннон. Принципы разработки программного
обеспечения. - М.: Мир, 1982. - С. 11.
3.
К. Зиглер. Методы проектирования программных систем. - М.: Мир, 1985. -
С. 15-23.
4.
Дж. Фокс. Программное обеспечение и его разработка. - М.: Мир, 1985. -
С. 53-67, 125-130.
5.
И. Ю. Баженова Delphi 7 самоучитель программиста
Москва 2003.
|
