|
|
Опции темы | Опции просмотра |
19.11.2013, 09:51 | #1 (permalink) |
Новичок
Регистрация: 11.11.2013
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Здравствуйте, помогите пожалуйста написать программы на языке паскаль.Заранее спасибо
А) перенести первую букву каждого слова в конец слова; b) перенести последнюю букву каждого слова в начало слова; c) удалить из каждого слова первую и последнюю буквы; |
19.11.2013, 09:51 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Так же вам будут кстати эти темы, ознакомьтесь Помогите написать программы на языке Pascal Здравствуйте, помогите пожалуйста написать программы на языке Паскаль |
19.11.2013, 11:27 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
var S:string; i,j,N,L: integer; W,W1: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]); C:=W[i][1]; W1[i]:=''; for j:=2 to L do W1[i]:=W1[i]+W[i][j]; W1[i]:=W1[i]+C; end; For i:=1 to N do if i<N then Write(W1[i]+',') else Write(W1[i]+'.'); Writeln; For i:=1 to N do begin L:=Length(W[i]); C:=W[i][L]; W1[i]:=''; W1[i]:=W1[i]+C; for j:=1 to L-1 do W1[i]:=W1[i]+W[i][j]; end; For i:=1 to N do if i<N then Write(W1[i]+',') else Write(W1[i]+'.'); Writeln; For i:=1 to N do begin L:=Length(W[i]); W1[i]:=''; for j:=2 to L-1 do W1[i]:=W1[i]+W[i][j]; end; For i:=1 to N do if i<N then Write(W1[i]+',') else Write(W1[i]+'.'); Readln End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|