Форум: "Потрепаться";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
ВнизДо чего же наглые!!! Найти похожие ветки
← →
Romkin (2001-12-07 17:16) [12]procedure TForm1.Button1Click(Sender: TObject);
var
s: ansistring;
gchar: ansichar;
i, j, k: integer;
begin
s := Edit1.Text; //number
//check for number
for i := 1 to length(s) do
if not (s[i] in ["0".."9"]) then
raise Exception.CreateFmt("Not a number: %s",[s]);
k := 0;
for i := length(s) downto 2 do
if s[i] > s[i-1] then
begin
gchar := s[i];
s[i] := s[i-1];
s[i-1] := gchar;
k := i;
break;
end;
if k > 0 then //shuffle (bubblees)
for i := k+1 to length(s) do
for j := k to i-1 do
if s[j] > s[j+1] then
begin
gchar := s[j];
s[j] := s[j+1];
s[j+1] := gchar;
end;
if k = 0 then
Edit2.Text := "No"
else
Edit2.Text := s;
end;
на Delphi :-))
Без ограничения длины числа
И все вроде правильно
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c