weboman
210 / 195 / 63
Регистрация: 13.08.2010
Сообщений: 1,531
Записей в блоге: 6
1

Как разбить любое число на отдельные цифры

26.10.2010, 18:41. Показов 29497. Ответов 4
Метки нет (Все метки)

напр. дано 23523, должно получиться:
masNum[1] = 2;
masNum[2] = 3;
masNum[3] = 5;
masNum[4] = 2;
masNum[5] = 3;

нужна именно процедура(ну или прога), ато немогу я сам, не лезит никак в голову, знаю что можно преобразовать число в строку, потом разбить ее на символы, и потом конвертануть их обратоно в числа!, НО! символы не конвертируются, вообщем давайте оставим конверт в строку пока в покое, может возможно как-то подругому, через mod'ы и div'ы???
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.10.2010, 18:41
Ответы с готовыми решениями:

Дано число n. Разбить на цифры в массив
Дано число n. Разбить на цифры в массив . (Желательно без goto) У нас есть число n(например, 525,...

Разбить число на цифры с помощью целочисленного деления
Нужно разбить число на цифры с помощью целочисленного деления.

Получить случайное трехзначное число и вывести его отдельные цифры
Получить случайное трехзначное число и вывести его отдельные цифры : получено число 123 сотни 1...

Программа, которая вводит число из пяти цифр, разделяет число на отдельные цифры
Напишите программу, которая вводит число из пяти цифр, разделяет число на отдельные цифры и...

4
189 / 185 / 54
Регистрация: 23.10.2010
Сообщений: 1,335
26.10.2010, 18:47 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program test;
 
   var
      i,q : longint;
 
begin
   read(i);
   while i<>0 do
   begin
   q:=i mod 10;
   writeln(q);
   i:=i div 10;
   end;
   readln;
end.
вот если прога...
0
Почетный модератор
64253 / 47553 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
26.10.2010, 18:49 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses crt;
var n:longint;
    a:array[1..10] of byte;
    i,k,x:byte;
begin
clrscr;
write('n=');
readln(n);
n:=abs(n);
k:=0;
while n>0 do
 begin
  k:=k+1;
  a[k]:=n mod 10;//собираем в массив с конца
  n:=n div 10;
 end;
for i:=1 to k div 2 do
 begin
  x:=a[i];
  a[i]:=a[k-i+1];//переворачиваем
  a[k-i+1]:=x;
 end;
writeln('Массив цифр:');
for i:=1 to k do
write(a[i],' ');
readln
end.
0
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
26.10.2010, 18:57 4
как вариант.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
 k,i,x,y,l:integer;
 a:array[1..10] of integer;
 s:string;
begin
readln(k);
str(k,s);
l:=0;
for i:=1 to length(s) do
begin
{ write(s[i]);  }
 inc(l);
 val(s[i],a[i],y);
end;
writeln;
for i:=1 to l do
begin
write(a[i]:3);
end;
readln;
end.
0
Почетный модератор
64253 / 47553 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
26.10.2010, 19:03 5
Цитата Сообщение от SuPeR XaKer Посмотреть сообщение
a:array[1..10] of integer;
если всего 10, то зачем строка, тогда уж нужно
Pascal
1
a:array[1..255] of byte;//цифры же, зачем тебе -32000
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.10.2010, 19:03
Помогаю со студенческими работами здесь

Разбить число на цифры.
как в паскале разбить число на цифры???

Составить программу, в которой вводится любое целое число а процедура возвращает массив, содержащий цифры этого числа
Составить программу, в которой вводится любое целое число а процедура возвращает массив, содержащий...

Разбить число n на цифры и напечатать их в столбик. Вычислить сумму последних m цифр
Составьте программу, которая разбивает число n на цифры и печатает их в столбик. Получить сумму m...

Разбить число n на цифры
Составьте программу без использования строковых переменных, которая разбивает число n на цифры и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru