Одно

← →
Ihor Osov'yak © (2003-12-13 17:12) [40]

2 [39] Vuk © (13.12.03 17:01)

ухожу, ухожу...
Я был не прав, извините.

← →
Ske4er © (2003-12-13 20:16) [41]

2 All & Ihor Osov"yak

А от автора ни спасибо, ни пожалйуста. Ну и как после этого помогать готовыми кодами? :( [crying] :)))))

← →
maga001 (2003-12-14 15:20) [42]

Огромное всем спасибо, извините что долго не заходил, думал после первых постов где мне доказывали что я чуть ли не дебил никто и не рискнет ответить.
Отдельное спасибо Ihor Osov"yak & Ske4er!!!
Для будущих поколений оставьлю итоговой код:
Код от Ske4er:
function Mix (word : string): string;
var
wordMixed : string;
i,j : integer;
begin
randomize;
wordMixed:="000000000000000000000000000000";
wordMixed[1]:=word[1];
wordMixed[length(word)]:=word[length(word)];
for i:=2 to length(word)-1 do
begin
repeat
j:=random(length(word)-2)+2;
until (word[j]<>"0");
wordMixed[i]:=word[j];
word[j]:="0";
end;
result:=copy(wordMixed,1,length(word));
end
----------------------------------------------
Код от Ihor Osov"yak:
function DoIt(aPrm: string): string;
var
idx: integer;
idxLast: integer;
begin
if length(aPrm) <= 3 then
begin
result := aprm;
exit;
end;
result := aprm[1];
idxLast := length(aPrm) - 1;

while idxLast >= 2 do
begin
if idxLast = 2 then
begin
result := result + aPrm[2];
break;
end;
idx := Random(idxLast - 1) + 2;
result := result + aPrm[idx];
aPrm[idx] := aPrm[idxLast];
dec(idxLast);
end;
result := result + aPrm[length(aPrm)];

end;

----------------------------------------------
Еще раз всем спасибо!

>Fantasist © (13.12.03 01:38)
Нормально читается и русский и английский.
ЗЫ
Мля... Вы со своей Украиной утомили... Ну оставьте ее и нас впокое... :(

Одно Найти похожие ветки