Лабораторный практикум

жүктеу/скачать 2,64 Mb.

бет	16/27
Дата	07.10.2022
өлшемі	2,64 Mb.
	#152136
түрі	Лабораторная работа

1 ... 12 13 14 15 16 17 18 19 ... 27

Байланысты:
Delphi задачи

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

Если флажок CheckBox1 установлен, то свойство CheckBox1.Checked приобретает значение True.

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

N:=0; {обнулить число букв а}
Edit3.Text:=' ';
Edit2.Text:=' ';
S:=Edit1.Text; {присвоить S значение текстовой строки}
if CheckBox2.Checked then {если включен флажок CheckBox2}
while Pos('a', S) > 0 do {если в строке найдена буква а}
begin
N:=N+1; {увеличить счетчик замен на 1}
S[Pos('a', S)]:='б'; {заменить букву а буквой б}
end;
if CheckBox3.Checked then
while Pos(' ', S) > 0 do {если в строке найден пробел}
begin
N:=N+1; {увеличить счетчик замен на 1}
S[Pos(' ', S)]:='-'; {заменить пробел символом -}
end;
if CheckBox1.Checked then Edit3.Text:=IntToStr(N); {вывод числа замен символов}
Edit2.Text:=S; {вывод измененного текста}
end;

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

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

9. Проверьте правильность вывода результатов работы и закройте окно приложения.

Лабораторная работа №6
Создайте приложение, которое предлагает пользователю задать размер линейного размера, заполняет этот массив случайными целыми числами, выводит список элементов массива, а затем по выбору пользователя определяет минимальный и максимальный элементы массива, сумму всех элементов и количество положительных элементов.

Окно приложения создания и обработки линейного массива

жүктеу/скачать 2,64 Mb.

Достарыңызбен бөлісу:

1 ... 12 13 14 15 16 17 18 19 ... 27