русс | укр

Мови програмуванняВідео уроки php mysqlПаскальСіАсемблерJavaMatlabPhpHtmlJavaScriptCSSC#DelphiТурбо Пролог

Компьютерные сетиСистемное программное обеспечениеИнформационные технологииПрограммирование


Linux Unix Алгоритмічні мови Архітектура мікроконтролерів Введення в розробку розподілених інформаційних систем Дискретна математика Інформаційне обслуговування користувачів Інформація та моделювання в управлінні виробництвом Комп'ютерна графіка Лекції


Хід роботи.


Дата додавання: 2014-11-27; переглядів: 897.


Завдання:

Введена стрічка у поле 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.

Тема: Програмування алгоритмів з використанням одновимірних масивів.

Мета:оволодіти практичними навиками роботи з масивами та особливостями організації циклічних процесів з заданим числом повторень.

 


<== попередня лекція | наступна лекція ==>
Приклад виконання лабораторної роботи. | Хід роботи.


Онлайн система числення Калькулятор онлайн звичайний Науковий калькулятор онлайн