Главная » 2012 » Май » 21 » Дан текст, состоящий из букв и пробелов, слова разделяются пробелом. Поменять первую и вторую букву каждого слова.
12:31 Дан текст, состоящий из букв и пробелов, слова разделяются пробелом. Поменять первую и вторую букву каждого слова. |
{
Цель работы: Используя процедуры и функции обработки строк, произвести необходимые операции над строками
Дан текст, состоящий из букв и пробелов, слова разделяются пробелом. Поменять первую и вторую букву каждого слова.
}
const
WordChars:set of Char =['А'..'Я','а'..'я','A'..'Z','a'..'z','0'..'9','-']; // символы из которыйх состоит слово
var
s:string;
Function GetTextToUslovie(s:string):string;
var start,y,x:integer;
s2:string;
ch:char;
begin
y:=0;
s2:='';
start:=x;
for X:=1 to length(s) do begin
if (s[x] in WordChars) then begin
if s2='' then start:=x;
s2:=s2+s[x];
end
else begin
y:=y+1;
if length(s2)>=2 then begin
ch:=s[start];
s[start]:=s[start+1];
s[start+1]:=ch;
end;
start:=x;
s2:='';
end
end;
if s2<>'' then Y:=y+1;
GetTextToUslovie:=s;
end;
begin
s:='неважно либо в дельфи либо в паскале Цель работы: Используя процедуры и функции обработки строк, произвести необходимые операции над строками Дан текст, состоящий из букв и пробелов, слова разделяются пробелом. Поменять первую и вторую букву каждого слова.';
Writeln(GetTextToUslovie(s));
end.
|
|
Просмотров: 1663 |
Добавил: NetSoftWare
| Рейтинг: 0.0/0 |
|
