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

Turbo Pascal. Списки, строки

Добавлено: 19 май 2008, 19:23
slavon-nv
Здравствуйте, прошу помоч с задачками. Последнее время голова работать категорически отказывается. :(

Задания:

#1
Программа. Дана не пустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово.

#2
type текст = file of char;
Описать процеруду:
next (t)заменяющую в тексте t каждую цифру на следующую по величине цифру ('9' заменять на '0').

#3
Описать процедуру, которая вставляет в конец списка L новый элемент E.

#4
Описать рекурсивную функцию или процедуру, которая печатает в обратном порядке элементы списка L (ТЭ = char);


----------------------------------------------------

По поиску нашел подобную решеную задачку - ссылка, но переделать её у меня чет не получилось :(

Заранее благодарен!

Re: Turbo Pascal. Списки, строки

Добавлено: 20 май 2008, 11:24
Хыиуду
1. Раздел "Алгоритмы", тема "Разбиение строки на слова". Создать множество из всех гласных букв. Пройтись по всем словам: если в каком-то слове нет какой-то из этих букв, исключить букву из множества. Оставшиеся напечатать. Такая задача уже была.
2. Считать текст из файла в массив. Потом в цикле пройтись по всем строкам. В каждой строке
for i:=1 to length(s) do
if s in ['0'..'8'] then s:=chr(ord(s)+1)
else if s='9' then s:='0';
Списки динамические или статические?

Re: Turbo Pascal. Списки, строки

Добавлено: 20 май 2008, 15:01
slavon-nv
Хыиуду писал(а):1. Раздел "Алгоритмы", тема "Разбиение строки на слова". Создать множество из всех гласных букв. Пройтись по всем словам: если в каком-то слове нет какой-то из этих букв, исключить букву из множества. Оставшиеся напечатать. Такая задача уже была.
2. Считать текст из файла в массив. Потом в цикле пройтись по всем строкам. В каждой строке
for i:=1 to length(s) do
if s in ['0'..'8'] then s:=chr(ord(s)+1)
else if s='9' then s:='0';
Списки динамические или статические?


Ок, спасибо большое за совет по алгоритму!
Обязательно попробую и отпишусь!

Re: Turbo Pascal. Списки, строки

Добавлено: 25 май 2008, 11:53
slavon-nv
Помогите с задачками 3 и 4 плз

Re: Turbo Pascal. Списки, строки

Добавлено: 10 июн 2010, 15:22
Leo_Gunner
здрасте :)
помогите пожалуйста решить...

3-задание: Работа со списками;

Текст вводится с клавиатуры в символьную переменную. Вывести список слов, имеющих приставку (несколько букв), задаваемую с терминала.
5. Выясните, какая из букв, первая или последняя, встречается во введённой строке чаще?

Re: Turbo Pascal. Списки, строки

Добавлено: 20 июн 2010, 16:13
CoderGirl
icq 625127032
e-mail: valeri.marquise.des.anges@gmail.com
valeria.glinskaya@mail.ru
Сделаю недорого!