Помогите составить программу (Lazarus): Дано натуральное число п. Поменять порядок цифр числа на обратный.

[Ляйсан9517]

Дано натуральное число п. Поменять порядок цифр числа на обратный.

[ZX Spectrum-128]

Последовательно в цикле
Выписываем остатки от деления (mod)
Заносим их в массив
делим число на 10 (div)
Считаем количество делений

Затем выполняем
В обратном цикле от количества делений до 1
Число:=число+ Элемент массива * на 10^i



Можно и проще

[Serge_Bliznykov]

всё верно. но можно всё в одном цикле легко сделать:

var N,N0 : integer;
begin
  readln(N);
  N0 := 0; 

  while N>0 do begin
    N0 := N0*10 + (N mod 10);
    N := N div 10;
  end;

  writeln(N0);
  readln;
end.

внимание!
в данном алгоритме нули в конце числа перейдут в начало перевёрнутого числа и будут выброшены как незначащие.
Если нужно, чтобы нули вначале числа сохранились, нужно использовать строки для формирования перевёрнутого числа (т.е. N0 не нужен, нужно S0 - строка, где мы и будем собирать новое число.

[Utkin]

Раз это Лазарус, то можно еще как вариант - перевести число в строку и посимвольно также пересобрать в нужном виде. Код выполняется дольше, зато логика может быть оказаться более понятной.

[Serge_Bliznykov]

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

Раз это Лазарус, то можно еще как вариант - перевести число в строку и посимвольно также пересобрать в нужном виде. Код выполняется дольше, зато логика может быть оказаться более понятной.

Т.е. Вы хотите сказать, что в любом другом Паскале (например, в древнем досовском TurboPascal) нельзя перевести число в строку и пересобрать в нужном виде?! ))

p.s. можно и так, конечно. какой вариант выбрать - решать TC

[Utkin]

Т.е. Вы хотите сказать, что в любом другом Паскале (например, в древнем досовском TurboPascal) нельзя перевести число в строку и пересобрать в нужном виде?!

Нет, просто обычно если какой-нибудь Паскаль, то там преподы жестко ограничивают выбор средств и могут не засчитать такой вариант .

p.s. можно и так, конечно. какой вариант выбрать - решать TC

Первый очевидно, там же представлен готовый код

[Sasha_Smirnov]

Сообщение от Ляйсан9517

Поменять порядок цифр числа на обратный.

Со строкой алгоритм более массовый: натуральное число п не обязано быть десятичным

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

преподы жестко ограничивают выбор средств

А вы не в курсе — они в условии задачи об этом нарочно умалчивают?!

[Poma][a]

А можно все решить одной строкой

ReadLn(n);
WriteLn(ReverseString(IntToStr(n)))

[Utkin]

А вы не в курсе — они в условии задачи об этом нарочно умалчивают?!

По-разному бывает. Если идет определенная тема, то естественно предполагается что студент должен юзать именно вновь полученные знания . При этом задача может быть стандартная с какого-нибудь задачника/учебника/решебника и потому такое ограничение Вы узнаете только когда Вам препод скажет - переделать. Лазарусы же и прочие Делфи обычно идут уже после курса молодого бойца по овладеванию Паскалем и потому, как правило, свободы в выборе средств намного больше. Здесь уже чаще требуют результат, а не процесс.