Если IF более 10 как правильно написать

[Geol_60]

Прошу строго не судить...
Есть десять отрезков ломаная кривая, нужно выбрать по условию если значение на этой кривой. В Excel всё прекрасно получается с помощью вложенных функций: Если и И. В Delphi ни как не получается...

procedure TForm1.btn2Click(Sender: TObject);
    var t, t1, T2, b: Real;
    b1, b2, b3, b4, b5, b6, b7, b8, b9, b10 :Real;  //  пересчет таблицы, данные с графика

begin

       t:=StrToFloat(lbledt8.Text);      // время
       t1:=StrToFloat(lbledt7.Text);      // время
       T2:=t/t1;
       b1:=1-abs(T2-2)*0.147/0.2;
       b2:=0.853-abs(T2-2.2)*0.127/0.2;
       b3:=0.726-abs(T2-2.4)*0.11/0.2;
       b4:=0.616-abs(T2-2.6)*0.102/0.2;
       b5:=0.514-abs(T2-2.8)*0.103/0.2;
       b6:=0.411-abs(T2-3)*0.097/0.2;
       b7:=0.314-abs(T2-3.2)*0.083/0.2;
       b8:=0.231-abs(T2-3.4)*0.088/0.2;
       b9:=0.143-abs(T2-3.6)*0.079/0.2;
       b10:=0.064-abs(T2-3.8)*0.064/0.13;

  // отношение t/t1=T2  и может изменятся от 2 до 3,93 см.график
  // используется для выбора b с графика

   lbl8.Caption:='t/t1 = '+FloatToStr(T2);

     if (T2>=2)  and (2.2>=T2) then
          lbledt6.Text:=FloatToStr(b1)
       else  lbledt6.Text:=' Нет данных ';

     if (T2>2.2)  and (2.4>=T2) then
         lbledt6.Text:=FloatToStr(b2)
     else    lbledt6.Text:=' Нет данных ';

     if (T2>2.4)  and (2.6>=T2) then
         lbledt6.Text:=FloatToStr(b3)
     else   lbledt6.Text:=' Нет данных ';

     if (T2>2.6)  and (2.8>=T2) then
         lbledt6.Text:=FloatToStr(b4)
     else   lbledt6.Text:=' Нет данных ';

     if (T2>2.8)  and (3>=T2) then
         lbledt6.Text:=FloatToStr(b5)
     else   lbledt6.Text:=' Нет данных ';

     if (T2>3)  and (3.2>=T2) then
         lbledt6.Text:=FloatToStr(b6)
     else   lbledt6.Text:=' Нет данных ';

     if (T2>3.2)  and (3.4>=T2) then
         lbledt6.Text:=FloatToStr(b7)
     else   lbledt6.Text:=' Нет данных ';

     if (T2>3.4)  and (3.6>=T2) then
        lbledt6.Text:=FloatToStr(b8)
     else   lbledt6.Text:=' Нет данных ';

     if (T2>3.6)  and (3.8>=T2) then
         lbledt6.Text:=FloatToStr(b9)
     else   lbledt6.Text:=' Нет данных ';

     if (T2>3.8)  and (3.93>=T2) then
          lbledt6.Text:=FloatToStr(b10)
       else   lbledt6.Text:=' Нет данных ';

     end;

end.

[northener]

Выкинуть из кода все lbledt6.Text:=' Нет данных ';
кроме самой последней.

[min@y™]

массивы и циклы использовать по условию задачи запрещено?

[Человек_Борща]

как-то так:

case T2 of
2.0..2.2: ...
end else
 'Нет данных'

[min@y™]

Сообщение от Человек_Борща

как-то так:

case T2 of
2.0..2.2: ...
end else
 'Нет данных'

Борщ, ты пьяный, штоль? Чо городишь-то?!

[Аватар]

Так можно, если с константами не напутал. Да, и без массива b можно спокойно обойтися. Сам подумай как

procedure TForm1.btn2Click(Sender: TObject);
const c1: array[1..10] of Real = (1,0.853,0.726,0.616,0.514,0.411,0.314,0.231,0.143,0.064);
      c2: array[1..10] of Real = (0.147/0.2,0.127/0.2,0.11/0.2,0.102/0.2,0.103/0.2,
                                  0.097/0.2,0.083/0.2,0.088/0.2,0.079/0.2,0.064/0.13);
var t, t1, T2: Real;
    b: array[1..10] of Real;
    i: Integer;
begin
  t:=StrToFloat(lbledt8.Text);      // время
  t1:=StrToFloat(lbledt7.Text);      // время
  T2:=t/t1;
  lbledt6.Text:=' Нет данных ';
  for i:=1 to 10 do begin
    b[i]:=c1[i]-abs(T2-2-(i-1)*0.2)*c2[i];
    if (((i=1) and (T2>=2)) or ((i>1) and (T2>2+(i-1)*0.2))) and
       (((i<10) and (T2<=2+i*0.2)) or ((i=10) and (T2<=3.93))) then lbledt6.Text:=FloatToStr(b[i]);
  end;
  lbl8.Caption:='t/t1 = '+FloatToStr(T2);
end;

2.0..2.2: ...

Прикольно

[northener]

Сообщение от Аватар

Так можно, если с константами не напутал.
...
Прикольно

Прикольно, но совершенно мозгоубийственно. Можно проще и, главное, более легкочитаемое. И без цикла.

[Geol_60]

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

Выкинуть из кода все lbledt6.Text:=' Нет данных ';
кроме самой последней.

Выкинул всё лишнее, но работает не так как надо. Выдает сообщение Нет данных .

[northener]

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

Выкинул всё лишнее, но работает не так как надо. Выдает сообщение Нет данных .

Покажи код после этого "выкидыша".

[Geol_60]

Сообщение от min@y™

массивы и циклы использовать по условию задачи запрещено?

Использовать массивы и циклы конечно можно, главное получить результат, но так как данная формула работала в Excel (см. файл IF_10.xls) через условия: Если и И, то я конечно решил, что и в Delphi, возможно такое решение, и про массивы и циклы вообще не думал.... IF_10.zip