Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой

@Perdovoz · Регистрация: 02.10.2012

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

Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой. Код нужен самый примитивный и, если не сложно, объясните как он работает во всех подробностях.

@КонецСвета · 08.10.2012, 13:17

Perdovoz, определитесь с разделом: TurboPascal, FreePascal, PascalABC, PascalABC.NET?

@Paster Fob · 08.10.2012, 13:42

Pascal

const sn=[' ','.',',','!','?'];
 
var s,slovo:string;
    i:integer;
 
begin
  readln(s);
  slovo:='';
  if not (s[length(s)] in sn) then
    s:=s+' ';
  for i:=1 to length(s) do begin
    if not (s[i] in sn) then
      slovo:=slovo+s[i]
    else begin
      if slovo[1]=slovo[length(slovo)] then
        writeln(slovo);
      slovo:='';
    end;
  end;
  readln
end.

@Perdovoz · 08.10.2012, 14:55 **[ТС]**

Спасибо. А можно детально объяснить каждую строчку?)

@Perdovoz 0 / 0 / 0 Регистрация: 02.10.2012 Сообщений: 17
		1
	Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой 08.10.2012, 12:39. Показов 3915. Ответов 3 Метки нет (Все метки) Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой. Код нужен самый примитивный и, если не сложно, объясните как он работает во всех подробностях. 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	08.10.2012, 13:17	2
	Perdovoz, определитесь с разделом: TurboPascal, FreePascal, PascalABC, PascalABC.NET? 0

@Perdovoz 0 / 0 / 0 Регистрация: 02.10.2012 Сообщений: 17
	08.10.2012, 14:55 [ТС]	4
	Спасибо. А можно детально объяснить каждую строчку?) 0

Опции темы