Презентация на тему Множественный тип данных: Решение задач

чисел от 2 до N (1 < N ≤

255) , будут выбраны все простые числа.

2 3 4 5 6 7 8 9 10 11 12 13 14 15
3 5 7 9 11 13 15
5 7 11 13
7 11 13
11 13
13

Пример работы алгоритма «Решето Эратосфена» для N=15

2 . . N; K, P : integer;
Begin

{ A –исходное множество, В – множество простых чисел}
A := [2 . . N]; B : = [ ]; P : = 2;
Repeat
{ Поиск минимального числа в множестве А }
While not [P in A] do P := P+1;
{ Включение найденного числа в множество В}
B : = B + P; K := P;
{ Исключение из А чисел, кратных Р }
While K<=N do
Begin A := A – [K]; K := K + P; End
Until A = [ ];
{Вывод результата, всех простых чисел множества В}
For P := 2 to N do If P in B then Writeln(P);
End.

соседними словами – запятая, за последним словом – точка.

Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово.

1. Ввод строки символов S. Например,
S = ‘карета,автобус,машина.’

Алгоритм

2. Выделить 1-е слово из строки S. Получим подстроку
Slovo = ‘карета‘.

3 .Получить из этой подстроки множество букв. Получим
MSL1 = [к, а, р, е, т,]

MGSL1 = [а,е]
Цикл «Пока не конец строки S».
6

. Удалить из строки S подстроку Slovo . Получим
S =‘автобус,машина.’

7. Выделить 1-е слово из строки S. Получим
Slovo =‘автобус’.

8. Получить из этой подстроки множество букв. Получим
MSL = [ а, в, т, о, б, у, с ].

Выделить из этого множества подмножество гласных букв. Получим
MGSL = [а, о, у ] .

Получим MS = [а]
11. Конец цикла.
12. Если MS

> [ ], то ПЕЧАТЬ множество MS, иначе ПЕЧАТЬ «НЕТ общих гласных букв».
Получим [ а ].

слово из строки S.
K := Pos( ‘ , ’

, S );
Slovo := Copy(S , 1 , K - 1) ;

Получить из строки множество букв.
MS : = [ ];
For i := 1 to Length(S) do
MS : =MS + [ S [ i ] ];

Вывод на печать подмножества букв русского алфавита:
S : = ‘ ‘;
For C : = ‘a’ to ‘я’ do
If C in MS Then S : = S + C;
Writeln (‘ Результат ‘, S);

MGSL = [а, о, у ] .
Выполним операцию пересечения

MS = MGSL1* MGSL. Получим MS = [а]
Конец цикла.
Если MS < > [ ], то ПЕЧАТЬ множество MS, иначе ПЕЧАТЬ «НЕТ общих гласных букв». Получим [ а ].

Выделить 1-е слово из строки S.
K := Pos( ‘ , ’ , S );
Slovo := Copy(S , 1 , K - 1) ;

Написать текст программы, используя следующие блоки:

Получить из строки множество букв.
MS : = [ ];
For i := 1 to Length(S) do
MS : =MS + [ S [ i ] ];

Вывод на печать подмножества букв русского алфавита:
S : = ‘ ‘;
For C : = ‘a’ to ‘я’ do
If C in MS Then S : = S + C;
Writeln (‘ Результат ‘, S);