Страница 1 из 1

[PASCAL] Задачи по теме: Строковый тип данных

Добавлено: 03 июн 2008, 22:50
inferno90
Помогите пожалуйста с решением задачь :confused: Мне хотя бы некоторые основные ,что бы понять как сделать другие похожие задачи
1. Дана последовательность строк. Напечатать все слова, отличные от слова «HELLO».
2. Дана последовательность строк. Напечатать все слова в алфавитном порядке в одну строку.
3. Найти самую большую цифру в записи заданного числа.
4. Найти сумму всех чисел строки.
5. Ввести строку и подсчитать количество слов.
6. Ввести строку, удалить пробелы в начале строки и напечатать все слова разным цветом.
7. Найти номер первой и последней буквы «К» в строке и символы между ними замените звездочками.
8. Определить на какую букву начинается больше всего слов в тексте.
9. В данном тексте замените слово «HELLO» на «BYE».
10.Проверить, сколько слов в предложении является палиндромами.
11 .Поверить баланс скобок (),{} в строке
12.Вывести все слова, начинающиеся с данной буквы.
13. Подсчитать, сколько раз заданное слово встречается в данной строке.
14.Вывести все слова с заданным количеством - символов.
15.Вывести все слова, у которых первая и последняя буквы одинаковые.
16.Ввести 5 строк и упорядочить строки по убыванию длин строк.
17.Текст зашифрован по следующему правилу: после первой буквы Вставляется буква А, после второй - буква В, третья--, удваивается, четвертая остается без изменения и т.д. Зашифровать и дешифровать введенный текст.

Re: [PASCAL] Задачи по теме: Строковый тип данных

Добавлено: 04 июн 2008, 10:45
Denys
Задачи простие. Посмотри функции над строкоми

Re: [PASCAL] Задачи по теме: Строковый тип данных

Добавлено: 04 июн 2008, 11:14
Хыиуду
Ошибся темой два раза. Такие задачи надо писать в разделе "Решите мне задачку"

>>1. Дана последовательность строк. Напечатать все слова, отличные от слова «HELLO».
Раздел "Алгоритмы", тема "Разбиение строки на слова"
>>2. Дана последовательность строк. Напечатать все слова в алфавитном порядке в одну строку.
Там же, плюс тема "Упорядочение массива"
>> 3. Найти самую большую цифру в записи заданного числа.
Перевести число в строку, дальше там же, тема "Нахождение максимума"
>> 4. Найти сумму всех чисел строки.
Разбиение строки на слова, перевод строки в число - ф-я val
>> 5. Ввести строку и подсчитать количество слов.
Разбиение строки на слова
>> 6. Ввести строку, удалить пробелы в начале строки и напечатать все слова разным цветом.
В цикле удалять 1 символ, пока он является пробел. Разбиение строки на слова. Разным цветом - модуль crt, функция textcolor
>> 7. Найти номер первой и последней буквы «К» в строке и символы между ними замените звездочками.
Первая - функцией pos, последняя - нисходящим циклом for i:=length(s) downto 1.
>> 8. Определить на какую букву начинается больше всего слов в тексте.
Разбиение, создать массив целых чисел с индексами-буквами.
>> 9. В данном тексте замените слово «HELLO» на «BYE».
Посмотрите в разделе "Решите мне задачку"
>> 10.Проверить, сколько слов в предложении является палиндромами.
Разбиение, тема про палиндромы была неделю назад
>> 11 .Поверить баланс скобок (),{} в строке
Пройти по строке, вести два счетчика: один увеличивается при нахождении (, уменьшается при нахождении ), другой то же, но для {}
>> 12.Вывести все слова, начинающиеся с данной буквы.
Разбиение.
>> 13. Подсчитать, сколько раз заданное слово встречается в данной строке.
Разбиение
>> 14.Вывести все слова с заданным количеством - символов.
Разбиение + функция length
>> 15.Вывести все слова, у которых первая и последняя буквы одинаковые.
Разбиение + s[1]=s[length(s)]
>> 16.Ввести 5 строк и упорядочить строки по убыванию длин строк.
Упорядочение массива по функции
>> 17.Текст зашифрован по следующему правилу: после первой буквы Вставляется буква А, после второй - буква В, третья--, удваивается, четвертая остается без изменения и т.д. Зашифровать и дешифровать введенный текст.
Закономерность непонятна. Что подразумевается под "и т.д.". Далее циклически применять те же правила?

Re: [PASCAL] Задачи по теме: Строковый тип данных

Добавлено: 04 июн 2008, 23:23
inferno90
спасибо ,буду пытаться сделать =)