[Nurlan]

я не знаю что надо написать чтобы программа проверяла числа

[NIch]

Элеменатрно...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

//Есть число n var  n : Word;//число  s : String;//строка-массив символов  i, j : word;  check : boolean; begin  Check := True;  s := IntToStr;//перевести число в строку  for i := 0 to Length(s)-1 do//от нуля до конца строки   for j := i to Length(s)-1 do//от определенного символа до конца строки    if S[i]=S[j] then//если определенный символ совпадает с любым остальным     Check := false;//то проверка не пройдена  if Check then//если проверка пройдена   ShowMessage('Сопадений нет')  else//если проверка не пройдена   ShowMessage('Совпадения есть'); end;

Код написпал "на коленке", т.е. нужно его потестить...но направление верное...

[s0Creator]

Сперва получить из числа все цифры
Проще всего переведя в строку - тогда каждый символ и есть число.
Если нельзя через строку, последовательно mod и div.
Далее по очереди ( в цикле ) берешь цифрыот первй до предпоследней и сравниваешь их ( в еще одном цикле ) с цифрами от следующей до последней.
Если нашел хоть одно совпадение - высказывание ложно.
_________
ЗЫ: опоздал - поправлю NIch : строки вроде начинаются с 1 и при j := i - S[i]=S[j] ( у меня "на коленке" и похуже бывает )

[m0nzt3r]

А через множества не проще?

[s0Creator]

Сообщение от m0nzt3r

А через множества не проще?

Поясни на примере.

[m0nzt3r]

Сообщение от s0Creator

Поясни на примере.

Вот простенький:

Код:

1 2 3 4 5 6 7 8 9 10 11

var   st:string; mn:set of char; i:byte; ok:boolean; begin   st:=Edit1.Text;   ok:=true;   for i:=1 to Length(st) do begin     if st[i] in mn then ok:=false     else mn:=mn+[st[i]];   end;   if ok=true then ShowMessage('Win!') else ShowMessage('Fail!'); end;

Это если вводить текстом число. Если оно просто целым числом передается, вначале преобразуй его в строку и все. А так - эта прога будет работать даже для буквенных строк, в принципе.

[Nurlan]

спасбо всем с наступающим вас ) проверю