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

@Jane2000 · Регистрация: 06.10.2016

Студворк — интернет-сервис помощи студентам

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

@Puporev · 06.10.2016, 17:59

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.

@Jane2000 · 06.10.2016, 21:34 **[ТС]**

Почему то вторая и третья программа не работают(

@Puporev · 07.10.2016, 09:12

А что не так?

@Jane2000 · 07.10.2016, 11:49 **[ТС]**

А можно без использования array?

@Puporev · 07.10.2016, 11:57

Можно но это намного сложнее. Попробуйте.

@vint-81 · 07.10.2016, 15:11

Сообщение от 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.

Новые блоги и статьи Все статьи Все блоги /
Определение даты списания и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: установить период списания автоматически и запретить. . .	Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

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

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

@Jane2000 0 / 0 / 0 Регистрация: 06.10.2016 Сообщений: 3
	06.10.2016, 21:34 [ТС]
	Почему то вторая и третья программа не работают( 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	07.10.2016, 09:12
	А что не так? Миниатюры 0

@Jane2000 0 / 0 / 0 Регистрация: 06.10.2016 Сообщений: 3
	07.10.2016, 11:49 [ТС]
	А можно без использования array? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	07.10.2016, 11:57
	Можно но это намного сложнее. Попробуйте. 0