Разработка автоматизированной системы для рекламной фирмы

      goto Goto_f;

    end else

  begin

    kol_tel_4:= StrToFloat (edit1.Text);

    Mas_kol[schet]:= kol_tel_4; 

    if kol_tel_4<100 then

        begin

        Mas_skid_4[schet]:= 0;

        label12.Caption:= FloatToStr (Mas_skid_4[schet]);

        end else

    if ((kol_tel_4>=100) and (kol_tel_4<=500)) = true then

        begin

        Mas_skid_4[schet]:= 0.05;

        label12.Caption:= FloatToStr (Mas_skid_4[schet]);

        end else

    if ((kol_tel_4>500) and (kol_tel_4<=1500)) = true then

        begin

        Mas_skid_4[schet]:= 0.08;

        Label12.Caption:= FloatToStr (Mas_skid_4[schet]);

        end else

        begin

        Mas_skid_4[schet]:= 0.13;

        label12.Caption:= FloatToStr (Mas_skid_4[schet]);

        end; 

    schet:= schet+1;

  label11.Caption:= FloatToStr (schet); 
 
 

    {label3.Caption:= FloatToStr (Mas_kol[schet]);

    if kol_tel_4<100 then

        begin

        Mas_skid_4[schet]:= 0;

        label12.Caption:= FloatToStr (Mas_skid_4[schet]);

        end else

    if ((kol_tel_4>=100) and (kol_tel_4<=500)) = true then

        begin

        Mas_skid_4[schet]:= 0.05;

        label12.Caption:= FloatToStr (Mas_skid_4[schet]);

        end else

    if ((kol_tel_4>500) and (kol_tel_4<=1500)) = true then

        begin

        Mas_skid_4[schet]:= 0.08;

        Label12.Caption:= FloatToStr (Mas_skid_4[schet]);

        end else

        begin

        Mas_skid_4[schet]:= 0.13;

        label12.Caption:= FloatToStr (Mas_skid_4[schet]);

        end;} 

  edit1.Text:= '';

  end;

  Goto_f:

end; 

procedure TForm6.FormShow(Sender: TObject);

begin

  schet:= 1;

  label11.Caption:= FloatToStr (schet);

end; 

procedure TForm6.Button2Click(Sender: TObject);

begin

  edit1.Text:= '';

  label7.Caption:= '';

  label8.Caption:= '';

  label9.Caption:= '';

  form6.Close;

  form2.Show;

end; 

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  edit1.Text:= '';

  label7.Caption:= '';

  label8.Caption:= '';

  label9.Caption:= '';

  form2.Show;

end; 

    end.  
ЗАКЛЮЧЕНИЕ

    Команда специалистов разработала такую  экспертную систему, которая в режиме диалога предлагает 4 способа стабилизации финансового состояния компании-производителя сотовых телефонов. Все варианты являются работоспособными.

    Заказчик  выдвинул требование к системе - предоставление возможных вариантов выхода из кризиса. Также немаловажным требованием  являлось создание хорошего интерфейса.

    Эксперт, исследовав все возможные варианты, произвел расчет необходимых формул. В то же время постановщик задачи создал алгоритм работы системы (программы).

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

    Заключительным  этапом создания системы стала обработка полученных данных. Заказчик и программист составили инструкцию для пользователя, также заказчик провел тестирование системы.

    По  результатам проделанной работы можно сделать вывод, что созданная  экспертная система соответствует  всем требованиям пользователя-заказчика.

 

    

СПИСОК  ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. ГОСТ 34.601-90 Автоматизированные системы. Стадии создания.

2. ГОСТ 35.080

3. Культин Н. Б.  Основы программирования в Delphi 7.