Моделирование вариантов выхода из мирового экономического кризиса кондитерской «Dolce vita»

Автор работы: Пользователь скрыл имя, 24 Марта 2012 в 09:30, курсовая работа

Краткое описание

В информатике экспертные системы рассматриваются совместно с базами знаний как модели поведения экспертов в определенной области знаний с использованием процедур логического вывода и принятия решений, а базы знаний – как совокупность фактов и правил логического вывода в выбранной предметной области деятельности.
Обычно факты в базе знаний описывают те явления, которые являются постоянными для данной предметной области.

Содержание работы

ВВЕДЕНИЕ 3
РАЗДЕЛ 1. КОНДИТЕРСКАЯ «DOLCE VITA» 7
1.1. ОБЩИЕ СВЕДЕНИЯ 7
1.2. СПЕЦИФИКАЦИЯ ПРЕДПРИЯТИЯ 9
1.3. ДЕЯТЕЛЬНОСТЬ КОНДИТЕРСКОЙ В ПЕРИОД КРИЗИСА 9
РАЗДЕЛ 2. ПОСТАНОВКА ПРОБЛЕМЫ И ЗАДАЧИ 10
2.1. ПОСТАНОВКА ПРОБЛЕМЫ 10
2.2. ПОСТАНОВКА ЗАДАЧИ 10
2.3. ТРЕБОВАНИЯ К СОЗДАВАЕМОЙ ЭКСПЕРТНОЙ СИСТЕМЕ 10
РАЗДЕЛ 3. ОСНОВА ДЛЯ СОЗДАНИЯ АВТОМАТИЗИРОВАННОЙ СИСТЕМЫ 12
3.1. РАЗРАБОТКА КОМПЛЕКСА МЕР ДЛЯ ВЫХОДА ИЗ КРИЗИСА И 12
3.2. СПОСОБ ПРИМЕНЕНИЯ РАЗРАБОТАННЫХ МЕР 14
РАЗДЕЛ 4. ОБЗОР ПРОГРАММЫ 18
4.1. БЛОК-СХЕМА ПРОГРАММЫ 18
4.2. ВЫБОР ЯЗЫКА ПРОГРАММИРОВАНИЯ 19
4.3. ЭСКИЗНЫЙ ПРОЕКТ ПРОГРАММЫ 21
4.4. ТЕСТИРОВАНИЕ ПРОГРАММЫ 27
ЗАКЛЮЧЕНИЕ 33
СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ 34
ПРИЛОЖЕНИЕ. КОД ПРОГРАММЫ ОШИБКА! ЗАКЛАДКА НЕ ОПРЕДЕЛЕНА.

Скачать целиком (1.53 Мб) Сколько стоит заказать работу?

Содержимое работы - 1 файл

Курсовая работа РиСПО.doc

— 1.83 Мб (Скачать файл)

break;

case mrNo:

{

}

break;

}

a=StrToInt(StringGrid1->Cells[1][2]);

a+=StrToInt(StringGrid1->Cells[1][3]);

a+=StrToInt(StringGrid1->Cells[1][4]);

a+=StrToInt(StringGrid1->Cells[1][5]);

a+=StrToInt(StringGrid1->Cells[1][6]);

a+=StrToInt(StringGrid1->Cells[1][7]);

a+=StrToInt(StringGrid1->Cells[1][8]);

a+=StrToInt(StringGrid1->Cells[1][9]);

Label1->Caption="Новый суммарный доход составит: "+IntToStr(a)+"руб";

int a2=StrToInt(StringGrid1->Cells[2][2]);

a2+=StrToInt(StringGrid1->Cells[2][3]);

a2+=StrToInt(StringGrid1->Cells[2][4]);

a2+=StrToInt(StringGrid1->Cells[2][5]);

a2+=StrToInt(StringGrid1->Cells[2][6]);

a2+=StrToInt(StringGrid1->Cells[2][7]);

a2+=StrToInt(StringGrid1->Cells[2][8]);

a2+=StrToInt(StringGrid1->Cells[2][9]);

Label2->Caption="Новый суммарный расход составит: "+IntToStr(a2)+"руб";

a-=a2;

if (a>0)

{

Label3->Caption="Новая прибыль: "+IntToStr(a)+" руб";

}

else {

Label3->Caption="Новый убыток: "+IntToStr(a*-1)+" руб";

}

//---------------------------------------------------------------------------

void __fastcall TForm7::StringGrid1KeyUp(TObject *Sender, WORD &Key,

TShiftState Shift)

