Процедура

[xxxPascalxxx]

Доброго времени суток всем!
У меня возникла проблема, делаю курсовик по нечёткой логике, почти всё готово, но на одном месте застрял...

Использую такую процедуру, что бы получить значения i и j (они являются указателями элемента в двумерном массиве).

  procedure MASS (a,b:real; k,l:integer);
var
i,j,p:integer;
x:array [0..4,0..6] of real;
begin
//для горячей
  if a=0.1 then i:=1;
  if a=0.3 then i:=2;
  if a=0.7 then i:=3;
  if a=0.9 then i:=4;
  k:=i;
  //для смешанной
  if b=0.1 then j:=1;
  if b=0.3 then j:=2;
  if b=0.5 then j:=3;
  if b=0.7 then j:=4;
  if b=0.9 then j:=5;
  if b=1 then j:=6;
  l:=j;
end;

Но вместо нормального числа получаю: 4381060 для i и 1243048 для j
никаких операций с этими переменными больше не провожу...
Из-за чего такое может быть???
Заранее спасибо!

[[CODER]]

У тебя a и б передаваемые в процедуру имеют значение не предусмотренное в вариантах выбора
попробуй a и b вывести на экран перед тек как вызываешь процедуру, я уверен что а не будет соответствовать ни одному из преложенных вариантов (0,1 0,3 0,7 0,9) b не будет равным (0,1 0,3 0,5 0,5 0,7 0,9)

[xxxPascalxxx]

Всё соответсвует, проверил. К сожалению, не в этом дело...

[[CODER]]

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

Всё соответсвует, проверил.

И что чему соответствует?
//-----------------------------
Зачем нужен массив
x:array [0..4,0..6] of real;
//-----------------------------
Выложи весь код и задание

[xxxPascalxxx]

Код весь не помещается... больше 1000 лишних символов.
Курсовая на тему "нечёткая логика в сетях управления".
Пытаюсь сделать регулятор температуры.

Прикрепил исходник.

[xxxPascalxxx]

из этого массива выбирается значение и в зависимости какое оно будет температура будет регулироваться по разному.
Программа ещё не дописана, застрял на это моменте.
Дробные значения от 0 до 1 это степень принадлежности. На пример доля горячей воды 90 градусов - это 0.9, а 36 градусов - 0.1.

[xxxPascalxxx]

всё, исправил, спасибо за сотрудничество =)