Завдання:
Введена стрічка у поле Edit. Написати програму, яка окремо виводить, які літери та цифри введені. І підраховує кількість цифр.
1. Завантажте систему візуального програмування Delphi.
2 .Задайте заголовок, розмір та колір форми.
3 .Вставити у форму компонент Edit. Витерти значення Edit1.
4 .Вставте у форму текстові поля Label1-Label6 як показано на рис.1 і надайте їм відповідні властивості відповідно до рис. 2.
5. Вставити у форму кнопку.
Рис.1 Рис.2
Запрограмуймо кнопку «Обчислити»:
procedureTForm1.Button1Click(Sender: TObject);
varst:string;
w,c,k,b:char;
i,h:integer;
lett:set of 'A'..'z'; //оголошується множина від A до z
numb:set of '0'..'9'; //оголошується множина від 0 до 9
Begin
Label2.Caption:=''; //очищується поле Label2
Label4.Caption:=''; //очищується поле Label4
lett:=[]; //онулюється множина lett
numb:=[]; //онулюється множина numb
st:=edit1.Text;
fori:=1toLength(st)do//виконувати цикл до кінця стрічки
Begin
ifst[i]in['0'..'9']then//якщо символ стрічки належить до множини
Begin
c:=st[i]; //символ записується у зміну с
numb:=numb+[c] //змна с додається до множини numb
End
Else
w:=st[i]; //у іншому випадку всі символи записуються у зміну w
lett:=lett+[w];
end;
//вивести у Lable4 символи множини numb
fork:='0'to'9'do
ifkinnumbthen
label4.Caption:=Label4.Caption+k;
//вивести у Lable6 символи множини lett
forb:='A'to'z'do
ifbinlettthen
label2.Caption:=Label2.Caption+b;
//підрахунок кількості цифр у стрічці
h:=0;
for i:=1 to Length(st) do
if st[i] in ['0'..'9'] then h:=h+1;
label6.Caption:=FloatToStr(h);
end;
Рис.3
7.Запустіть програму на виконання.
8.На рис.3 приведено виконання програми.
9.Створіть exe-файл. Виконайте команду головного меню Project à Build All (Сконструювати Все).
10. Продемонструйте створену форму викладачу.
Вимоги до оформлення звіту :
Звіт повинен містити:
1.Тему та мету лабораторної роботи.
2. Завдання на лабораторну роботу.
3.Текст програми.
4.Відповідь на контрольні запитання.
Контрольні запитання:
1. Що таке множини .
2. Як анулюються множини .
3. Яким чином очищаються множини .
4. Як підрахувати кількість цифр у стрічці .
5. Як вивести символи множини lett?.
6.Як вивести символи множини numb?.
7. Як підрахувати кількість цифр у стрічці?
Лабораторна робота№ 8.
Тема: Програмування алгоритмів з використанням одновимірних масивів.
Мета:оволодіти практичними навиками роботи з масивами та особливостями організації циклічних процесів з заданим числом повторень.
