Сопровождение
Работа в созданной мною программе не требует каких либо специфических навыков от пользователя. Достаточно запустить исполняемый файл Project1.exe. На экране монитора появится окно программы представленное на рисунке.№1. По нажатию на кнопку «Найти 1-й член последовательности» появится результат.
Заключение
В заключение хочется отметить о важности проделанной работы. За период решения задачи курсового проекта я научился работе со стандартными функциями языка программирования Pascal, работе с циклами, условиями, выводом информации в среде программирования Borland Delphi и построению блок-схемы алгоритма работы программы.
Список использованной литературы
1. Кэнту М. «Delphi7: Для профессионалов»:- Санкт-Питербург:2004
2. А.Я.Архангельский. «100 компонентов общего назначения Delphi»-М.: 2001
3. Курс лекций по предмету «Основы алгоритмизации и программирования»
4. Курс лекций по предмету «Технология разработки программных продуктов»
5. В.Озеров «Советы по Delphi»
Приложение
ЛИСТИНГ ПРОГРАММЫ
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,s,n:Real;
i:Word;
c:Integer;
begin
a:=(StrToFloat(Edit1.Text));
b:=(StrToFloat(Edit2.Text));
n:=1;
c:=-1;
i:=1;
repeat
i:=i+1;
n:=n+1/i;
c:=-c;
s:=c*n;
until (s<a) or (s>b);
Label3.Caption:=(FloatTostr(s));
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', ',',Chr(VK_BACK)]) then Key := #0;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', ',',Chr(VK_BACK)]) then Key := #0;
end;
end.