Найти найменьшую цифру введенного числа (задача на паскаль)

[Heming]

Дано:Найти найменьшую цифру введенного числа.

Я так понимаю нужно через div и mod, а цифры внести в массив, в котором найти минимальное(идея вроде есть, а реализовать коректно не получается). Я очень давно учил паскаль и практически ничего не помню, если кто может решить наиболее рационально было б шикарно, заранее спс.



______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[Serge_Bliznykov]

Я так понимаю нужно через div и mod

да. именно так.

а цифры внести в массив, в котором найти минимальное

нет смысла использовать массив там, где он не нужен.


Нахождение минимального - это же простой однопроходный алгоритм.
можно, например, так решить:

var Num : longint; {наше число}
    MinDigit, OneDigit : integer;
begin
  WriteLn;
  Write('Vvedite chislo: ');
  Readln(Num);
  Num := abs(Num); {если ввели отрицательное число - сделаем его положительным}

  if Num=0 then MinDigit := 0 {если ввели число ноль, то и минимальная цифра ноль - и нечего тут искать!}
  else
    MinDigit := 10; {сначала положим за основу максимальное (невозможное) значение}  
  while Num>0 do begin
      OneDigit := Num mod 10;
      Num := Num div 10;
      if OneDigit<MinDigit then MinDigit := OneDigit;
  end;
  WriteLn('Minimalnay cifra = ', MinDigit);
  Readln
end.

[Heming]

Фак, я идиот, это действ. примитив, я все так же написал, но строчку с ветвлением провтыкал.
Спасибо большое, все учту.
if OneDigit<MinDigit then MinDigit := OneDigit;(я думаю, тут <= надо ибо если будет 41112, то прогу будет выбивать без равности)
Сейчас думаю как ограничить ввод таких чисел как (0341), не подскажите идейку?!

[veniside]

тут <= надо

не надо

[Heming]

Да действ. не надо, ведь оно просто его пропускает при цикле, тем самым учитвая этот факт, то из-за другого вылетало,
но что делать с 0001231

[Serge_Bliznykov]

veniside, спасибо.
разумеется, тут не надо менять строгое равенство на нестрогое!

Сейчас думаю как ограничить ввод таких чисел как (0341), не подскажите идейку?!

Что означает, в вашем понимании, "ограничить" ?

к любому числу могут дописаны слева нули. Эти нули называются "незначащими". Потому что они ничего не значат для величины числа.
Если Вы в данную программу введёте 0341, то программа абсолютно резонно воспримет его как число 341.

[Heming]

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

[veniside]

Сейчас я скажу страшное: ведущие нули хранятся в Num всегда (ну почти)! Просто потому, что для них есть место. Независимо от того, ввели вы 0001231 или 1231, в память запишется 000004CF (hex). Уже испугались? Нет? Почему? Правильно, потому что они отбрасываются при вычислениях.

> данное комб.цифр не есть числом, ибо ноль спереди

с чего это вдруг?

> как вот определить первую цифру введенного "числа"

внутри while проверять:

  if (10 > Num) then
    WriteLn('Первая цифра: ', Num);

Заметьте, первая цифра никогда не будет 0!