В заданном тексте в нечётных словах поменять местами первые два буквенных символа и заменить их на заглавные

@Евгений_Варавко · Регистрация: 06.02.2016

В заданном тексте в каждом нечетном слове поменять местами первые два буквенных символа и заменить их на заглавные.Текст загружается с файла ,возможно между словами больше одного пробела ,решите ,буду очень благодарен !

@Hikari · 06.02.2016, 19:28

Первое, что пришло в голову:

Pascal

program Project1;
var f:text; s2,s:string;i,k:integer;
begin
  Assign(f,'d:\1\q.txt');reset(f);
  i:=1;
  while not eof(f) do begin
    readln(f,s);
    k:=1;
    while k<>0 do begin
        k:=pos(' ',s); s2:=copy(s,1,k-1);
        if s2<>'' then begin
          if not odd(i) then   writeln('Chyot: ',upcase(copy(s2,1,2))+copy(s2,3,Length(s2)))
          else writeln(s2);
          inc(i);
        end;
        delete(s,1,k);
    end;
  end;
  close(f);
  readln;
end.

Это эскиз, поверки требует. Но, думаю в целом должен подойти.

@Евгений_Варавко · 06.02.2016, 19:52 **[ТС]**

Огромное спасибо

Добавлено через 18 минут
В 12 строке ошибка ,нельзя преобразовать выражение типа string к типу char ;

@Puporev · 06.02.2016, 20:12

Pascal

if not odd(i) then
  begin
    s2:=uppercase(copy(s2,1,2))+copy(s2,3,Length(s2));
    writeln('Chyot: ',s2)
   end
 else writeln(s2);

@Евгений_Варавко · 07.02.2016, 10:19 **[ТС]**

Ответ ваш неверен ,так как условие совсем другое ,в каждом нечётном слове (то есть 1 слово ,3,5,7 и т.д) поменять местами два первых символа и заменить их на заглавные

@Евгений_Варавко 0 / 0 / 0 Регистрация: 06.02.2016 Сообщений: 9
		1
	В заданном тексте в нечётных словах поменять местами первые два буквенных символа и заменить их на заглавные 06.02.2016, 19:07. Показов 1919. Ответов 4 Метки нет (Все метки) В заданном тексте в каждом нечетном слове поменять местами первые два буквенных символа и заменить их на заглавные.Текст загружается с файла ,возможно между словами больше одного пробела ,решите ,буду очень благодарен ! 0

@Евгений_Варавко 0 / 0 / 0 Регистрация: 06.02.2016 Сообщений: 9
	06.02.2016, 19:52 [ТС]	3
	Огромное спасибо Добавлено через 18 минут В 12 строке ошибка ,нельзя преобразовать выражение типа string к типу char ; 0

@Евгений_Варавко 0 / 0 / 0 Регистрация: 06.02.2016 Сообщений: 9
	07.02.2016, 10:19 [ТС]	5
	Ответ ваш неверен ,так как условие совсем другое ,в каждом нечётном слове (то есть 1 слово ,3,5,7 и т.д) поменять местами два первых символа и заменить их на заглавные 0

Опции темы

В заданном тексте в нечётных словах поменять местами первые два буквенных символа и заменить их на заглавные

Решение