on EConvertError do // ошибка преобразования

begin

ShowMessage('Ошибка!');

form1.Edit3.SetFocus; // курсор в поле ввода

end;

end;

end;

procedure TForm1.Button4Click(Sender: TObject);

var

p: real; // км в час

l: real; // узлы в час

begin

form1.otvet4.Caption:='';

try // возможна ошибка, если в поле

// Edit4 будет не число

p:=StrToFloat(Edit4.Text);

l:=p/1.609;

otvet4.caption:=Edit4.text+' км/ч =' +

FloatToStrF(l,ffGeneral,4,2)+' мили/ч';

except

on EConvertError do // ошибка преобразования

begin

ShowMessage('Ошибка!');

form1.Edit4.SetFocus; // курсор в поле ввода

end;

end;

end;

end.

Тестирование программы

Для тестирования я пересчитал MS Excel значения заданные по условию, сравнил результаты своих вычислений с данными, которые выдает программа, и оказалось все верно.

Сопровождение

Работа в созданной мною программе не требует каких либо специфических навыков от пользователя. Достаточно запустить исполняемый файл Project1.exe. На экране монитора появится окно программы представленное на рисунке.№1. По нажатию на кнопку «Найти 1-й член последовательности» появится результат.

Заключение

В заключение хочется отметить о важности проделанной работы. За период решения задачи курсового проекта я научился работе со стандартными функциями языка программирования Pascal, работе с циклами, условиями, выводом информации в среде программирования Borland Delphi и построению блок-схемы алгоритма работы программы.

Список использованной литературы

1. Кэнту М. «Delphi7: Для профессионалов» :- Санкт-Питербург:2004

2. А.Я.Архангельский. «100 компонентов общего назначения Delphi»-М.: 2001

3. Курс лекций по предмету «Основы алгоритмизации и программирования»

4. Курс лекций по предмету «Технология разработки программных продуктов»

5. В.Озеров «Советы по Delphi»