Приклад розробки проекту з числовими даними

Створити додаток «Швидкість бігуна», в якому за визначеними значеннями дистанції (м) та часу пробігу (хвил, сек) відбувається розрахунок і виведення швидкості (км/год) з точністю до сотих.

Структура форми приведена в вікні дерева об’єктів. Розмір та розташування можна визначити вручну шляхом буксування компонентів на формі. Мітки та поля введення на вкладці Stanrard, кнопка з підписом BitBtn1 на вкладці Additional. Щоб за натисканням кнопки закріпити подію – початок розрахунків та виведення результату, зробити подвійний клік по кнопці на формі, в вікні коду з’явиться шаблок процедури обробки події. Між словами begin…end; вставити приведений в вікні кода текст :

Вікно кода проекту:

Прокоментуємо команди процедури:

w Var dist, thw, tsec, vc, vd: integer; v:real; s:string; - розділ оголошень змінних, що використані в процедурі. Змінні dist, thw, tsec, vc, vd – цілого типу (integer), змінна v – дійсного типу (real), s – текстова змінна (string).

w Dist:=StrToInt(edit1.text); - значення тексту введеного користувачем в вікно введення edit1 визначає значення властивості об’єкту text. Але це значення з вікна введення сприймається як дані текстового типу. Розрахунки ж можна виконувати тільки з числовими даними. Перетворення текстових даних в числові цілого типу виконує процедура StrToInt. Перетворена інформація присвоєна змінній Dist.

w Thw:= StrToInt(edit2.text); Tsec:= StrToInt(edit3.text); - значення з вікон edit2 і edit3 зберігаються як значення змінних Thw і Tsec.

w V:=dist/(thw*60+tsec)/1000*60*60; - розраховане по формулі значення зберігається як значення змінної v.

w S:=IntToStr(trunc(v)+’,’+IntToStr(trunc(v)*100)); - перетворення результату дійсного типу на дані текстового типу.

w Label6.Caption:= ’Швидкість-’+s+’км/год’; - отриманий результат – текст – визначає нове значення властивості Caption компонента Label6. Тобто за цією командою сформований текст з’явиться в вікні програми на місті компонента Label6.