[Visual Basic 6.0] Проверить, все ли цифры данного натурального числа N различны

[Firstaid]

Проверить, все ли цифры данного натурального числа N различны

Каким образом это реализовать? Что нужно делать с числом, чтобы выяснить это. На мысль приходит делить число на 10, даже код нашел на паскале, теперь пытаюсь реализовать это в бейсике:

uses crt;
var n:longint;
k,p,t:byte;
m:set of byte;
begin
clrscr;
write('n=');
readln(n);
m:=[];p:=0;t:=0;
while n>0 do
begin
k:=n mod 10;
t:=t+1;
if not (k in m)then
begin
include(m,k);
p:=p+1;
end;
n:=n div 10;
end;
if p=t then write('В числе все цифры разные')
else write('В числе не все цифры разные');
readln
end.

Должно получиться так:

Private Sub Command1_Click

n = Val(Text1)

Do While n > 0

k = n Mod 10
t = t + 1(не пойму для чего здесь t, подскажите)

Вот эту строчку не пойму: if not (k in m)then (что значит k in m в паскале и как это на бейсике реализовать)

И вот этот вот блок тоже не пойму, к чему он и что означает и как его записать:

include(m,k);
p:=p+1;
end;
n:=n div 10;
end;

Давайте вместе подумаем, как это все упорядочить. Есть у кого какие мысли?

[Serge_Bliznykov]

я не знаю синтаксис VB,
но я бы написал что-то вроде

Private Sub Command1_Click

 Dim n As Long, i As Integer, one As Integer
 Dim isAllDifferent As Boolean
 Dim digits(10) As Integer

 For i = 0 To 9 Step 1
   digits(i) = 0
 Next i
 
 isAllDifferent = True
 
 n = Abs(Val(Text1))
 
 Do While n > 0
   one = n Mod 10
   digits(one) = digits(one) + 1
   If digits(one) > 1 Then
     isAllDifferent = False
   End If
   n = n \ 10
 Loop
 
 If isAllDifferent Then
    Print "Все цифры разные"
 Else
    Print "Есть повторяющиеся цифры"
 End If
 
End

[Aleksandr H.]

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

Давайте вместе подумаем, как это все упорядочить.

Начни со шрифта.

if not (k in m)then

- если k не принадлежит множеству m тогда...

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

Есть у кого какие мысли?

множества на VB замени Dictionary и там храни значения последнего разряда и сравнивай каждый новый разряд со словарем.

Serge_Bliznykov на несколько тактов можно ускорить если после определения isAllDifferent = False выйти Exit Do

[Serge_Bliznykov]

Сообщение от Aleksandr H.

на несколько тактов можно ускорить если после определения isAllDifferent = False выйти Exit Do

да, спасибо, я знаю.
просто не стал усложнять. боюсь, что для новичка и так слишком сложно

[Firstaid]

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

я не знаю синтаксис VB,
но я бы написал что-то вроде

Private Sub Command1_Click

 Dim n As Long, i As Integer, one As Integer
 Dim isAllDifferent As Boolean
 Dim digits(10) As Integer

 For i = 0 To 9 Step 1
   digits(i) = 0
 Next i
 
 isAllDifferent = True
 
 n = Abs(Val(Text1))
 
 Do While n > 0
   one = n Mod 10
   digits(one) = digits(one) + 1
   If digits(one) > 1 Then
     isAllDifferent = False
   End If
   n = n \ 10
 Loop
 
 If isAllDifferent Then
    Print "Все цифры разные"
 Else
    Print "Есть повторяющиеся цифры"
 End If
 
End

Спс, выручил

[Serge_Bliznykov]

не за что, пожалуйста!