ЛАБ. Лабораторная работа №4. Лабораторная работа 4

• Название: Лабораторная работа 4
• Дата: 04.10.2022
• Размер: 24.07 Kb.
• Имя файла: Лабораторная работа №4.docx
• Тип: Лабораторная работа; #712509

Лабораторная работа №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. Проверьте работу приложения, задавая текст с разным количеством символов и проверяя правильность вывода результатов работы.