Помощь - Поиск - Пользователи - Календарь
Полная версия: Массив из String
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Гость_Alex
Помогите решить задачу sad.gif
Программа должна содержать стандартные процедуры и функции обработки строк.
Дана последовательность, содержащая от 2 до 50 слов; в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела; за последним словом - точка. Напечатать те слова последовательности, которые отличны от последнего слова удовлетворяют следующему свойству: буквы слова упорядочены по алфавиту.
-=Micle=-
Нужно напечатать к примеру 2-й символ

Код

program name;
var    a: array [1..10,1..10] of string;

begin
a[1]:='abcdefgh';
write(a[1][2]);

end.


Почему не работает
Altair
Я бы сделал так:
1. разбил бы строку на слова.
2. поместил слова в стек (в массив проще)
3. Проверял бы слова на совпадение с последним, и если не совпадает, то если упор. по алфавиту, выводил бы
volvo
-=Micle=-
Если массив из строк одномерный, тогда так:

var a: array [1..10] of string;
begin
a[1]:='abcdefgh';
write(a[1][2]);
end.

Terminator
Спасибо :P
Altair
Я вообще не понимаю зачем там матрица используется...
Altair
2 темы объедененны, так как созданны одним пользователем, и имеют одинаковую тему.
Флогримм
Цитата
1. разбил бы строку на слова.
2. поместил слова в стек (в массив проще)
3. Проверял бы слова на совпадение с последним, и если не совпадает, то если упор. по алфавиту, выводил бы

Гость_Alex, посмотри в ФАКе по строкам, по-моему, там есть функция которая в массив заганяет все слова из строки(этементом массивая является переменная string)... а дальше дело техники
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.