Практическая работа № 5.. Задание 1. Самостоятельная работа.. Создайте приложение, предлагающее выбрать из списка страну и перевести фунты в килограммы. (ListBox ). procedure TForm1.Button1Click(Sender: TObject);. case ListBox1.ItemIndex of. funt:=StrTo

Стр 1 из 2Следующая ⇒

Практическая работа № 5.

Задание 1. Самостоятельная работа.

Создайте приложение, предлагающее выбрать из списка страну и перевести фунты в килограммы. (ListBox )

см ПР № 4.

procedure TForm1. Button1Click(Sender: TObject);

var

funt: real; {вес в фунтах}

kg: real; {вес в в килограммах}

k: real; {коэффициент пересчета}

begin

case ListBox1. ItemIndex of

0: k: =0. 4059; { Россия}

1: k: =0. 453592; {Англия}

2: k: =0. 56001; {Австрия}

3.. 5, 7: k: =0. 5; {Германия, Дания, Исландия, Нидерланды}

6: k: =0. 31762; {Италия}

end;

funt: =StrToFloat(Edit1. Text);

kg: =k*funt;

label4. caption: =Edit1. Text

+ ' фунт. - '

+ FloatToStrF(kg, ffFixed, 6, 3)

+ ' кг. ';

end;

Задание 2. ПРОРАБОТАТЬ

Создайте приложение, предлагающее пользователю ввести строку, определяющее количество символов в ней и выводящее результат, согласуя окончание слова «символов» с числом символов, например, «В тексте 1 символ», «В тексте 32 символа», «В тексте 47 символов».

Видокна приложения, подсчитывающего число символов в тексте

Алгоритм выполнения работы

1. Создайте форму и разместите на ней компоненты: Edit1, Label1, Label2, Button1, как показано на рис. 41.

2. Задайте значения свойств Label1. Caption — «Введите текст», Label2. Caption — «В тексте», Button1. Caption — «Вычислить».

3. Удалите текст Edit1 из соответствующего компонента. Выровняйте компоненты на форме.

4. Для вычисления количества символов во введенной строке и вывода результатов создайте процедуру обработчика события щелчка мышью на кнопке Button1. Выберите в окне Инспектора объектов объект Button1, затем на странице Событий произведите двойной щелчок мышью на пустом поле списка в событии OnClick. После этого в окне Редактора кода будет сгенерирована заготовка процедуры обработчика события procedure TForm1. Button1Click (Sender: TObject);.

Рис. 41. Видокна приложения, подсчитывающего число символов в тексте

Введите в текст процедуры, исправив обозначения компонент, следующее описание переменных:

12 Следующая ⇒