{

if ((StringGrid1->Cells[StringGrid1->Row][StringGrid1->Col]=="")&&(Key==VK_BACK))

{

StringGrid1->Cells[StringGrid1->Row][StringGrid1->Col]="1";

}

else if (Key!=VK_BACK)

{

StringGrid1->Cells[1][2]=Form1->CSpinEdit1->Text;

StringGrid1->Cells[1][3]=Form1->CSpinEdit2->Text;

StringGrid1->Cells[1][4]=Form1->CSpinEdit3->Text;

StringGrid1->Cells[1][5]=Form1->CSpinEdit4->Text;

StringGrid1->Cells[1][6]=Form1->CSpinEdit5->Text;

StringGrid1->Cells[1][7]=Form1->CSpinEdit6->Text;

StringGrid1->Cells[1][8]=Form1->CSpinEdit7->Text;

StringGrid1->Cells[1][9]=Form1->CSpinEdit20->Text;

StringGrid1->Cells[2][2]=IntToStr(Form1->sr*25/100);

StringGrid1->Cells[2][3]=IntToStr(Form1->sr*25/100);

StringGrid1->Cells[2][4]=IntToStr(Form1->sr*15/100);

StringGrid1->Cells[2][5]=IntToStr(Form1->sr*5/100);

StringGrid1->Cells[2][6]=IntToStr(Form1->sr*10/100);

StringGrid1->Cells[2][7]=IntToStr(Form1->sr*7/100);

StringGrid1->Cells[2][8]=IntToStr(Form1->sr*5/100);

StringGrid1->Cells[2][9]=IntToStr(Form1->sr*8/100);

StringGrid1->Cells[5][2]=IntToStr(StrToInt(StringGrid1->Cells[1][2])/StrToInt(StringGrid1->Cells[4][2]));

StringGrid1->Cells[5][3]=IntToStr(StrToInt(StringGrid1->Cells[1][3])/StrToInt(StringGrid1->Cells[4][3]));

StringGrid1->Cells[5][4]=IntToStr(StrToInt(StringGrid1->Cells[1][4])/StrToInt(StringGrid1->Cells[4][4]));

StringGrid1->Cells[5][5]=IntToStr(StrToInt(StringGrid1->Cells[1][5])/StrToInt(StringGrid1->Cells[4][5]));

StringGrid1->Cells[5][6]=IntToStr(StrToInt(StringGrid1->Cells[1][6])/StrToInt(StringGrid1->Cells[4][6]));

StringGrid1->Cells[5][7]=IntToStr(StrToInt(StringGrid1->Cells[1][7])/StrToInt(StringGrid1->Cells[4][7]));

StringGrid1->Cells[5][8]=IntToStr(StrToInt(StringGrid1->Cells[1][8])/StrToInt(StringGrid1->Cells[4][8]));

StringGrid1->Cells[5][9]=IntToStr(StrToInt(StringGrid1->Cells[1][9])/StrToInt(StringGrid1->Cells[4][9]));

StringGrid1->Cells[6][2]=IntToStr(StrToInt(StringGrid1->Cells[1][2])/StrToInt(StringGrid1->Cells[3][2]));

StringGrid1->Cells[6][3]=IntToStr(StrToInt(StringGrid1->Cells[1][3])/StrToInt(StringGrid1->Cells[3][3]));

StringGrid1->Cells[6][4]=IntToStr(StrToInt(StringGrid1->Cells[1][4])/StrToInt(StringGrid1->Cells[3][4]));

StringGrid1->Cells[6][5]=IntToStr(StrToInt(StringGrid1->Cells[1][5])/StrToInt(StringGrid1->Cells[3][5]));

StringGrid1->Cells[6][6]=IntToStr(StrToInt(StringGrid1->Cells[1][6])/StrToInt(StringGrid1->Cells[3][6]));

StringGrid1->Cells[6][7]=IntToStr(StrToInt(StringGrid1->Cells[1][7])/StrToInt(StringGrid1->Cells[3][7]));

StringGrid1->Cells[6][8]=IntToStr(StrToInt(StringGrid1->Cells[1][8])/StrToInt(StringGrid1->Cells[3][8]));

StringGrid1->Cells[6][9]=IntToStr(StrToInt(StringGrid1->Cells[1][9])/StrToInt(StringGrid1->Cells[3][9]));

int c=(StrToInt(StringGrid1->Cells[8][2])/StrToInt(StringGrid1->Cells[7][2]))*100;

c+=(StrToInt(StringGrid1->Cells[8][3])/StrToInt(StringGrid1->Cells[7][3]))*100;

c+=(StrToInt(StringGrid1->Cells[8][4])/StrToInt(StringGrid1->Cells[7][4]))*100;

c+=(StrToInt(StringGrid1->Cells[8][5])/StrToInt(StringGrid1->Cells[7][5]))*100;

c+=(StrToInt(StringGrid1->Cells[8][6])/StrToInt(StringGrid1->Cells[7][6]))*100;

c+=(StrToInt(StringGrid1->Cells[8][7])/StrToInt(StringGrid1->Cells[7][7]))*100;

c+=(StrToInt(StringGrid1->Cells[8][8])/StrToInt(StringGrid1->Cells[7][8]))*100;

c+=(StrToInt(StringGrid1->Cells[8][9])/StrToInt(StringGrid1->Cells[7][9]))*100;

Label4->Caption="Темп роста (среднее значение): " + IntToStr(c/8);

int a=StrToInt(StringGrid1->Cells[5][2]);

a+=StrToInt(StringGrid1->Cells[5][3]);

a+=StrToInt(StringGrid1->Cells[5][4]);

a+=StrToInt(StringGrid1->Cells[5][5]);

a+=StrToInt(StringGrid1->Cells[5][6]);

a+=StrToInt(StringGrid1->Cells[5][7]);

a+=StrToInt(StringGrid1->Cells[5][8]);

a+=StrToInt(StringGrid1->Cells[5][9]);

Label5->Caption="Коэффициент лидерства (среднее значение): " + IntToStr(a/8);