Приклади розв’язування задач. І. Вивести на екран всі символи текстового рядка, які є латинськими літерами

І. Вивести на екран всі символи текстового рядка, які є латинськими літерами.

Розв’язування

Визначимо потрібні об’єкти:

TSetChar – тип множини символів; S – змінна типу String: текстовий рядок;

SetLat – змінна типу TSetChar: множина всіх символів латинських літер; i – змінна типу Byte: індекс символа рядка.

Алгоритм	Програма
1. утворити множину латинських символів SetLat; 2. ввести рядок S; 3. Length(S) разів виконати дії (i змінюється від 1 до Length(S)): якщо i -й символ рядка S є символом латинської літери (належить множині SetLat) то вивести i -й символ на екран.

II. Утворити текстовий рядок із 10 різних, випадково одержаних, символів латинського алфавіту. Упорядкувати символи текстового рядка за алфавітом.

Розв’язування.

Визначимо потрібні об’єкти:

TSetChar – тип множини символів;

S – змінна типу String: текстовий рядок;

SetLat – змінна типу TSetChar: множина всіх символів латинських літер;

SetLatRow – змінна типу TSetChar: множина символів латинських літер текстового рядка S;

С – змінна типу Char: елемент множини TSetChar;

K – змінна типу Byte: кількість символів текстового рядка.

Алгоритм 1. утворити множину латинських символів SetLat; 2. задати порожню множину SetLatRow, K = 0; 3. поки K 10, повторити дії: випадковим чином одержати символ C; якщо символ C є символом латинського алфавіту (C SetLatRow) і символа C немає у текстовому рядку S (C SetLatRow), то збільшити K на 1; доповнити множину SetLatRow символом C; 4. утворити рядок S із впорядкованих в алфавітному порядку символів множини SetLatRow; 5. вивести на екран результат S.

Програма

III. Утворити найбільше число, яке складається тільки з таких цифр і в такій кількості кожна з них, як і задане натуральне число.

Розв’язування.

Визначимо потрібні об’єкти:

TSetDigit – ідентифікатор типу множини символів;

Number, Result – змінні типу LongInt для збереження заданого натурального числа і результату відповідно;

NumberS, ResultS – змінні типу String для збереження значень Number, Result в символьному поданні;

Digit – змінна символьного типу для збереження символів цифр; i – змінна типу Byte: індекс символа рядка;

SetNumber – змінна типу TSetDigit: множина символів цифр заданого натурального числа Number;

Алгоритм

Програма

1. ввести Number; 2. надати змінній NumberS значення змінної Number в символьному поданні; 3. задати порожню множину SetNumber і порожній текстовий рядок ResultS; 4. утворити з символів текстового рядка NumberS множину SetNumber; 5. 10 разів виконати дії (Digit змінюється від '9' до '0'): якщо символ Digit належить множині SetNumber, то поки Digit зустрічається в NumberS, повторити дії: доповнити до ResultS символ Digit справа; вилучити символ Digit з позиції першого входження до текстового рядка ResultS; 6. надати змінній Result значення змінної ResultS в числовому поданні; 7. вивести на екран результат Result.