Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 11.12.2015, 15:15   #1
Flocky
Пользователь
 
Регистрация: 11.01.2013
Сообщений: 17
По умолчанию Как поменять местами первый и последний символ в Паскаль

Дана строка символов.
Группы символов, разделенные одним или несколькими пробелами и не содержащие пробелов внутри себя, будем называть словами.
В каждом нечетном по порядку слове поменять местами первый и последний символы.
Flocky вне форума Ответить с цитированием
Старый 11.12.2015, 15:57   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

И как всегда я рекомендую следующий метод разведения строки на массив слов: http://www.programmersforum.ru/showt...369#post398369
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 11.12.2015, 16:24   #3
Flocky
Пользователь
 
Регистрация: 11.01.2013
Сообщений: 17
По умолчанию

Даже мыслей нет как это сделать..
Flocky вне форума Ответить с цитированием
Старый 11.12.2015, 16:37   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,061
По умолчанию

Цитата:
Даже мыслей нет как это сделать..
Это лечится. Пиши в разделе фриланс и указывай сумму, которую платишь за выполненную работу
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 11.12.2015, 16:53   #5
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 2,775
По умолчанию

Код:
uses crt;
var s:string; a:array[1..100] of string;
  i,count:integer;c:char;
begin
 clrscr;
 s:='Hello my world';
 count:=1;
 i:=1;
 while (i<=length(s)) do begin
   if s[i]=' ' then begin inc(count);inc(i);end;
   a[count]:=a[count]+s[i];
   if odd(i) then
    begin
      c:=a[i][1];
      a[i][1] := a[i][length(a[i])];
      a[i][length(a[i])]:= c;
    end
   inc(i);
 end;
end.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 11.12.2015, 17:59   #6
Flocky
Пользователь
 
Регистрация: 11.01.2013
Сообщений: 17
По умолчанию

Program1.pas(14) : Ошибка времени выполнения: Индекс находился вне границ массива.
14 строка
Flocky вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поменять местами первый и последний столбец admokep C++ Builder 4 12.01.2015 17:25
Turbo Pascal. В каждом нечетном по порядку слове поменять местами первый и последний символы cdc Помощь студентам 0 08.11.2012 14:21
Матрица размерностью NxM заполняется случайными числами. Поменять местами первый и последний элементы каждого столбца. (Delphi) ganster Помощь студентам 0 02.07.2012 21:46
Поменять в двумерном массиве местами первый и последний столбец }|{eka Паскаль, Turbo Pascal, PascalABC.NET 6 21.06.2012 20:19
Pascal.поменять местами первый и последний символ в последнем слове Kris92 Помощь студентам 5 07.07.2010 14:00


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS