Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
І. Вивести на екран всі символи текстового рядка, які є латинськими літерами.
Розв’язування
Визначимо потрібні об’єкти:
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;
Дата публикования: 2015-04-06; Прочитано: 586 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!