Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.01.2017, 09:17   #1
kiryavolk
 
Регистрация: 15.12.2016
Сообщений: 7
По умолчанию Паскаль, выделение в строке второго слова и вставка его в конец другой строки

Составить программу, которая выделяет в строке второе слово и помешает его в конец другой строки. Если такого слова нет, то вывести сообщение.

Последний раз редактировалось Аватар; 24.01.2017 в 09:47.
kiryavolk вне форума Ответить с цитированием
Старый 24.01.2017, 10:30   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
var
   stroka : string;
   stroka1:string;
   slovo : string;
   i,count:integer;
begin
stroka := 'one two three';
stroka1 :='2 slovo: ';
slovo:='';
i:=1;
count:=1;
while (i<=length(stroka)) do
 begin
   if stroka[i] = ' ' then
    begin
      inc(count);inc(i);
    end;
   if (count=2)and(stroka[i]<>' ')  then
    begin
       stroka[i]:=upcase(stroka[i]);
       slovo:=slovo+stroka[i];
    end;
    inc(i);
 end;

 if slovo='' then writeln('AHTUNG') else
 begin
  writeln(stroka);
  stroka1:=stroka1+slovo;
   writeln(stroka1);
 end;
readln;
end.
условия на двойные пробелы, пробелы с начала строки, пиши сам
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.

Последний раз редактировалось Aleksandr H.; 24.01.2017 в 10:35.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ребят,нужна помощь с EditText.(андроид).Помогите Юленька92 Общие вопросы по Java, Java SE, Kotlin 2 16.11.2015 22:28
Ребят нужна помощь в теории Aleksei_095 Помощь студентам 2 07.05.2015 15:30
Нужна помощь ребят. Mikkymouse Помощь студентам 3 22.06.2014 15:07
Ребят, нужна помощь по Паскалю Agent[PNZ] Помощь студентам 4 14.12.2007 23:34