Ребят,помогите,ничего вообще не понимаю...((Что вообще за модуль,содержащий процедуру..нужно написать программу)если можно с объяснениями)
Написать модуль,содержащий процедуру нахождения минимальной цифры натурального числа. Привести пример использования данного модуля.(в Паскале)
Аноним:
Модуль - это самостоятельная единица в языке Паскаль, которая подключается при помощи служебного слова Uses. Чтобы правильно написать такой модуль, нужно знать версию языка (Turbo/Borland Pascal 7, Pascal.ABC, PascalABC.Net, Free Pascal? Object Pascal, Borland Delphi и т.д.)
Кто-то прогуливал занятия? )))
Free pascal
ну да,есть такой грешок))
Ответы на вопрос
Ответил Аноним
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<md then md:=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
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<md then md:=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
а что значит interface ,implementation, и почему MyLib и MinDigit?
Что значат эти слова - посмотрите в Интернет, там все ясно расписано. Что касается двух последних имен - я так захотел. Имена могут быть любыми. Вы же не спрашиваете, почему переменные в программе называются p,b,n и т.д.?
Новые вопросы