delphi текстовая - Помощь студентам

werus · 07.04.2010, 15:58

дана строка ограниченная точкой и состоящая из латинских букв, в которой слова разделены одним или несколькими пробелами,напечатать те строки которые отличны от последнего слова и удовлетворяют следующему свойству: каждая буква входит в слово не менее двух раз

Google2010 · 07.04.2010, 16:01

готов помочь!
icq 553-566-179
недорого!

RUSt88 · 07.04.2010, 16:18

сделаю в лучшем виде

Grag · 07.04.2010, 16:42

Не проблема, обращайтесь!

С моим резюме и портфолио можно ознакомиться в соответствующих разделах на моем сайте:
http://igor-bachin.narod.ru
или вот по этим ссылкам:
http://www.autsorser.ru/index.php?action=rsm&user=59
http://www.autsorser.ru/index.php?action=prtfl&user=59

Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

Stilet · 07.04.2010, 16:46

Цитата:

werus

Здесь пример разбиения строки на слова в массив:
http://www.programmersforum.ru/showt...369#post398369

Тебе просто остается дописать

Код:

if AnsiLowerCase(a[Low(a)])=AnsiLowerCase(a[High(a)]) then слово совпадает с последним

И создать проверку на удвоенность букв

07.04.2010, 15:58	#1
werus Пользователь Регистрация: 17.04.2009 Сообщений: 38	delphi текстовая дана строка ограниченная точкой и состоящая из латинских букв, в которой слова разделены одним или несколькими пробелами,напечатать те строки которые отличны от последнего слова и удовлетворяют следующему свойству: каждая буква входит в слово не менее двух раз

07.04.2010, 16:18	#3
RUSt88 Участник клуба Регистрация: 29.12.2009 Сообщений: 1,166	сделаю в лучшем виде прогер C\C++\C#\Delphi ася: [семь 3]-[97]-[1 шесть]

07.04.2010, 16:42	#4
Grag А может и не... Участник клуба Регистрация: 27.03.2010 Сообщений: 1,269	Не проблема, обращайтесь! С моим резюме и портфолио можно ознакомиться в соответствующих разделах на моем сайте: http://igor-bachin.narod.ru или вот по этим ссылкам: http://www.autsorser.ru/index.php?action=rsm&user=59 http://www.autsorser.ru/index.php?action=prtfl&user=59 Контакты: e-mail: skiper@rol.ru icq: 585281783 Skype: delmas61 Перемешивай дело с бездельем и не сойдешь с ума...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Текстовая строка.QBasic	SaintEnger	Помощь студентам	5	28.05.2009 16:57
Текстовая игра	AlekDruzh	Паскаль, Turbo Pascal, PascalABC.NET	3	07.05.2009 14:00
Текстовая формула (не могу додуматься)	WIC	Microsoft Office Excel	1	26.02.2009 12:35
Текстовая Змейка	mutabor	Софт	6	28.01.2009 10:43
Компонент TStringGrid - текстовая таблица	allmaestro	Помощь студентам	1	11.10.2008 17:01

07.04.2010, 16:01	#2
Google2010 Форумчанин Регистрация: 16.02.2010 Сообщений: 316	готов помочь! icq 553-566-179 недорого!