у вигляді граф-схеми (Ріс.5.4.1.).
Граф-схема обробка ()
Функція обробки бази знань
В
Ріс.5.4.1.
ВИСНОВОК
У ході виконання курсової роботи була розроблена і реалізована програма, що дозволяє вибрати постачальника товарів. Програма являє собою аналог продукційної моделі подання знань (зіставлення зразків і консіквентов). p> ДОДАТОК
Додаток 1
ТЕКСТ ПРОГРАМИ
using
Kurs_TPR
{partial class Form1: Form
{DatA Data = new DatA (); Form1 ()
{();. ініціалізація_БД ();
} void label3_Click (object sender, EventArgs e)
{this.Close ();}
void move_exit (object sender, MouseEventArgs e)
{label3.ForeColor = Color.BlueViolet;} void move_form (object sender, MouseEventArgs e)
{label3.ForeColor = Color.Maroon;}
void move_title (object sender, MouseEventArgs e)
{panel4.Visible = true;}
void move_title_end (object sender, MouseEventArgs e)
{panel4.Visible = false;}
void обробка ()
{зміна = false; ((Data.BD [0]. yslovie1.ActivE == true) && (Data.BD [0]. yslovie2.ActivE == true) & & (Data.BD [0]. yslovie3.ActivE == true))
{ "+ Data.BD [0]. Deistvie);. Items.Add (" <--- X ---> ");
} else
{if (Data.BD [0]. yslovie1.ActivE == false)
{((Data.BD [1]. yslovie1.ActivE == true) | | (Data.BD [1]. yslovie2.ActivE == true))
{if (Data.BD [1]. yslovie1.ActivE == true) "+ Data.BD [1]. Deistvie);. Items.Add (" <--- X ---> ");. BD [0]. Yslovie1.ActivE = true;. Checked = true;
зміна = true;
} if (((Data.BD [2]. yslovie2.ActivE == true) && (Data.BD [2]. yslovie3.ActivE == true)) | | ( Data.BD [2]. yslovie1.ActivE == true))
{if ((Data.BD [2]. yslovie1.ActivE == true) && (Data.BD [2]. yslovie2.ActivE == false)). Items.Add (Data.BD [2]. yslovie1.yslovie);
{listBox1.Items.Add (Data.BD [2]. yslovie2.yslovie);. Items.Add (Data.BD [2]. yslovie3.yslovie);
};. Items.Add ("ВИСНОВОК:" + Data.BD [2]. deistvie);. Items.Add ("<--- X ---> ");. BD [1]. yslovie2.ActivE = true;. Checked = true;
зміна = true;
}
} (Data.BD [0]. yslovie2.ActivE == false)
{if ((Data.BD [3]. yslovie1.ActivE == true) | | (Data.BD [3]. yslovie2.ActivE == true))
{if (Data.BD [3]. yslovie1.ActivE == true) "+ Data.BD [3]. Deistvie);. Items...
