«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

 

”пражнение є1 дл€ обработки строк

”пражнение 1. —оздайте приложение, предлагающее пользователю ввести строку, определ€ющее количество символов в ней и вывод€щее результат, согласу€ окончание слова Ђсимволовї с числом символов, например, Ђ¬ тексте 1 символї, Ђ¬ тексте 32 символаї, Ђ¬ тексте 47 символовї.

—оздайте форму и разместите на ней компоненты: Editl, Labell, Label2, Buttonl. «адайте значени€ свойств Labell.Caption Ц Ђ¬ведите текстї, Label2.Caption Ц Ђ¬ текстеї, Buttonl.Caption Ц Ђ¬ычислитьї. ”далите текст Editl из соответствующего компонента. ¬ыровн€йте компоненты на форме.

ƒл€ вычислени€ количества символов во введенной строке и вывода результатов создайте процедуру обработчика событи€ щелчка мышью на кнопке Buttonl. ¬ыберите в окне »нспектора объектов объект Buttonl, затем на странице —обытий произведите двойной щелчок мышью на пустом поле списка в событии OnClick. ѕосле этого в окне –едактора кода будет сгенерирована заготовка процедуры обработчика событи€ procedure TForml.ButtonlClick (Sender: TObject);.

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

var
N : integer; {последн€€ цифра}
S : string; {измен€емое слово "символ"}

ƒл€ ознакомлени€ со справкой Object Pascal о процедурах и функци€х обработки строк введите в окне –едактора кода слово Length и нажмите F1. ¬ списке Ќайденные разделы выберите тему Length function и нажмите кнопку ѕоказать. ¬ окне справки, прочитав информацию о применении функции Length, щелкните мышью по ссылке Example дл€ просмотра примера. ѕри помощи кнопки Ќазад в панели инструментов окна Delphi Help вернитесь в предыдущее окно. ƒл€ просмотра справочной информации о других процедурах и функци€х обработки строк щелкните по ссылке See also (—мотри также). ¬ыбира€ в списке Ќайденные разделы нужную процедуру или функцию, щелкайте мышью на кнопке ѕоказать дл€ просмотра справки. ѕосле изучени€ справочной информации закройте окно справки. ¬ведите в окне –едактора кода текст тела процедуры обработки текста:

begin
N:=Length(Editl.Text): {определить число символов}
Label2.Caption: = '¬ тексте ';
if N>20 then N:=N mod 10; {выделить последнюю цифру}
case N of {в зависимости от последней цифры}
1 : S;=' символ'; {измен€ть окончание слова}
2..4 : S:-' символа'; 0.5..20 : S:-' символов';
end;
Label 2.Caption:=Label2.Caption+IntToStr(Length(Editl.Text))+S; {вывести результат}
end;
 
—охраните файлы проекта и программного модул€, откомпилируйте и запустите программу на выполнение. ѕроверьте работу приложени€, задава€ текст с разным количеством символов и провер€€ правильность вывода результатов работы.
 

”пражнение 2. —оздайте приложение, предлагающее пользователю ввести строку текста, а затем замен€ющее символы в тексте и подсчитывающее количество замененных символов. ¬ариант замены символов должен определ€тьс€ по положению соответствующего флажка CheckBox. —оздайте форму, дл€ свойства Caption задайте значение Ђѕодсчет и замена символовї. Ќа форме разместите компоненты: Editl, Edit2, Edit3, CheckBoxl, CheckBox2, CheckBox3, Labell, Label2, Label3, Buttonl. «адайте значени€ свойств Labell.Caption Ц Ђ»сходный текст на русском €зыкеї, Label2.Caption Ц Ђ»змененный текстї, Label3.Caption Ц Ђ„исло заменї, CheckBoxl.Caption Ц Ђѕодсчитать число заменї, CheckBox2.Caption Ц Ђ«аменить "а" на "б"ї, —песк¬ох«. Caption Ц Ђ«аменить пробелы на тиреї, Buttonl.Caption Ц Ђ¬ыполнитьї. ”далите текст Editl, Edit2, Edit3 из соответствующих компонентов. ¬ыровн€йте компоненты на форме.

«амену символов в тексте и подсчет количества замененных символов опишите в процедуре обработчика событи€ щелчка мышью на кнопке Buttonl. ƒл€ создани€ процедуры обработчика событи€ выберите в окне »нспектора объектов объект Buttonl, затем на странице —обыти€ произведите двойной щелчок на пустом поле списка в событии OnClick. ѕосле этого в окне –едактора кода в заготовку процедуры обработчика событи€ procedure TForml.ButtonlClick (Sender: TObject); введите следующее описание переменных:

var
var S : string; {строка текста}
N : byte; {количество замен символов}

— учетом вышесказанного тело процедуры может быть записано следующим образом:

N:=0; {обнулить число букв а}
Edit3.Text: = ";
Edit2.Text: = ";
S:=Editl.Text; {присвоить S значение текстовой строки}
if CheckBox2.Checked then {если включен флажок CheckBox2}
while PosCa', S) > 0 do {если в строке найдена буква а}
begin
N:=N+1; {увеличить счетчик замен на 1}
S[Pos('a'. S)] := 'б'; {заменить букву а буквой 6}
end;
if CheckBox3.Checked then
while PosC ', S) > 0 do {если в строке найден пробел}
begin
N:=N+1; {увеличить счетчик замен на 1}
S[PosC ', S)] := '-'; {заменить пробел символом -}
End;
if CheckBoxl.Checked then Edit3.Text:=IntToStr(N); {вывод числа замен символов}
Edit2.Text:=S; {вывод измененного текста}
end;
—охраните файлы проекта и программного модул€, откомпилируйте и запустите программу на выполнение. ѕроверьте работу приложени€, задава€ различный текст на русском €зыке с разным количеством букв Ђаї и пробелов. ѕроверьте правильность вывода результатов работы и закройте окно приложени€.
<< 1, {SITELINK-S229}2{/SITELINK} >>

”знать как сэкономить в кризис моно на сайте ekonom-it.ru

Ќазначение функциональных клавиш “ипизированные файлы Ќетипизированные файлы «адани€ на строковый тип данных Ѕиблиотечный стандартный модуль Graph ”пражнение по созданию и обработке линейного массива ”пражнение на линейную сортировку массива ”пражнение дл€ представлени€ двумерных массивов с помощью компонента StringGrid ”пражнение по вводу и обработки элементов массива с использованием StringGrid ”пражнени€ по обработке файлов (упр 1.) 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом