Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
AnastasiyaMalay
0 / 0 / 0
Регистрация: 16.03.2016
Сообщений: 4
1

Напечатать самое длинное (короткое) слово из заданного текста

02.05.2016, 08:02. Просмотров 279. Ответов 5
Метки нет (Все метки)

помогите написать программу в делфи
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.05.2016, 08:02
Ответы с готовыми решениями:

Напечатать самое длинное слово из текста.
Помогите пож-та решить...напечатать самое длинное слово из текста в delphi.....

Напечатать самое длинное слово из текста
1)Напечатать самое длинное слово из текста( между словами может быть несколько...

Определить самое короткое и самое длинное слово в строке введённой с клавиатуры
{ Определить самое короткое и самое длинное слово в строке введённой с...

Найти самое длинное и короткое слово в строке
найти самое длинное и короткое слово в строке. что в нете нету не чего толкового

Поменять местами самое короткое и длинное слово
смог найти эти слова но вот как поменять не знаю.. вот что сделал const ...

5
qwertehok
2301 / 2205 / 602
Регистрация: 29.08.2013
Сообщений: 14,727
02.05.2016, 10:57 2
используйте StringList
0
Puporev
Модератор
54710 / 42119 / 29083
Регистрация: 18.05.2008
Сообщений: 99,407
02.05.2016, 11:00 3
Слова в тексте как разделяются? Только пробелами, или и другими разделителями?
0
Hikari
Хитрая блондиночка $)
1451 / 963 / 399
Регистрация: 21.12.2015
Сообщений: 3,785
02.05.2016, 11:03 4
Напечатать самое длинное
Delphi
1
2
3
4
5
6
7
  with TStringList.Create do begin
    Sorted:=true;
    Duplicates:=dupIgnore;
    DelimitedText:='помогите написать программу в делфи';
    ShowMessage('Самое длинное='+Strings[Count-1]);
    Free;
  end;
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26146 / 17524 / 6949
Регистрация: 22.10.2011
Сообщений: 30,859
Записей в блоге: 6
02.05.2016, 11:06 5
Hikari, замени строку на
Delphi
1
DelimitedText:='помогите написать простую программу в делфи';
, и убедись, что решение неправильное. Sort упорядочивает по алфавиту, а не по длине строки.
0
Hikari
Хитрая блондиночка $)
1451 / 963 / 399
Регистрация: 21.12.2015
Сообщений: 3,785
02.05.2016, 12:32 6
Ух ты. Какой убедительный нашелся...
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
function Comparer(List: TStringList; a, b: Integer): Integer;
begin
  Result:=Length(List[a])-Length(List[b]);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  with TStringList.Create do begin
      Duplicates:=dupIgnore;
      DelimitedText:='помогите написать программу в делфи';
      CustomSort(@Comparer);
      ShowMessage('Самое длинное='+Strings[Count-1]);
      Free;
    end;
end;
Так убедительнее?
0
02.05.2016, 12:32
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.05.2016, 12:32

В заданном предложении найти самое короткое и самое длинное слова
В заданном предложении найти самое короткое и самое длинное слова. Напечатать...

Поменять местами самое короткое и самое длинное слова.
Дана строка символов. Группы символов, разделённые одним или несколькими...

Найти самое длинное общее слово для всех предложений текста
Помогите с решением задачи: Найти самое длинное общее слово для всех...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru