Уровни автоматизации управления на предприятии

Автор работы: Пользователь скрыл имя, 31 Мая 2012 в 18:22, практическая работа

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

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

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

1. Электронные информационные технологии управления на предприятии 3
2. Уровни автоматизации управления на предприятии 4
3. Информационные технологии управления предприятием 5
4. Электронное документационное управление предприятием 6
5. Автоматизация процессов делопроизводства на предприятии 7
6. Производственные задачи с использованием Internet, использование ресурсов Internet в работе предприятия 8
7. Организация обмена информацией в сети предприятия 9
8. Топология, структура сети, используемое сетевое оборудование корпоративной сети предприятия 10
9. Организация и оценка уровня эффективности системы защиты информации на предприятии 11
10. Оценка экономической эффективности применения информационных технологий и систем на предприятии 12
11. Организация хранения и поиска экономической информации (классификация СУБД, использование СУБД в управлении предприятием) 13
12. Выводы и рекомендации по совершенствованию информационной структуры предприятия 14
13. Индивидуальное задание 15

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

Отчет №1.docx

— 286.62 Кб (Скачать файл)

    inc(i);

    for m:=1 to length(stroka) do

    begin

      if stroka[m]<>' '

      then simvol:=simvol+stroka[m]

      else begin

        arr[i,j]:=StrToInt(simvol);

        inc(j);

        simvol:='';

      end;

    end;

  end;

  for i:=1 to razm do

  for j:=1 to razm do

  StringGrid1.Cells[j-1,i-1]:=IntToStr(arr[i,j]); 

end; 

procedure TForm1.Button2Click(Sender: TObject);

begin

  for i:=1 to razm do diagonal[i]:=arr[i,i];

  for i:=1 to razm do

  begin

    n:=diagonal[i];

    j:=i-1;

    while (j>=0) and (diagonal[j]>n) do

    begin

      diagonal[j+1]:=diagonal[j];

      j:=j-1;

      diagonal[j+1]:=n;

    end;

  end;

  for i:=1 to razm do

  StringGrid1.Cells[i-1,i-1]:=IntToStr(diagonal[i]);

end; 

end.


Информация о работе Уровни автоматизации управления на предприятии