0 / 0 / 0
Регистрация: 06.10.2016
Сообщений: 3
1

Работа со строкой.

06.10.2016, 17:08. Показов 458. Ответов 6
Метки нет (Все метки)

Общие начало условий всех задач- Пользователь вводит фразу состоящую из нескольких слов. Слова отделены друг от друга одним пробелом. Перед первым словом и после последнего пробелов нет.
1) Найдите и напечатайте в столбик слова-палидромы. если таких нет, сообщите об этом.
2) сформулируйте новую строку, в которой слова из исходной строки стояли бы в обратном порядке.
3) преобразуйте строку таким образом, чтобы слова в ней были перевернуты, тоесть в каждом слове поставить наоборот буквы
НА PASCAL
ПОЖАЛУЙСТА!!!!!!!
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.10.2016, 17:08
Ответы с готовыми решениями:

Работа с файлами, чтение/работа со строкой
Доброго времени суток. Начал работать с C++ Builder 6. Есть текстовый файл .txt с различными...

Работа со строкой
Здравствуйте, помогите пожалуйста. Имеется строка с адресом к примеру 352331 Россия, г....

Работа со строкой
Работа со строкой

Работа со строкой
Написать прогу которая переварачивает слова в строке s

6
Модератор
64004 / 47440 / 32703
Регистрация: 18.05.2008
Сообщений: 115,109
06.10.2016, 17:59 2
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
var s,s1,smx:string;
    a:array[1..100] of string;
    n,i,j,k:byte;
begin
clrscr;
writeln('Введите фразу из нескольких слов, разделенных пробелами');
writeln('в начале и в конце пробелов нет');
readln(s);
s:=s+' ';//добавим пробел в конец
//составим массив слов
n:=0;
while pos(' ',s)>0 do
 begin
  n:=n+1;
  a[n]:=copy(s,1,pos(' ',s)-1);
  delete(s,1,pos(' ',s));
 end;
//выведем палиндромы
writeln('Слова-палиндромы');
k:=0;
for i:=1 to n do
 begin
  s1:='';
  for j:=length(a[i])downto 1 do
  s1:=s1+a[i][j];
  if s1=a[i] then
   begin
    writeln(a[i]);
    k:=1;
   end;
 end;
if k=0 then writeln('В строке нет палиндромов');
//составим новую строку из слов в обратном порядке
s:='';
for i:=n downto 1 do
 begin
  s:=s+a[i];
  if i>1 then s:=s+' ';
 end;
writeln('Слова в обратном порядке');
writeln(s);
//строка из перевернутых слов
s:='';
for i:=1 to  n do
 begin
  s1:='';
  for j:=length(a[i]) downto 1 do
  s1:=s1+a[i][j];
  s:=s+s1;
  if i<n then s:=s+' ' ;
 end;
writeln('Слова перевернуты');
writeln(s);
end.
0
0 / 0 / 0
Регистрация: 06.10.2016
Сообщений: 3
06.10.2016, 21:34  [ТС] 3
Почему то вторая и третья программа не работают(
0
Модератор
64004 / 47440 / 32703
Регистрация: 18.05.2008
Сообщений: 115,109
07.10.2016, 09:12 4
А что не так?
0
Миниатюры
Работа со строкой.  
0 / 0 / 0
Регистрация: 06.10.2016
Сообщений: 3
07.10.2016, 11:49  [ТС] 5
А можно без использования array?
0
Модератор
64004 / 47440 / 32703
Регистрация: 18.05.2008
Сообщений: 115,109
07.10.2016, 11:57 6
Можно но это намного сложнее. Попробуйте.
0
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
07.10.2016, 15:11 7
Цитата Сообщение от Jane2000 Посмотреть сообщение
А можно без использования array?
Кликните здесь для просмотра всего текста
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
var s:string;
function r_word(st:string):string;
var i:byte;r,sl:string;
begin
 writeln('в каждом слове переставлены наоборот буквы:');
 r:='';st:=st+' ';
 while pos(' ',st)<>0 do
  begin
   sl:='';
   for i:=pos(' ',st)-1 downto 1 do sl:=sl+st[i];
   r:=r+sl+' ';
   st:=copy(st,pos(' ',st)+1,length(st))
  end;
 r_word:=r
end; 
function r_ord(st:string):string;
var s1:string; 
 begin
  writeln('слова из исходной строки в обратном порядке:');
  s1:='';st:=st+' ';
  while pos(' ',st)<>0 do
   begin
    s1:=copy(st,1,pos(' ',st))+s1;
    st:=copy(st,pos(' ',st)+1,length(st))
   end; 
  r_ord:=s1 
 end;
procedure write_p(st:string);
var f,f1:boolean;
    i:byte; 
 begin
  writeln('слова-палидромы:');
  st:=st+' ';
  while pos(' ',st)<>0 do
   begin
    f:=true;
    i:=1;
    while f and(i<pos(' ',st) div 2) do
      begin
       if st[i]<>st[pos(' ',st)-i] then f:= false;
       inc(i)
      end;
    if f then begin f1:=true; writeln(copy(st,1,pos(' ',st)))end;
    st:=copy(st,pos(' ',st)+1,length(st))
   end;
  if not f1 then writeln('---')  
 end; 
begin
 s:='шалаш казак построил и баб завел';
 write_p(s);
 writeln(r_ord(s));
 writeln(r_word(s))
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.10.2016, 15:11

Помощь в написании контрольных, курсовых и дипломных работ здесь.

работа со строкой
есть цикл::help: for i:=length(soz) downto 1 do begin okon_y:=soz; ...

Работа со строкой
Всем доброго дня! Подскажите такой вопрос. пока не могу разобраться. Есть входная строка - Иванов...

Работа со строкой
Добрый вечер, мне нужно перевести следующую строчку с C# на Java: switch (s.Text) Думаю всем...

Работа со строкой
Есть строка написанная в Edit состоящая из математического уравнения (например: 5+89,4+70-9+5,47)...


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

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

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