Алгоритм и программа
На первом этапе
создания программы программист должен определить последовательность действий,
которые необходимо выполнить, чтобы решить поставленную задачу, т. е.
разработать алгоритм. Алгоритм — это точное предписание, определяющее процесс
перехода от исходных данных к результату.
Алгоритм
решения задачи может быть представлен в виде словесного описания или графически
— в виде блок-схемы. При изображении алгоритма в виде блок-схемы используются
специальные символы (рис. 1.1).
Рис. 1.1.
Основные символы, используемые для представления алгоритма в виде
блок-схемы
Представление
алгоритма в виде блок-схемы позволяет программисту уяснить последовательность
действий, которые должны быть выполнены для решения задачи, убедиться в
правильности понимания поставленной задачи.
При
программировании в Delphi алгоритм решения задачи представляет собой
совокупность алгоритмов процедур обработки событий.
В качестве
примера на рис. 1.2 приведена совокупность алгоритмов программы Стоимость
покупки, а на рис. 1.3 — ее диалоговое окно. После разработки диалогового
окна и алгоритмов обработки событий можно приступить к написанию программы. Ее
текст приведен в листинге 1.1.
Листинг
1.1. Программа Стоимость покупки
unit pokupka_1;
interface
uses
Windows, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 =
class(TForra)
Edit1:
TEdit;
Edit2:
TEdit;
Label1:
TLabel;
Label2:
TLabel;
Button1:
TButton;
Label3:
TLabel;
procedure
ButtonlClick(Sender: TObject);
procedure Edit2KeyPress(Sender: TObject;
var Key:
Char);
procedure EditlKeyPress(Sender: TObject;
var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Forml:
TForm1;
implementation
{$R *.dfm}
// подпрограмма
procedure Summa;
var
cena: real; // цена
kol: integer; //
количество
s: real; // сумма
mes: string[255]; // сообщение
begin
cena :=
StrToFloat(Form1.Edit1.Text);
kol :=
StrToInt(Forml.Edit2.Text);
s := cena *
kol;
if s > 500
then
begin
s := s *
0.9;
mes := 'Предоставляется скидка 10%' + #13;
end;
mes := mes+ 'Стоимость
покупки: '
+ FloatToStrF(s,ffFixed,4,2) +' руб.';
Forml.Label3.Caption := mes;
end;
// щелчок на кнопке
Стоимость
procedure
TForml.ButtonlClick(Sender: TObject);
begin
Summa; // вычислить сумму покупки
end;
// нажатие клавиши в поле
Количество
procedure
TForml.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case Key
of
'0' .. '9',#8: ; // цифры и клавиша <Backspace>
#13: Summa; // вычислить стоимость покупки
else Key := Chr(O); // символ не отображать
end;
end;
// нажатие клавиши в поле
Цена
procedure
TForm1.EditlKeyPress(Sender: TObject; var Key: Char);
begin
case Key
of
'0' .. '9', #8 : ; //
цифры и клавиша <Backspace>
#13: Form1.Edit2.SetFocus;
// клавиша <Enter>
'.' ,'.'
:
begin
if Key =
'.'
then Key:=', if
Pos(',',Edit1.Text) <> 0
then Key:= Chr(0);
end;
else // все
остальные символы запрещены
Key := Chr(0);
end;
end;
end.
Рис. 1.2. Алгоритм
программы вычисления стоимости покупки — совокупность алгоритмов обработки
событий на компонентах формы
Рис. 1.3. Окно (форма) программы Стоимость покупки