Напечатать в результирующий файл слова, начинающиеся и заканчивающиеся одной и той же буквы

@LosTSamara · Регистрация: 07.11.2012

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

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

Что не так? как надо доработать программу, что бы корректно работало. Ври пример:
Если я введу "А А А", то выведет "А А",а если я введу "А А А ", то все правильно, то есть проблема в последнем пробеде, что бы он правильно считал нужно, его обязательно ставить. Как сделать так что бы не надо было ставить пробел в конце?
вот мой код

Pascal

program string_12;
var sl,s:string; i,k,dl:integer;
begin write('ââåäèòå ñòðîêó:');
readln(s);
i:=1;
repeat
if (s[i]=' ')
then begin if sl[1]=sl[length(sl)] then writeln(sl);
sl:='';
end
else sl:=sl+s[i];
i:=i+1
until i>length(s);
readln;
end.

@soundtrack · 26.05.2013, 14:33

Займусь-ка я некропостингом

LosTSamara, тебе уже вряд ли через столько времени нужно решение, но другим может и пригодится. Задали мне такую же задачку на паскале написать, и ничего красивее твоего решения я не придумал. Только если в конце без пробела не хочет такой алгоритм работать - так его никто не запрещает добавить.

Pascal

program string_12;
var sl,s:string; i,k,dl:integer;
begin write('введите строку:');
readln(s);
s:=s+' ';
i:=1;
repeat
if (s[i]=' ')
then begin if sl[1]=sl[length(sl)] then writeln(sl);
sl:='';
end
else sl:=sl+s[i];
i:=i+1
until i>length(s);
readln;
end.

	26.05.2013, 14:33