Родились сегодня:
Rosiam


Лидеры рейтинга

ID: 226425

Konstantin Shvetski

Модератор

723

Россия, Северодвинск


ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

326

Россия, пос. Теплоозёрск, ЕАО


ID: 401284

Михаил Александров

Академик

279

Россия, Санкт-Петербург


ID: 325460

CradleA

Мастер-Эксперт

211

Беларусь, Минск


ID: 400815

alexleonsm

6-й класс

130


ID: 400669

epimkin

Профессионал

120


ID: 401888

puporev

Профессор

111

Россия, Пермский край


8.8.15

09.05.2021

JS: 2.8.21
CSS: 4.5.5
jQuery: 3.6.0
DataForLocalStorage: 2021-05-11 18:46:03-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 200473

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Jin (Посетитель)
Дата: 22.03.2021, 22:09 Консультация закрыта
Поступило ответов: 1

Здравствуйте! Пожалуйста, нужна помощь в решении задачи на Delphi:
Описать функцию min(X) для определения минимального элемента массива X.

Ответ # 280841 от puporev
Здравствуйте, Jin!
Поскольку слово min зарезервировано в делфи, от греха подальше назовем функцию my_min.
Так как в параметрах функции указан только массив без его размера, видимо размер задается констанотой.
Код
{$R *.dfm}
const n=20;
type mas=array[1..n] of integer;
function my_min(x:mas):integer;
var i:integer;
begin
result:=x[1];
for i:=2 to n do
if x[i]<result then result:=x[i];
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
with StringGrid1 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  rowcount:=1;
  colcount:=n;
  defaultcolwidth:=30;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a:mas;
    i:integer;
begin
randomize;
for i:=1 to n do
 begin
  a[i]:=-10+random(21);
  StringGrid1.Cells[i-1,0]:=inttostr(a[i]);
 end;
Label2.Caption:='Минимальный элемент массива='+inttostr(my_min(a));
end;

Пример формы

puporev

Профессор
23.03.2021, 06:27
Мини-форум консультации # 200473

Нет сообщений в мини-форуме

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

puporev

Профессор

Рейтинг: 111

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 73

Степанов Иван /REDDS

4-й класс

Рейтинг: 1

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

Орловский Дмитрий

Мастер-Эксперт

Рейтинг: 0