Как разбить любое трехзначное число (введенное с клавиатуры) на три отдельные цифры?
версия для произвольного положительного числа:
- Вконтакте
- Вконтакте
- Вконтакте
igoodmood: тогда причем тут компьютеры, если вы пишете алгоритм НЕ НА ЯЗЫКЕ ПРОГРАММИРОВАНИЯ?
математические манипуляции — делите на 100, отбрасываете дробное, получаете левую цифру.
Делите на 10, отбрасываете дробное, получаете вторую цифру.
Отнимаете от числа первое*100 и второе*10 получаете третью цифру.
Все просто:
‘это комментарий
For I = 1 To 3 ‘ цикл. 3ка это разрядность делимого числа. Хоть 100 разрядов.
x = Число Mod 10 ‘ Число должно быть байтом без запятых!
Print x ‘ вот тут появляется последняя цифра числа
Число = Число / 10 ‘ тут число лишается последней цифры
Next
‘Для понимания: другие варианты:
Dim Цифра(4) As Byte ‘ массив из байт (целые числа без запятой!)
Цифра(4) = 123 ‘разбиваем 123 на 1,2,3
Цифра(1) = Цифра(4) / 100 ‘123/100=1
Цифра(3) = Цифра(4) Mod 10 ‘остаток от деления 123 на 10 = 3
Цифра(4) = Цифра(4) / 10 ‘ 123/10=12
Цифра(2) = Цифра(4)mod 10 ‘ остаток от деления 12 на 10 =2
Print Цифра(1) ; Цифра(2) ; Цифра(3) ‘ 1 2 3 печатаем наши три цифры
‘ Второй вариант:
Dim I As Byte , Цифра(4) As Byte
Цифра(4) = 123 ‘разбиваем 123 на 1,2,3
For I = 3 To 1 ‘ цикл. 3ка это разрядность делимого числа. Хоть 100 разрядов. Но и массив должен быть такой же
Цифра(i) = Цифра(4) Mod 10
Цифра(4) = Цифра(4) / 10
Next
Print Цифра(1) ; Цифра(2) ; Цифра(3)