Дано число вывести все его цифры в столбик, используя операции деления нацело и взятия остатка от деления

@nestquik · Регистрация: 26.10.2012

Дано целое число N. Используя операции деления нацело и взятия остатка от деления, вывести все его цифры в столбик.
Собственно есть код, но он выводит не в том порядке - от последнего к первому, а надо от первого к последнему.

Pascal

var n:integer;
begin
readln(n);
while n>0 do
begin
writeln(n mod 10);
n:=n div 10;
end;
end.

@_Developer · 03.01.2013, 21:12

Pascal

var
  n: integer;
  a: array[byte] of byte;
  i, j: byte;
 
begin
  i := 1;
  readln(n);
  while n > 0 do
  begin
    a[i] := n mod 10;
    inc(i);
    n := n div 10;
  end;
  j := i - 1;
  for i := j downto 1 do
    writeln(a[i]);
end.

@la2new · 03.01.2013, 21:14

Хмм..наглядный вариант

@nestquik · 03.01.2013, 21:19 **[ТС]**

Ещё не изучали "array[byte] of byte" можно без этого как-то?

@la2new · 03.01.2013, 21:21

Идея в том чтобы записывать значения остатка от деления в процессе выполнения программы,и потом вывести их с наоборот)

@nestquik · 03.01.2013, 21:25 **[ТС]**

Не особо понял - напишите.

@_Developer · 03.01.2013, 21:32

Pascal

var
  n: integer;
  a: array[1..15] of byte;
  i, j: byte;
 
begin
  i := 1;
  readln(n);
  while n > 0 do
  begin
    a[i] := n mod 10;
    inc(i);
    n := n div 10;
  end;
  j := i - 1;
  for i := j downto 1 do
    writeln(a[i]);
end.

@nestquik · 03.01.2013, 22:07 **[ТС]**

Ещё актуально - ведь так и не дали вариант без array[1..15] of byte

HighPredator · 03.01.2013, 22:28

nestquik, ловите:

Pascal

var
  n,d:integer;
  i,cnt:integer;
  step:integer;
 
 
begin
  readln(n);
  d:=n;
  cnt:=0;
  repeat
    d:=d div 10;
    inc(cnt);
  until d=0;
  step:=1;
  for i:=2 to cnt do step:=step*10;
  d:=n;
  repeat
    writeln(d div step);
    d:=d mod step;
    step:=step div 10;
  until d=0;
  readln;
end.

Вроде работает.

@isqoff · 03.01.2013, 22:44

вам не известен диапазон вводимого пользователем числа(раз не проходили массивы ) значит остаётся через
if then else или через case(если проходили) найти необходимый диапазон а после обработать с условием задачи

или как вариант выше (не заметил решение пока писал

)

@nestquik · 03.01.2013, 23:16 **[ТС]**

HighPredator, спасибо-с, только оно не совсем работает
попробуйте ввести число 10 или 1000

HighPredator · 03.01.2013, 23:33

Оно не совсем работает потому, что я не до конца записал условие выхода из цикла. Вечер... Условие в строке 22 должно выглядеть так:

Pascal

1	until (d=0) and (step=0);

@nestquik · 03.01.2013, 23:38 **[ТС]**

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

Pascal

1	until (d=0) and (step=0);

Спасибо.

@nestquik 1 / 1 / 0 Регистрация: 26.10.2012 Сообщений: 34
	03.01.2013, 23:16 [ТС]	11
	HighPredator, спасибо-с, только оно не совсем работает попробуйте ввести число 10 или 1000 0

@la2new 6 / 6 / 4 Регистрация: 27.08.2012 Сообщений: 21
	03.01.2013, 21:14	3
	Хмм..наглядный вариант 0

@nestquik 1 / 1 / 0 Регистрация: 26.10.2012 Сообщений: 34
	03.01.2013, 21:19 [ТС]	4
	Ещё не изучали "array[byte] of byte" можно без этого как-то? 0

@la2new 6 / 6 / 4 Регистрация: 27.08.2012 Сообщений: 21
	03.01.2013, 21:21	5
	Идея в том чтобы записывать значения остатка от деления в процессе выполнения программы,и потом вывести их с наоборот) 0

@nestquik 1 / 1 / 0 Регистрация: 26.10.2012 Сообщений: 34
	03.01.2013, 21:25 [ТС]	6
	Не особо понял - напишите. 0

@nestquik 1 / 1 / 0 Регистрация: 26.10.2012 Сообщений: 34
	03.01.2013, 22:07 [ТС]	8
	Ещё актуально - ведь так и не дали вариант без array[1..15] of byte 0

@isqoff Добры_Змейка 53 / 53 / 43 Регистрация: 09.06.2010 Сообщений: 170
	03.01.2013, 22:44	10
	вам не известен диапазон вводимого пользователем числа(раз не проходили массивы ) значит остаётся через if then else или через case(если проходили) найти необходимый диапазон а после обработать с условием задачи или как вариант выше (не заметил решение пока писал ) 0

Опции темы