Информатика, опубликовано 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
end
end;
begin
end.
Тестовая программа:
uses
Crt, MyLib;
var
p:byte;
begin
ClrScr;
MinDigit(45134,p);
Writeln(p=,p);
ReadKey
end.
Тестовое решение:
p=1
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
