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

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

Question

Информатика

Грипа

31 мая, 04:56

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

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

+2

Ответы (1)

Знаете ответ?

Валерьяша · Answer 1

Текст модуля (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