Лабораторный практикум
жүктеу/скачать 2,64 Mb.
|
Delphi задачи
- Бұл бет үшін навигация:
- N: integer ;
- := символ;
- Дополнительное задание 1. Измените цветовое решение формы. Лабораторная работа №5
- Алгоритм выполнения работы.
| Рис.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. Измените цветовое решение формы. Лабораторная работа №5 Создайте приложение, предлагающее пользователю ввести строку текста, а затем заменяющее символы в тексте и подсчитывающее количество замененных символов. Вид окна приложения, выполняющего замену символов в тексте Алгоритм выполнения работы. Вариант замены символов должен определяться по положению соответствующего флажка CheckBox, как показано на рис. 5.1. 1. Создайте форму, для свойства Caption задайте значение «Подсчет и замена символов». 2. На форме разместите компоненты: Edit1, Edit2, Edit3, CheckBox1, CheckBox2, СпескВохЗ, Label1, Label2, Label3, Button1. 3. Задайте значения свойств Label1.Caption — «Исходный текст на русском языке», Label2.Caption — «Измененный текст», Label3.Caption — «Число замен», CheckBox1.Caption — «Подсчитать число замен», CheckBox2.Caption — «Заменить "а" на "б"», CheckВохЗ. Caption — «Заменить пробелы на тире», Button1.Caption — «Выполнить». 4. Удалите текст Edit1, Edit2, Edit3 из соответствующих компонентов. 5. Выровняйте компоненты на форме, как показано на рис. 5.1. Рис. 5.1. Вид окна приложения, выполняющего замену символов в тексте 6. Замену символов в тексте и подсчет количества замененных символов опишите в процедуре обработчика события щелчка мышью на кнопке Button1. Для создания процедуры обработчика события выберите в окне Инспектора объектов объект Button1, затем на странице События произведите двойной щелчок на пустом поле списка в событии OnClick. После этого в окне Редактора кода в заготовку процедуры обработчика события procedure TForm1.Button1Click(Sender: TObject); введите следующее описание переменных: жүктеу/скачать 2,64 Mb. Достарыңызбен бөлісу:
|