Информатика, опубликовано 2018-08-22 22:44:18 by Гость

Ребят,помогите,ничего вообще не понимаю...((Что вообще за модуль,содержащий процедуру..нужно написать программу)если можно с объяснениями) Написать модуль,содержащий процедуру нахождения минимальной цифры натурального числа. Привести пример использования данного модуля.(в Паскале)

Ответ оставил Гость

Текст модуля (Free Pascal):
unit MyLib;
interface
  procedure MinDigit(n:longint;var md:byte);
implementation
  procedure MinDigit(n:longint;var md:byte);
  var
    d:byte;
  begin
    md:=10;
    while n>0 do begin
      d:=n mod 10;
      if d      n:=n div 10
    end
  end;
begin
end.

Тестовая программа:
uses
  Crt, MyLib;
var
  p:byte;
begin
  ClrScr;
  MinDigit(45134,p);
  Writeln(p=,p);
  ReadKey
end.

Тестовое решение:
p=1

Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.

Форма вопроса доступна на полной версии этой страницы.