|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
28.11.2013, 19:40 | #1 (permalink) |
Новичок
Регистрация: 28.11.2013
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите пожалуйста с программой на строки. Паскаль
а)из каждого слова нечетной длины удалить его среднюю букву; б) в середину каждого слова четной длины вставить букву "а". |
28.11.2013, 19:40 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Советую вам обратить внимание на эти темы, у них очень много схожего с вашей Уважаемые программисты, помогите решить задачу на строки символов. Паскаль Помогите, пожалуйста, с программой. Паскаль |
28.11.2013, 20:22 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
var S:string; i,j,N,L: integer; W:Array[1..255] of String; C:Char; Begin writeln('Enter the string: '); readln(S); N:=1; i:=0; Repeat Inc(i); W[N]:=''; While (S[i]<>',') and (S[i]<>'.') do begin W[N]:=W[N]+S[i]; Inc(i); end; If S[i]<>'.' then Inc(N); Until S[i]='.'; For i:=1 to N do begin L:=Length(W[i]); if (L mod 2)=0 then Insert('a',W[i],(L div 2)+1) else Delete(W[i],(L div 2)+1,1); end; For i:=1 to N do if i<N then Write(W[i]+',') else Write(W[i]+'.'); Writeln; Readln End. |
|
28.11.2013, 21:29 | #5 (permalink) |
Новичок
Регистрация: 28.11.2013
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Если я меняю тип или [1..255] эти значения пишет ошибка диапазона((
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
28.11.2013, 22:48 | #6 (permalink) |
Новичок
Регистрация: 28.11.2013
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Все работает, разобралась Спасибо!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|