не удается вывести необходимые значения массива

@Genbl4 · Регистрация: 20.04.2013

Author24 — интернет-сервис помощи студентам

Вывести все элементы массива, абсолютные значения которых мень-ше 1.

Delphi

procedure TForm1.btn1Click(Sender: TObject);
const
  N=10;
var a:array [1..N] of Real;
    modul:real;
    i:Integer; //           èíäåêñ
 
 
    begin
 if Length(Strngrd1.Cells[i-1,0])<>0 then a[i]:=StrToFloat(strngrd1.Cells[i-1,0])
    else a[i]:=0;
 for i:=1 to N do
 modul:=Abs(a[i]);
 if ((modul)<1) and ((modul)>0) then  lbl1.Caption:=(modul + FloatToStr(modul))
  else lbl1.caption:='÷èñåë, àáñîëþòíûå çíà÷åíèÿ êîòîðûõ ìåíüøå 1, íåò';
 
 
 end;
 
end.

после строки " if ((modul)<1) and ((modul)>0) then lbl1.Caption:=(modul + FloatToStr(modul))" выдает ошибку "[Error] Unit1.pas(42): Incompatible types: 'String' and 'Real'" что не так то?

@droider · 20.04.2013, 15:48

Delphi

1	lbl1.Caption:='modul' + FloatToStr(modul);

апострофы забыли.

@Genbl4 · 20.04.2013, 15:55 **[ТС]**

Сообщение от droider

Delphi

1	lbl1.Caption:='modul' + FloatToStr(modul);

апострофы забыли.

нет, если апострофы поставлю,то будет выводиться слово modul, а мне нужно что бы выводились все елементы массива, модуль которых меньше 1

20.04.2013, 16:10

Delphi

var
  St : String;
...
  St := '';
  lbl1.caption := 'чисел, абсолютные значения которых меньше 1, нет';
  for i := 1 to N do
  begin
    modul := Abs(a[i]);
    if (modul < 1) and (modul > 0) then
      St := St + FloatToStr(modul) + ' '
  end;
  
  if St <> '' then
    lbl1.caption := St;

@Genbl4 · 20.04.2013, 18:44 **[ТС]**

не работает..
почему ошибку выдает

не удается вывести необходимые значения массива

код

Delphi

procedure TForm1.btn1Click(Sender: TObject);
const
  N=10;
var a,b:array [1..N] of Real;
    modul:real;
    i:Integer; //           èíäåêñ
    ST:string;
 
    begin
 if ((Length(Strngrd1.Cells[i-1,0]))<>0)
then a[i] := StrToFloat(Strngrd1.Cells[i-1, 0]) else a[i] := 0;
 St := '';
 
  for i := 1 to N do
  begin
    modul := Abs(a[i]);
    if (modul < 1) then
      St := St + FloatToStr(a[i]) + ' ';
       lbl1.caption := St;
     if (modul > 1) then lbl1.caption := '÷èñåë, àáñîëþòíûå çíà÷åíèÿ êîòîðûõ ìåíüøå 1, íåò';
  end;
 
end;
end.

даже когда вводишь все числа больш 1 по модулю, не выводится сообщение что все введеные числа больше 1

20.04.2013, 23:36

Сообщение от Genbl4

почему ошибку выдает

А что должно быть?

1. I не инициализирована

Delphi

1	if ((Length(Strngrd1.Cells[i-1,0]))<>0)

2. Изменение приведённого мною кода на свой вариант, ни к чему хорошему не приведёт.

	20.04.2013, 23:36