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

 

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

 

 

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

 

begin

N:=Length(Edit1.Text);     {определить число символов}

Label2.Caption: = 'В тексте ';

if N>20 then N:=N mod 10;  {выделить последнюю цифру}

case N of                  {в зависимости от последней цифры}

      1 : S:=' символ';         {изменять окончание слова}

   2..4 : S:=' символа';

0,5..20 : S:=' символов';

end;                               

Label2.Caption:=Label2.Caption+

IntToStr(Length(Edit1.Text))+ S; {вывести результат}

end;

 

5.       Сохраните файлы проекта и программного модуля, откомпилируйте и запустите программу на выполнение.

6.       Проверьте работу приложения, задавая текст с разным количеством символов и проверяя правильность вывода результатов работы.

 

Дополнительное задание 1.

 

Измените цветовое решение формы.