Мова програмування Object Pascal. Лінійні алгоритми. Створення проектів.

Створити проект для переведення значення відстані, заданої в кілометрах, у милі

Теоретичні відомості. Миля́ (від лат. mille passuum – тисяча подвійних кроків римських солдат) – одиниця вимірювання відстані, введена в Стародавньому Римі. Розрізняють сухопутну і морську милю:

1 сухопутна миля = 1,609 км;

1 морська миля = 1,852 км.

• Україні до метричної системи були відомі коротка (турецька) миля = 1,67 км та довга (козацька) = 8,35 км.

Розробіть інтерфейс проекту згідно з малюнком.      

Створіть процедуру обробки події OnClick для кнопки «Перерахунок». Запишіть код процедури:

var km, mil, mmil, tmil, kmil: real;

begin

km:=StrToFloat(Edit1.Text);

mil:=km/1.609;

Label6.Caption:=FloatToStr(mil);

end; 

Додайте до програмного коду оператори для обчислення значень змінних mmil (морська миля), tmil (коротка миля), kmil (козацька миля).

Виконайте проект і збережіть його в папці «Мile»

Створити проект для переведення значення відстані, заданої в кілометрах, у милі

Теоретичні відомості. Миля́ (від лат. mille passuum – тисяча подвійних кроків римських солдат) – одиниця вимірювання відстані, введена в Стародавньому Римі. Розрізняють сухопутну і морську милю:

1 сухопутна миля = 1,609 км;

1 морська миля = 1,852 км.

• Україні до метричної системи були відомі коротка (турецька) миля = 1,67 км та довга (козацька) = 8,35 км.

Розробіть інтерфейс проекту згідно з малюнком.      

Створіть процедуру обробки події OnClick для кнопки «Перерахунок». Запишіть код процедури:

var km, mil, mmil, tmil, kmil: real;

begin

km:=StrToFloat(Edit1.Text);

mil:=km/1.609;

Label6.Caption:=FloatToStr(mil);

end; 

Додайте до програмного коду оператори для обчислення значень змінних mmil (морська миля), tmil (коротка миля), kmil (козацька миля).

Виконайте проект і збережіть його в папці «Мile»