Основы алгоритмизации и программирования. Часть третья. Структурированные типы данных. Асламова В.С - 39 стр.

UptoLike

ВУЗ: 

АГТА | Ангарск

Составители: 

Рубрика: 

77
t:= t+′_′; p:= pos(′_′, t);
S:=′аеиоуыэюя′;
MG:= [′а′, ′е′, ′и′, ′о′, ′у′, ′ы′, ′э′, ′ю′, ′я′ ]; R:=MG;
while p<>0 do begin a:=copy(t,1,p-1); L:=lenght(a);
for i:= 1 to L do begin
b:= a[i];
if b in MG then R:= R-[b]; end;
delete (t,1,p); p:=pos(′_′,t); end;
if R<>[ ] then
writeln (′все гласные входят хотя бы в одно слово′)
else begin for i:= 1 to 9 do begin
b:= S[i]; if b in R then write (b:3);
end; end; end.
Рис.12. Блок-схема примера 21
t:= t+′_′
p
:=
p
os
(
′
′
,
t
)
Печать
b
начало
д
а
нет
д
а
нет
д
а
нет
Ввод
t
p
<>0
a:= copy (t, 1, p-1)
L:= length (a)
b:= a[i]
S:=′аеиоуыэюя′
MG:= [
′а′,′е′,′и′,′о′,′у′,′ы′,
′э′,′ю′,′я′ ]
R:
=
MG
R:= R-[b]
i:=1
L
b in MG
b:= S[i]
binR
нет
R<>[]
Все гласные
буквы входят
хотя бы в
од
н
о
сло
в
о
i:=1
,
9
д
а
коне
ц
delete (t,1,p)
p:=pos(′_′,t)
1
1
удаляем
гласную из
множества R
78
Задания к ЛОС №2
1.
Как заполнить множество значениями.
2. Как вывести элементы множества.
3. Какие операции над множествами не фигурируют на ЛОС №2.
4. Напишите результаты операций для следующих множеств:
A:=[ ′a′..′f′, ′x′..′z]
B:=[ c..k, u..y]
A*B=? A-B=? B-A=? A+B=?
5. Напишите программу получения генерации 6-ти неповторяющихся
случайных чисел для игры ′6 из 45′. 
         t:= t+′_′; p:= pos(′_′, t);                                                           Задания к ЛОС №2
         S:=′аеиоуыэюя′;
         MG:= [′а′, ′е′, ′и′, ′о′, ′у′, ′ы′, ′э′, ′ю′, ′я′ ]; R:=MG;                         1. Как заполнить множество значениями.
         while p<>0 do begin a:=copy(t,1,p-1); L:=lenght(a);
             for i:= 1 to L do begin
                                                                                             2. Как вывести элементы множества.
                b:= a[i];                                                                    3. Какие операции над множествами не фигурируют на ЛОС №2.
                if b in MG then R:= R-[b]; end;
           delete (t,1,p); p:=pos(′_′,t); end;                                                4. Напишите результаты операций для следующих множеств:
           if R<>[ ] then                                                              A:=[ ′a′..′f′, ′x′..′z]
           writeln (′все гласные входят хотя бы в одно слово′)                         B:=[ c..k, u..y]
           else begin for i:= 1 to 9 do begin
           b:= S[i]; if b in R then write (b:3);                                       A*B=? A-B=? B-A=? A+B=?
         end; end; end.                                                                      5. Напишите программу получения генерации 6-ти неповторяющихся
                                                                                       случайных чисел для игры ′6 из 45′.
               начало

               Ввод t                                                   Все гласные
                                                               да       буквы входят
                                                   R<>[]
                                                                        хотя бы в
          t:= t+′_′                                                     одно слово
          p:= pos(′ ′, t)                             нет
                                                   i:=1,9
    S:=′аеиоуыэюя′
    MG:= [′а′,′е′,′и′,′о′,′у′,′ы′,              b:= S[i]
    ′э′,′ю′,′я′ ]                                                          конец
    R:=MG
                                          нет
                               нет                 b in R
1             p<>0                                      да
                    да                             Печать
       a:= copy (t, 1, p-1)                          b
       L:= length (a)

               i:=1,L

               b:= a[i]                                      delete (t,1,p)
                                                              p:=pos(′_′,t)
нет
              b in MG
                                     удаляем                        1
                     да              гласную из
             R:= R-[b]               множества R

                                 Рис.12. Блок-схема примера 21

                                          77                                                                                 78

Страницы