Часть II. Delphi

Конструкция try..finally также предназначена для обработки исключительных ситуаций. В защищенную секцию try заносится потенциально опасный код. А в секцию завершения finally заносятся операторы, которые выполняются в любом случае.

Практика

Задача

Составить программу контроля веса, определяющую по росту и весу пользователя программы, нужно ли ему похудеть или поправиться и на сколько килограммов.

Компоненты

Часть II. Delphi

Переменные

Проект формы

unit wtest;

…………………….

var

Form1: TForm1; implementation {$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject); var

wes:real; {вес}

Часть II. Delphi

Rost:real; {рост}

opt:real; {оптимальный вес}

d:real; {отклонение от оптимального веса} begin

wes:=StrToFloat(Edit1.text);

Rost:=StrToFloat(Edit2.Text); opt:=Rost-100;

if wes=opt then

Label3.caption:='Ваш вес оптимален!' else

if wes<opt then

begin d:=opt-wes;

Label3.caption:='Вам надо поправиться, на'+ FloatTostr(d)+ 'кг.'; end

else

begin d:=wes-opt;

Label3.caption:='Надо немного похудеть, на '+ FloatTostr(d)+ 'кг.'; end;

end;

end.

Результаты работы программы

Задача

Некоторая страховая компания страхует индивидуальные дома по следующей схеме.

Стоимость страховки = Площадь * Цена_кв.м * Коэф.этажности *

Часть II. Delphi

*Износ/100*Проценты*Курс_у.е.. Цена_кв.м:

Кирпичный коттедж — 200 у.е.

Дом из оцилиндрованного бревна — 250 у.е. Дом из бруса — 150 у.е.

Дом из бревен — 100 у.е. Каркасно-щитовой — 50 у.е. Коэффициетн этажности:

1 этаж — 1

2 этажа — 1,2

3 этаж — 1,3

Коэффициент износа: Возраст дома: Более 15 лет — 0,4

От 11 до15 лет — 0,6

от 6 до 10лет — 0,8 до 5 лет — 1

Проценты страхового сбора:

Количество лет страхования в данной страховой компании Превышает 7 лет — 1 процент От 3 до 7 лет — 2 процента

До 3 лет (включительно) — 3 процента

Компоненты

Часть II. Delphi

Переменные

программе

Часть II. Delphi

Проект формы

Текст модуля

unit Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,

Часть II. Delphi

Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

TForm1 = class(TForm) Label1: TLabel; ListBox1: TListBox;

ComboBox1: TComboBox; Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Button1: TButton; Button2: TButton;

procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject);

private

{Private declarations } public

{Public declarations } end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

Var S:Real; //общая площадь дома