|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
19.03.2013, 22:29 | #1 (permalink) |
Member
Регистрация: 19.03.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: -131
|
Обработка символов и строк на языке Pascal
Вставить пробел после первых 2-х символов в слова, имеющие длину, на 1 меньше заданной |
19.03.2013, 22:29 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Не торопитесь, лучше ознакомится с похожими темами и набраться побольше информации Помогите написать программы на языке Pascal Составить на языке Турбо Паскаль программку обработки строк Обработка символьных строк Обработка символьных строк - игра города |
20.03.2013, 10:14 | #3 (permalink) |
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
Код:
Program String45; var Dano:string; i:integer; Abol:integer; otvet:string; s,slovo:string; begin Write('Введите длину слова:'); readln(Abol); Write('Введите строку:'); readln(Dano); otvet:=''; slovo:=''; for i:=1 to length(Dano) do begin if (Dano[i]<>' ') then begin slovo:=slovo+dano[i];end; if ((Dano[i]=' ')or(i=length(Dano)))and(Dano[i-1]<>' ') then begin if (length(slovo)=Abol-1) then begin otvet:=otvet+slovo[1]+ slovo[2]; otvet:=otvet+' '; delete(slovo,1,2); end; otvet:=otvet+slovo; end; if (Dano[i]=' ')and(Dano[i+1]<>' ') then slovo:=''; if (Dano[i]=' ') then begin otvet:=otvet+' ';end; end; Writeln(' Новая строка:',otvet); end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|