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

Определить на какую букву оканчивается 3-е слово в строке

17.05.2010, 14:01. Просмотров 987. Ответов 3
Метки нет (Все метки)


В программиравани я ноль, так что прошу помочь! Вопрос жизни и смерти! Задачка такая: Определить на какую букву оканчивается 3-е слово в строке(в строке несколько слов)!
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2010, 14:01
Ответы с готовыми решениями:

Определить, на какую букву оканчивается второе слово в строке
Помогите, сам пытался чет программа совсем не пашет((( =)

Определить на какую букву оканчивается последнее слово
Определить на какую букву оканчивается последнее слово в предложении

Определить на какую букву оканчивается последнее слово
Определить на какую букву оканчивается последнее слово

Определить, на какую букву оканчивается третье слово
Программу я написал, но я хочу добавить условие, что если пользователь ввёл меньше трёх слов, то...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
3
124 / 124 / 24
Регистрация: 14.02.2010
Сообщений: 289
17.05.2010, 15:10 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
    s,s1:string;
begin
s:=Memo.Lines.Text;
 for i:=2 downto 1 do begin
 Delete(s,1,pos(' ',s));
 end;
 n:=pos(' ',s);
 s1:=copy(s,1,n-1);
 s:='';
 s:=s1[length(s1)];
 Edit1.Text:=s;
 
end;
Вот такой вариант!
0
2183 / 1253 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
17.05.2010, 16:10 3
или так
Delphi
1
2
3
4
5
6
7
8
var i,q,w:integer;
    s,d:string;
begin
 i:=pos(' ',memo1.Lines[0])+1;
 q:=PosEx(' ',memo1.Lines[0],i)+1;
 w:=PosEx(' ',memo1.Lines[0],q)-1;
 s:=copy(memo1.Lines[0],(w-q)+q,1);
 label1.Caption:=s;
Добавлено через 44 минуты
в моем случаи есть минус если после третьего слова нет пробела, то буква определяется не правильно
0
13065 / 5851 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
17.05.2010, 16:44 4
Цитата Сообщение от anonimus Посмотреть сообщение
в моем случаи есть минус если после третьего слова нет пробела, то буква определяется не правильно
Эту проблему можно устранить:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  i,q,w:integer;
  s,d:string;
begin
  i:=pos(' ',memo1.Lines[0])+1;
  q:=PosEx(' ',memo1.Lines[0],i)+1;
  w:=PosEx(' ',memo1.Lines[0],q)-1;
  
  //Добавлено:
  if w = 0 then w := Length(memo1.Lines[0]);
  
  s:=copy(memo1.Lines[0],(w-q)+q,1);
  label1.Caption:=s;
Правда, если после третьего слова стоит какой-то из знаков: '.', '!', '?', тогда опять будет проблема.
---
benyagon, уточни задание. Условие может быть простым - например: есть только слова и разделители между ними. Или сложнее - слова могут разделяться различными разделителями - пробелы, знаки табуляции, знаки препинания и пр.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.05.2010, 16:44

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

Определить на какую букву оканчивается четвертое слово в предложении.
1. В строке слова разделены пробелами. Определить на какую букву оканчивается четвертое слово в...

Дана последовательность слов. Определить на какую букву оканчивается второе слово в последовательности. (файл)
Дана последовательность слов. Определить на какую букву оканчивается второе слово в...

Определите, на какую букву оканчивается третье слово
написал и нашел одну программу помогите доделать куда поставить в первой (нашел ее) repeat и все...

Определить, на какую букву начинается третье слово в строке
Составить программу , определяющую, на какую букву начинается третье слово в предложении.


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

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

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