Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.66/32: Рейтинг темы: голосов - 32, средняя оценка - 4.66
0 / 0 / 0
Регистрация: 01.05.2011
Сообщений: 12
1

Найти последнее слово в строке

18.05.2011, 16:24. Показов 6312. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста. Нужно найти последнее слово в строке.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.05.2011, 16:24
Ответы с готовыми решениями:

Найти последнее слово в k-й строке массива строк.
Ввести текст в виде массива строк,найти последнее слово в k-й строке.

Преобразовать файл, удалив последнее слово в каждой строке
Преобразовать файл, удалив последнее слово в каждой строке.

Разработать процедуру которая в строке меняет первое и последнее слово
разработать процедуру которая в строке меняет первое и последнее слово Помогите...

Составьте программу, которая меняет местами первое и последнее слово в строке
Составьте программу, которая меняет местами первое и последнее слово в строке: а) в строке "Минск...

__________________
3
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
18.05.2011, 16:57 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Uses
 Crt;
Var
 s,s2:string;
 i:byte;
begin
readln(s);
for i:=length(s) downto 1 do
 if s[i] in [' ','.',','] then delete(s,i,1)
else break;
s2:='';
for i:=length(s) downto 1 do
if not(s[i] in [' ','.',',']) then s2:=s[i]+s2
else break;
writeln(s2);
end.
1
0 / 0 / 0
Регистрация: 01.05.2011
Сообщений: 12
21.05.2011, 14:17  [ТС] 3
Извините, еще одна просьба.
Поменять в предложении первое и последнее слово.
Вот у меня есть начало, как далее?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Program stroka;
Uses crt;
Var
   P,P2,S:string;
   l2,i,len,p1:integer;
begin ClrScr;
repeat
      Writeln ('vvedite stroky');
      readln (S);
      len:=Length (S);
      P:=copy (S,1,pos(' ',S));     {pervoe slovo}
 {vtoroe slovo}
     for i:=length(S) downto 1 do
     if S[i] in [' '] then delete (s,i,1) else break;
     P2:=' ';
     for i:=length(S) downto 1 do
     if not (S[i] in [' ']) then P2:=S[i]+P2 else break;
 {zamena}
 Insert ()
 
   Writeln ('');
   Readln;
 until S <> ' ';
End.
Тут находятся первое и последнее слово, а дальше их нужно сменить

Заранее благодярю
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
21.05.2011, 16:08 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
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
Uses
 Crt;
Var
 s,s2,s3:string;
 i,j:byte;
begin
readln(s);
s2:='';
j:=0;
for i:=1 to length(s) do
 if s[i] in [' ','.',','] then
 begin
  j:=i;
  break;
 end;
s3:=copy(s,1,j-1);
delete(s,1,j-1);
for i:=length(s) downto 1 do
if not(s[i] in [' ','.',',']) then
begin
 s2:=s[i]+s2;
 delete(s,i,1);
end else break;
writeln(s2+s+s3);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2011, 16:08

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

Дан файл F. Переписать его в новый файл, вставляя на последнее место в строке заданное слово
Дан файл F. Переписать его в новый файл, вставляя на последнее место в строке заданное слово

Найти последнее вхождение некоторой подстроки в строке
пожалуйста помогите. дан текст из нескольких строк. предлагается: 1) найти последнее вхождение...

Найти в данной строке последнее слово, начинающееся с латинской буквы ‘a’
Дана строка символов. Найти в данной строке последнее слово, начинающееся с латинской буквы ‘a’.

Дана строка символов. Найти, сколько раз в строке повторяется последнее слово
Задача: Словом в строке называется последовательность букв, не прерываемая другими символами. ...

Как выделить последнее слово в строке
Напишите как это сделать

Сравнить первое и последнее слово в строке
помогите решить задачу (срочно): напишите программу, которая сравнивает первое и последнее слово в...


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

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

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