Вывести строку, содержащую эти же слова, но разделенные одним символом "."

@pro-x · Регистрация: 20.10.2010

Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова, но разделенные одним символом "." (точка). В конце точку не ставить.

@GodLikeRu · 25.02.2011, 14:42

Pascal

var
s:string;
i:integer;
flag:boolean;
begin
readln(s);
flag:=true;
for i:=1 to length(s) do
 if (s[i]=' ') and (flag) then
  begin
   write('.');
   flag:=false;
  end
 else if not(s[i]=' ') then
  begin
   write(s[i]);
   flag:=true;
  end;
end.

@quso · 01.03.2014, 01:34

помогите эту программу сделать через процедуру

@markiza-inc · 01.03.2014, 10:37

Если просто переделать через процедуру, то попробуй так:

Pascal

var
   s    : string;
   i    : integer;
   flag : boolean;
 
Procedure editstr;
begin
   flag:=true;
   for i:=1 to length(s) do
    if (s[i]=' ') and (flag) then
     begin
       write('.');
       flag:=false;
     end
                             else
     if not(s[i]=' ') then
      begin
        write(s[i]);
        flag:=true;
      end;
end;
 
BEGIN
   WRITELN('Введите строку:');
   readln(s);
   editstr;
   readln;
END.

Добавлено через 22 минуты
Но прога не соответствует условию, т.к. при вводе пробелов в конце исходной строки, выходная строка заканчивается точкой, а это противоречит условию задачи.
Поэтому, если Вы нашли эту задачу через поисковик, то лучше перейдите на нормальное решение оно здесь.

Вывести строку, содержащую эти же слова, но разделенные одним символом "."

Решение

Решение

@pro-x 0 / 0 / 0 Регистрация: 20.10.2010 Сообщений: 43
		1
	Вывести строку, содержащую эти же слова, но разделенные одним символом "." 25.02.2011, 00:27. Показов 5332. Ответов 3 Метки нет (Все метки) Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова, но разделенные одним символом "." (точка). В конце точку не ставить. 0

@quso 0 / 0 / 0 Регистрация: 28.02.2014 Сообщений: 8
	01.03.2014, 01:34	3
	помогите эту программу сделать через процедуру 0

Опции темы