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

Ответить
slavon-nv
Сообщения: 3
Зарегистрирован: 31 мар 2008, 19:44

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

Задания:

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

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

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

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


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

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

Заранее благодарен!
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

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';
Списки динамические или статические?
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
slavon-nv
Сообщения: 3
Зарегистрирован: 31 мар 2008, 19:44

Хыиуду писал(а):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';
Списки динамические или статические?


Ок, спасибо большое за совет по алгоритму!
Обязательно попробую и отпишусь!
slavon-nv
Сообщения: 3
Зарегистрирован: 31 мар 2008, 19:44

Помогите с задачками 3 и 4 плз
Leo_Gunner
Сообщения: 1
Зарегистрирован: 10 июн 2010, 15:09

здрасте :)
помогите пожалуйста решить...

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

Текст вводится с клавиатуры в символьную переменную. Вывести список слов, имеющих приставку (несколько букв), задаваемую с терминала.
5. Выясните, какая из букв, первая или последняя, встречается во введённой строке чаще?
CoderGirl
Сообщения: 18
Зарегистрирован: 20 июн 2010, 15:30

icq 625127032
e-mail: valeri.marquise.des.anges@gmail.com
valeria.glinskaya@mail.ru
Сделаю недорого!
Ответить