Вимоги до оформлення звіту :
Звіт повинен містити:
1. Тему та мету лабораторної роботи.
2. Завдання на лабораторну роботу.
3. Текст програми.
4. Відповідь на контрольні запитання.
Контрольні запитання:
1. Що таке компонент Memo?.
2. Що таке об’єкт типу MeinMenu,його властивості?.
3.Як запрограмувати команду “Протабулювати функцію”головного меню?.
4. Як запрограмувати команду “Очистити поле виведення”головного меню?.
5. Як запрограмувати команду “Закрити програму”?.
6. Як запрограмувати команду “Автор”?.
7. Як зберегти програму?.
Лабораторна робота №7.
Тема: Розробка алгоритмів і програм з використанням множин.
Мета: оволодіти практичними навиками роботи з множинами.
Хід роботи.
Завдання:
Введена стрічка у поле Edit. Написати програму, яка окремо виводить, які літери та цифри введені. І підраховує кількість цифр.
1. Завантажте систему візуального програмування Delphi.
2 .Задайте заголовок, розмір та колір форми.
3 .Вставити у форму компонент Edit. Витерти значення Edit1.
4 .Вставте у форму текстові поля Label1-Label6 як показано на рис.1 і надайте їм відповідні властивості відповідно до рис. 2.
5. Вставити у форму кнопку.
Рис.1 Рис.2
Запрограмуймо кнопку «Обчислити»:
procedure TForm1.Button1Click(Sender: TObject);
var st: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;
for i:=1 to Length(st) do //виконувати цикл до кінця стрічки
begin
if st[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
for k:='0' to '9' do
if k in numb then
label4.Caption:=Label4.Caption+k;
//вивести у Lable6 символи множини lett
for b:='A' to 'z' do
if b in lett then
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. Продемонструйте створену форму викладачу.