Лабораторная работа № 9.

Работа с множественными типами данных.

Цель задания:

Получение навыков в задании переменных множественного типа и выполнении простейших операций над ними.

Знакомство с задачами, в которых целесообразно использовать переменные множественных типов.

Постановка задачи:

1. Ознакомиться с конечным и упорядоченным множеством символов.

2. Составить программу для одного из вариантов.

Содержание отчета:

1. Постановка задачи.

2. Текст программы.

3. Выводы.

Образец выполнения работы.

Лабораторная работа № 9, вариант № 3.

Работа с множественными типами данных.

Постановка задачи:

Ознакомиться с конечным и упорядоченным множеством символов.

Составить программу для одного из вариантов.

Методические указания:

Программа должна правильно работать для произвольного набора символов.

Вариант задания:

Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности:

19. знаки ‘%’ ,’!’ ,’?’ ,’$’, ’#’ и цифры от ‘1’ до ‘5’.

Текст программы:

Uses crt;

const

Length = 255;

var

m1,m2 : array [1..Length] of Char;

i,a : Integer;

Begin

ClrScr;

Randomize;

For i:=1 to Length do

m1[i]:=Chr(Random(255));

a:=1;

For i:=1 to Length do

Begin

Case m1[i] of

'%': Begin m2[a] := m1[i] Inc(a); End;

'!': Begin m2[a] := m1[i] Inc(a); End;

'?': Begin m2[a] := m1[i] Inc(a); End;

'$': Begin m2[a] := m1[i] Inc(a); End;

'#': Begin m2[a] := m1[i] Inc(a); End;

'1': Begin m2[a] := m1[i] Inc(a); End;

'2': Begin m2[a] := m1[i] Inc(a); End;

'3': Begin m2[a] := m1[i] Inc(a); End;

'4': Begin m2[a] := m1[i] Inc(a); End;

end;

End;

For i:=1 to Length do

Write(m2[i],' ');

ReadLn;

End.

Результаты работы:

% 2 $ ! 5 5 5 5

Методические указания:

Программа должна правильно работать для произвольного набора символов.

Варианты заданий.

Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности:

1. цифры от ‘0’ до ‘9’.

2. буквы от ‘A’ до ‘F’ и от ‘X’ до ‘Z’.

3. буквы от ‘G’ до ‘N’ и цифры от ‘0’ до ‘9’.

4. знаки препинания.

5. буквы от ‘A’ до ‘Z’ и цифры от ‘0’ до ‘5’.

6. буквы от ‘T’ до ‘X’ и знаки препинания.

7. цифры от ‘5’ до ‘9’ и знаки арифметических операций.

8. знаки арифметических операций и знаки препинания.

9. цифры и знаки арифметических операций.

10. знаки препинания и буквы от ‘E’ до ‘N’.

11. знаки операций отношений.

12. цифры от ‘3’ до ‘9’, буквы от ‘A’ до ‘F’ и знаки препинания.

13. знаки арифметических операций и операций отношения.

14. буквы от ‘F’ до ‘M’ и знаки арифметических операций.

15. знаки препинания и операций отношения.

16. цифры от ‘6’ до ‘9’ и знаки операций отношения.

17. знаки арифметических операций и цифры от ‘2’ до ‘8’.

18. знаки ‘%’ ,’!’ ,’?’ ,’$’, ’#’, ’@’, ’&’ ,’*’.

19. цифры от ‘3’ до ‘7’ и знаки препинания.

20. знаки операций отношения и буквы от ‘A’ до ‘F’.

21. цифры от ‘4’ до ‘9’ , буквы от ‘G’ до ‘M’ и знаки ‘%’ ,’!’ ,’?’.

22. цифры от ‘4’ до ‘9’ и операции отношения.

23. цифры от ‘0’ до ‘8’ и знаки ‘&’,’#’,’@’.

24. знаки арифметических операций, цифры ‘2’и ‘5’, буквы ‘C’ до ‘H’.