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

[Geol_60]

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

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

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);

     if (T2>2.2)  and (2.4>=T2) then
         lbledt6.Text:=FloatToStr(b2);

     if (T2>2.4)  and (2.6>=T2) then
              lbledt6.Text:=FloatToStr(b3);

     if (T2>2.6)  and (2.8>=T2) then
          lbledt6.Text:=FloatToStr(b4);


     if (T2>2.8)  and (3>=T2) then
         lbledt6.Text:=FloatToStr(b5);


     if (T2>3)  and (3.2>=T2) then
         lbledt6.Text:=FloatToStr(b6);


     if (T2>3.2)  and (3.4>=T2) then
         lbledt6.Text:=FloatToStr(b7);


     if (T2>3.4)  and (3.6>=T2) then
        lbledt6.Text:=FloatToStr(b8);


     if (T2>3.6)  and (3.8>=T2) then
         lbledt6.Text:=FloatToStr(b9);


     if (T2>3.8)  and (3.93>=T2) then
          lbledt6.Text:=FloatToStr(b10)
       else   lbledt6.Text:=' Íåò äàííûõ ';

     end;

end.

[Geol_60]

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

Так можно, если с константами не напутал. Да, и без массива 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;

Прикольно

Спасибо, ваш вариант работает, единственное при значении 3,93 - выдаёт - Нет данных, а должно быть ноль, я пока с этим не смог разобраться... А так предложенный Вами вариант, выше моего разумения... есть на кого равняться.
Как обойтись без массива, тоже до меня пока не доходит

[Stilet]

Как обойтись без массива, тоже до меня пока не доходит

Не нужно делать то, что совершенно нецелесообразно, только из-за своей прихоти. Делай так чтоб работало, а не так чтоб чувствовать себя крутым кулхацкером.

[Аватар]

Обхаяли мой цикл, ну и ладно. С ифами так правильно будет

if (T2>=2)  and (2.2>=T2) then lbledt6.Text:=FloatToStr(b1)
else  if (T2>2.2)  and (2.4>=T2) then lbledt6.Text:=FloatToStr(b2)
else  if (T2>2.4)  and (2.6>=T2) then lbledt6.Text:=FloatToStr(b3)
...
else if (T2>3.8)  and (3.93>=T2) then lbledt6.Text:=FloatToStr(b10)
else   lbledt6.Text:=' Нет данных ';

[Geol_60]

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

С ифами так правильно будет

if (T2>=2)  and (2.2>=T2) then lbledt6.Text:=FloatToStr(b1)
else  if (T2>2.2)  and (2.4>=T2) then lbledt6.Text:=FloatToStr(b2)
else  if (T2>2.4)  and (2.6>=T2) then lbledt6.Text:=FloatToStr(b3)
...
else if (T2>3.8)  and (3.93>=T2) then lbledt6.Text:=FloatToStr(b10)
else   lbledt6.Text:=' Нет данных ';

Спасибо, всё отлично работает.... А с циклами 1-Ваш вариант для меня сложен, но постараюсь освоить.