2. Задание и рекомендации по его выполнению

1. Следуя §1.2 пособия [3], создайте оконное приложение, выполняющее сцепле­ние двух строк. Сохраните это приложение, учитывая, что каждое окон­ное приложение необходимо хранить в отдельной папке.

Обратите внимание, что с окном сохранения приходится работать дважды – для файла проекта и для файла формы. Файлу проекта среда Delphi автоматически присваивает имя Project1 (или Project2, Project3, …) и расши­рение .dpr. Файлу формы автоматически дается имя Unit1 (или Unit2, Unit3, …) и расширение .pas. Эти имена можно изменить, но делать это надо очень внимательно (чтобы не перепутать проект и форму и по другим причи­нам). Кроме файлов Project.dpr и Unit.pas, среда создает еще несколько фай­лов проекта и формы с разными расширениями. При переносе проекта при­ло­жения на другой компьютер или в другую папку, необходимо переносить только файла проекта Project.dpr и два файла для каждой формы: Unit.pas и Unit.dfm. Все остальные файлы при открытии проекта приложения будут соз­даны средой Delphi¹. Отметим, что файл Unit.dfm хранит графическое изображе­ние формы в тексто­вом виде; файл Project.exe является исполняе­мым файлом, кото­рый можно за­пускать независимо от среды Delphi.

Открывать проект приложения следует ко­мандой File/Open Project, и в окне открытия файла выбирать файл с расшире­нием .dpr.

2. Следуя §1.2 [3], измените приложение п. 1 так, чтобы оно скла­ды­вало два числа.

3. Руководствуясь §1.3 [3], добавьте в оконное приложение главное и контекст­ное (всплывающее) меню.

4. Модифицируйте оконное приложение, используя вместо процедуры val пре­образования строки в число функцию StrToFloat, а вместо процедуры str пре­образования числа в строку функцию FloatToStr². Как ими пользоваться, уз­найте из справочной системы Delphi. Для вызова справки по некоторому слову в программе, достаточно поставить внутрь этого слова курсор и на­жать кла­вишу F1.

5. Разработайте и отладьте оконное приложение для решения задачи [1] 1.3.4.N+1. Чем оно будет отличаться от приложения, складывающего два числа? Обратите внимание, что правила трассировки оконных и консольных приложений одинаковы.

6. Зафиксируйте результаты работы в отчете и покажите их препо­давателю.

ПриМер основного обработчика индивидуальной задачи

Условие задачи. А—начальная стоимость оборудования. В первый год экс­плуата­ции стоимость оборудования снижается на В руб., а в каждый следую­щий год снижение стоимости уменьшается на р % (относительно предыду­щего года). Определить, через сколько лет стоимость обо­рудования станет меньше А/2. Рассматривать срок не более N лет.

Н а рис. 4 приведена форма приложения. Обратите внимание, что каж­дое тек­стовое окно на форме нужно либо для ввода исходного данного, либо для вы­вода результата. Далее приведен текст обработчика события – нажатия кнопки «Вычисление».

procedure TForm1.Button1Click(Sender: TObject);

Var A,B,p:real; N,i:integer; {i-счетчик лет }

At,Bt:real; {текущие значения стоимости оборудования и ее снижения}

begin A:=StrToFloat(Edit1.Text);{эти операторы считывают c}

B:=StrToFloat(Edit2.Text);{формы исходные данные, это замена }

p:=StrToFloat(Edit3.Text); N:=StrToInt(Edit4.Text);{операторов ввода}

At:=A;Bt:=B;i:=1;{подготовка цикла}

while (At>=A/2) and (i<=N) do{цикл продолжается пока}

begin { снижение не достигнуто и срок не прошел}

At:=At-Bt; {ежегодно стоимость снижается на Bt}

Bt:=Bt-Bt*p/100; {ежегодно Bt уменьшается на р%}

i:=i+1 {увеличение счетчика лет}

end;

if At<A/2 then {анализ приоритетного условия выхода из цикла}

begin i:=i-1; Edit5.Text:=IntToStr(i){это аналог вывода}end else

Edit5.Text:='за '+IntToStr(N)+' лет снижения нет';{это аналог вывода}

end;