Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
Akmoldir
1

Вывести на экран порядковый номер слова максимальной длины и номер позиции строки с которой она начинается.

03.03.2013, 22:36. Показов 1502. Ответов 1
Метки нет (Все метки)

Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены пробелами. Вывести на экран порядковый номер слова максимальной длины и номер позиции строки с которой она начинается. нужно составить программу на DELPHI!
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.03.2013, 22:36
Ответы с готовыми решениями:

Вывести на экран порядковый номер слова максимальной длины и номер позиции строки с которой оно начинается
Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены...

Вывести на экран порядковый номер слова максимальной длины
Задание: Дана строка символов состоящая из произвольного текста на английском языке слова...

Вывести на экран порядковый номер слова максимальной длины
Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены...

Строки: Вывести на экран порядковый номер слова минимальной длины
Вобщем сабж такой "Дана строка символов, состоящая из произвольного текста на английском языке,...

__________________
1
Модератор
63348 / 47054 / 32433
Регистрация: 18.05.2008
Сообщений: 114,059
04.03.2013, 13:49 2
Лучший ответ Сообщение было отмечено как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
procedure TForm1.Button1Click(Sender: TObject);
var s,s1:string;
    n,i,j,k,max,imx,ns:integer;
begin
s:=Edit1.Text;
n:=length(s);
k:=0;//всего слов
max:=0;//макс длина
ns:=0; //номер мксимального
imx:=0;//начало максимального
i:=1;
while i<=n do
if(s[i]<>' ')and((i=1)or(s[i-1]=' ')) then
 begin
  k:=k+1;
  s1:='';
  j:=i;
  while(j<=n)and(s[j]<>' ') do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if length(s1)>max then
   begin
    max:=length(s1);
    imx:=i;
    ns:=k;
   end;
  i:=i+length(s1);
 end
else i:=i+1;
Edit2.Text:='Порядковый номер слова максимальной длины= '+
             IntToStr(ns)+' номер позиции его начала= '+
             IntToStr(imx);
 
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.03.2013, 13:49

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Вывести на экран порядковый номер слова минимальной длины
Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены...

Вывести на экран порядковый номер слова минимальной длины...
Доброго времени суток, помогите пожалуйста написать код Дана строка символов, состоящая из...

Вывести на экран порядковый номер слова минимальной длины в строке, и количество неповторяющихся символов
Дана строка символов, состоящая из произвольного текста, слова разделены пробелами. Выведите на...

Вывести на экран порядковый номер слова, накрывающего k-ю позицию строки
Привет ВСЕМ! Буду очень рада если кто-нибудь поможет мне с программой!! Не могу составить эту...


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

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

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