Определение табличного значения имея изначально 2 исходных значения?

[Михаил К.]

Здраствуйте. Сразу оговорю, что я только недавно начал изучать язык программирования. Суть вопроса: есть таблица значений Коэффициент доверия (Стъюдента)(многие студенты тех.ВУЗов знают). Таблица имеет вид:
Число измерений N Надёжность Sigma
0.5_______ 0.9;
2 1_________6.3;
3 0.82________2.9;
4 ...........................
5 ......................
.
. .............................
>20 0.67_______1.6;
Запрограммировал в след виде:

procedure TForm1.Button1Click(Sender: TObject);
 begin
 Sigma:=StrToFloat(Edit1.Text);
 N:=StrToInt(Edit2.Text);
 if (Sigma=0.5) And (N=2) then Kalfa:=1;
 if (Sigma=0.5) And (N=3) then Kalfa:=0.82;
 if (Sigma=0.5) And (N=4) then Kalfa:=0.77;
 if (Sigma=0.5) And (N=5) then Kalfa:=0.74;
 if (Sigma=0.5) And (N=6) then Kalfa:=0.73;
 if (Sigma=0.5) And (N=7) then Kalfa:=0.72;
 if (Sigma=0.5) And (N=8) then Kalfa:=0.71;
 if (Sigma=0.5) And (N=9) then Kalfa:=0.71;
 if (Sigma=0.5) And (N=10) then Kalfa:=0.70;
 if (Sigma=0.5) And (N=20) then Kalfa:=0.69;
 if (Sigma=0.5) And (N>20) then Kalfa:=0.67;
 if (Sigma=0.9) And (N=2) then Kalfa:=6.3;
 if (Sigma=0.9) And (N=3) then Kalfa:=2.9;
 if (Sigma=0.9) And (N=4) then Kalfa:=2.4;
 if (Sigma=0.9) And (N=5) then Kalfa:=2.1;
 if (Sigma=0.9) And (N=6) then Kalfa:=2.0;
 if (Sigma=0.9) And (N=7) then Kalfa:=1.9;
 Edit3.Text:=FloatToStr(Kalfa);
 end;

___________________________________ _____________________________
При запуске программы и вводе значений Sigma=0.5 и N без разницы всё нормально, т.е. выдаёт необходимый результат, а при вводе Sigma=0.9 выдаёт значение 0.

[romlo]

Странно, у меня тоже глючит.
Замени тип переменной sigma на string и попробуй так:

procedure TForm1.Button1Click(Sender: TObject);
 begin
 Sigma:=Edit1.Text;
 N:=StrToInt(Edit2.Text);
 if (Sigma='0,5') And (N=2) then Kalfa:=1;
 if (Sigma='0,5') And (N=3) then Kalfa:=0.82;
 if (Sigma='0,5') And (N=4) then Kalfa:=0.77;
 if (Sigma='0,5') And (N=5) then Kalfa:=0.74;
 if (Sigma='0,5') And (N=6) then Kalfa:=0.73;
 if (Sigma='0,5') And (N=7) then Kalfa:=0.72;
 if (Sigma='0,5') And (N=8) then Kalfa:=0.71;
 if (Sigma='0,5') And (N=9) then Kalfa:=0.71;
 if (Sigma='0,5') And (N=10) then Kalfa:=0.70;
 if (Sigma='0,5') And (N=20) then Kalfa:=0.69;
 if (Sigma='0,5') And (N>20) then Kalfa:=0.67;
 if (Sigma='0,9') And (N=2) then Kalfa:=6.3;
 if (Sigma='0,9') And (N=3) then Kalfa:=2.9;
 if (Sigma='0,9') And (N=4) then Kalfa:=2.4;
 if (Sigma='0,9') And (N=5) then Kalfa:=2.1;
 if (Sigma='0,9') And (N=6) then Kalfa:=2.0;
 if (Sigma='0,9') And (N=7) then Kalfa:=1.9;
 Edit3.Text:=FloatToStr(Kalfa);
 end;

[Stilet]

Иногда чтоб не париться с некорректностью обработки (пардонте, неточностью обработки) процессором вещественных чисел делают такой финт:

 var kalfa:Double;Sigma,n:integer;
 begin
 Sigma:=trunc(0.9*1000);
 N:=4;
 if (Sigma=500) And (N=2) then Kalfa:=1;
 if (Sigma=500) And (N=3) then Kalfa:=0.82;
 if (Sigma=500) And (N=4) then Kalfa:=0.77;
 if (Sigma=500) And (N=5) then Kalfa:=0.74;
 if (Sigma=500) And (N=6) then Kalfa:=0.73;
 if (Sigma=500) And (N=7) then Kalfa:=0.72;
 if (Sigma=500) And (N=8) then Kalfa:=0.71;
 if (Sigma=500) And (N=9) then Kalfa:=0.71;
 if (Sigma=500) And (N=10) then Kalfa:=0.70;
 if (Sigma=500) And (N=20) then Kalfa:=0.69;
 if (Sigma=500) And (N>20) then Kalfa:=0.67;
 if (Sigma=900) And (N=2) then Kalfa:=6.3;
 if (Sigma=900) And (N=3) then Kalfa:=2.9;
 if (Sigma=900) And (N=4) then Kalfa:=2.4;
 if (Sigma=900) And (N=5) then Kalfa:=2.1;
 if (Sigma=900) And (N=6) then Kalfa:=2.0;
 if (Sigma=900) And (N=7) then Kalfa:=1.9;
 write(Kalfa);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Преобразовывая с некой точностью вещественное в его подобие в виде целого.