Упражнения. factW := StrToInt(Edit1.text);

VAR

Else

Else

Begin

factW:= StrToInt(Edit1.text);

Rost:= StrToInt(Edit2.Text);

OptW:=Rost - 100;

Delta:= abs(factW - OptW);

if OptW = factW then Label3.caption:= 'Ваш вес оптимален'

if OptW > factW then Label3.caption:= 'Вам надо поправиться на '+IntToStr(Delta)+' кг.'

Label3.caption:= 'Вам надо похудеть на '+IntToStr(Delta)+' кг.'

end;

4. В предыдущем пункте мы договорились вводить округленные исходные данные. Но это не всегда приемлимо. Усовершенствуйте программу так, чтобы можно было бы вводить десятичные величины. Для этого в разделе Var назовите тип переменных не Integer, а Real.

factW, optW, Rost, Delta: real;

Кроме этого, преобразование действительных чисел в строковый будет выполняться с помощью функции: FloatToStr().

В целом процедура Button2Click будет выглядеть следующим образом:

procedure TForm1.Button1Click(Sender: TObject);

begin

factW:= StrToFloat(Edit1.text);

Rost:= StrToFloat(Edit2.Text);

OptW:=Rost - 100;

Delta:= factW - OptW;

if OptW = factW then Label3.caption:= 'Ваш вес оптимален'

else

if OptW > factW then Label3.caption:= 'Вам надо поправиться на '+FloatToStr(Delta) +' кг.'

else

Label3.caption:= 'Вам надо похудеть на ‘ + FloatToStr(Delta)+' кг.';

end;

1. Для форматирования и преобразования действительных чисел вместо функции FloatToStr() примените функцию Format(‘ %f ’,[пeременная]). Например, Format(‘%f ‘, [Delta]).

2. Теперь для форматирования и преобразования примените эту же функцию в таком виде Format(‘Строка %f’,[пeременная]). Например, Format(‘Вам надо похудеть %f[Delta]).

3. Сделайте к программе заголовок, замените кнопку Button1 на кнопку BitBtn1, введите кнопку “Close”.

Контрольні питання:

1. Надайте визначення фреймам.

2. Надайте загальну характеристику компонентів-діалогів.

3. Охарактеризуйте діалоги відкриття та збереження файлів.

4. Охарактеризуйте компоненти фрагментів діалогів – DriveComboBox, DirectoryListBox.

5. Охарактеризуйте компоненти фрагментів діалогів – FilterComboBox, FileListBox та DirectoryOutLine.

6. Опишіть діалог вибору шрифта та його компонент FontDialog.

7. Охарактеризуйте діалогу вибору кольору та його компонент ColorDialog.

8. Охарактеризуйте діалог друку та встановлення друкуючого пристрою та надайте характеристику роботи компонентам – PrintDialog та PrinterSetupDialog.

9. Опишіть процедуру роботи діалогу пошуку тексту та його компонент FindDialog.

10. Охарактеризуйте роботу компонента ReplaceDialog – діалогу заміни текста.

АУДИТОРНЕ ЗАНЯТТЯ

ЗМІСТОВИЙ МОДУЛЬ 6: ПРОГРАМУВАННЯ З ГРАФАМИ

ТЕМА 6.6: ОСНОВИ БАЗ ДАНИХ

Лекція №53 – Створення таблиць баз даних та форм прикладних застосувань

Дата добавления: 2014-12-25