| ← Май 2021 → | ||||||
|
1
|
||||||
|---|---|---|---|---|---|---|
|
3
|
4
|
5
|
6
|
7
|
8
|
9
|
|
10
|
11
|
12
|
13
|
14
|
15
|
16
|
|
17
|
18
|
19
|
20
|
21
|
23
|
|
|
24
|
27
|
28
|
29
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
Pascal / Delphi / Lazarus
Здравствуйте! Прошу помощи в написании кода для следующей задачи :
Дата отправки: 27.04.2021, 10:38 Консультирует 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;
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
