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

ID: 226425

Konstantin Shvetski

Модератор

769

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


ID: 259041

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

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

343

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


ID: 401284

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

Академик

278

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


ID: 325460

CradleA

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

209

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


ID: 137394

Megaloman

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

158

Беларусь, Гомель


ID: 400815

alexleonsm

6-й класс

130


ID: 400669

epimkin

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

120


8.8.15

09.05.2021

JS: 2.8.21
CSS: 4.5.5
jQuery: 3.6.0
DataForLocalStorage: 2021-05-15 03:46:17-standard


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

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

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

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

Здравствуйте! Прошу помощи в написании кода для следующей задачи :
Дан одномерный массив из N элементов. Найти минимальный элемент из положительных вещественных элементов этого массива (Lazarus)

Ответ # 281031 от puporev
Код
{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var x:array of double;//динамический вещественый  массив
    n,i,imn:integer;
begin
repeat  //введем размер массива с проверкой
n:=strtoint(inputbox('','Введите размер масссива n>=5 n=','5'));
until n>=5;
setlength(x,n);//выделим под него память
//зададим параметры таблицы и создадим массив
with StringGrid1 do
 begin
  fixedrows:=0;
  fixedcols:=0;
  rowcount:=1;
  colcount:=n;
  defaultcolwidth:=35;
  for i:=0 to n-1 do
   begin
    x[i]:=strtofloat(inputbox('','x['+inttostr(i+1)+']=','0'));
    cells[i,0]:=floattostr(x[i]);
   end;
 end;
imn:=-1;
for i:=0 to n-1 do
if (frac(x[i])<>0)and(x[i]>0)then
 begin
  if imn=-1 then imn:=i
  else if x[i]<x[imn] then imn:=i;
 end;
if imn=-1 then Label1.Caption:='В массиве нет положительных вещественных чисел'
else Label1.Caption:='Минимальное положительное вещественное число='+format('%5.2f',[x[imn]]);
end;           

-----
Прикрепленные файлы:


puporev

Профессор
27.04.2021, 13:43
Мини-форум консультации # 200741

q_id

puporev

Профессор

ID: 401888

1

= общий =    27.04.2021, 10:58
KSIW2S:

Что значит "из положительных вещественных элементов"?
Я понимаю что есть массив вещественного типа, в который вводятся элементы без дробной части и с дробной частью и нужно найти миниальный из положительных чисел с дробной частью?
Или я неверно понял? Если это так, напишите свой вариант.

q_id

KSIW2S

Посетитель

ID: 401415

2

= общий =    27.04.2021, 13:37
puporev:

Вы всё правильно поняли

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

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

puporev

Профессор

Рейтинг: 111

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

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

Рейтинг: 74

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

4-й класс

Рейтинг: 1

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

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

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

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

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

Рейтинг: 0