Yozj
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
function checkDuplicate(str: String): Boolean;
var
i: Integer;
begin
Result := s <> '';
if Result then
for i := 0 to size do
if s[i] = str then
begin
Result := false;
break;
end;
end;
begin
srcString = 'Произвольная строка каждая каждое слово которой - это слово неповторимое';
size := 0;
for i := 1 to length(srcString)-1 do
begin
if srcString[i] = ' ' then
begin
if checkDuplicate(s) then
begin
words[size] := s;
size := size + 1;
s := '';
end;
end
else
s := s + srcString[i];
end;
if checkDuplicate(s) then
words[size] := s;
resString := '';
for i := 0 to size do
resString := resString + ' ';
WriteLn('Исходная строка: ' + srcString);
WriteLn('Итоговая строка: ' + resString);
end.
|
Всего записей: 125 | Зарегистр. 01-12-2004 | Отправлено: 17:45 02-12-2008 | Исправлено: Yozj, 17:46 02-12-2008 |
|
