IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Строки - вывод слов, уветворяих условиям, Строковый тип данных
RunDown
сообщение 18.02.2006 12:27
Сообщение #1


Гость






Здраствуйте. Помогите решить задачу:
Дана последовательность слов. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству:
1) в слове нет повторяющихся букв
2) буквы слова упорядочены по алфовиту
3) слово совпадает с начальным отрезком латинского алфавита (a, ab, abc, abcd, ...)
4) слово симметрично
Вот написал только начало (ввод слов и проверка их длины):

uses crt;
const
n=5;
type
posledovatelnost = array [1..n] of string;
dlina = array [1..4] of integer;
var
bukvi: set of char;
s: posledovatelnost;
l: dlina;
i: integer;
begin
clrscr;
for i:=1 to n do
begin
writeln ('BBeguTe ',i,' C/loBo');
readln (s[i]);
l[i]:=length(s[i]);
end;
end.


Пользуйтесь тегами !

Сообщение отредактировано: klem4 - 18.02.2006 12:35
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
RunDown
сообщение 19.02.2006 13:48
Сообщение #2


Гость






Что-то не могу сообразить sad.gif
 К началу страницы 
+ Ответить 
мисс_граффити
сообщение 19.02.2006 13:53
Сообщение #3


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Цитата(RunDown @ 19.02.2006 13:48) *

Что-то не могу сообразить sad.gif

что именно?


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 0:35
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"