Лабораторная работа №11. Задание: Создайте приложение, предлагающее пользователю ввести строку, определяющее количество символов в ней и выводящее результат, согласуя окончание слова «символов» с числом символов, например, «В тексте 1 символ», «В тексте 3

Лабораторная работа №11

Задание: Создайте приложение, предлагающее пользователю ввести строку, определяющее количество символов в ней и выводящее результат, согласуя окончание слова «символов» с числом символов, например, «В тексте 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.Видокна приложения, подсчитывающего число символов в тексте

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

var

N: integer; {последняя цифра}

S: string; {изменяемое слово «символ»}

Введите в окне Редактора кода текст тела процедуры обработки текста:

12 Следующая ⇒