2
Оглавление 2
Электронные информационные технологии управления на предприятии
Предприятие широко использует информационные технологии управления производством. Кроме обычных персональных компьютеров и оргтехники на рабочих местах работников административных корпусов, организация пользуется зарубежными технологиями управления производственными процессами, что значительно снижает время на изготовление единиц продукции, а также сокращает ненужные рабочие места.
Ведется база данных, в которой отражены все сотрудники, а также сведения о них, помещения, работы. База данных активно пополняется и изменяется программистами.
Вне административных корпусов предприятия в рабочих цехах автоматизированы некоторые технологические процессы, включая рисующие и режущие плоттера для раскроя, использующие высококачественное немецкое ПО, а также контроль выпускаемой продукции, осуществляемый считыванием штрих-кодов, наклеенных на каждую единицу готовой продукции. Кроме этого, автоматизирован склад готовой продукции посредством кодирования по штрих-кодам мест хранения единиц, что существенно снижает утери готовой продукции.
Уровни автоматизации управления на предприятии
На предприятии автоматизировано:
Изготовление лекал;
Склад;
Учет готовой продукции;
Учет сырья;
Учет сотрудников;
Учет помещений;
Учет оборудования;
Заявки на работы и ремонты.
Информационные технологии управления предприятием
Каждый отдел в частности использует один набор программных средств: офисные приложения, клиенты программ управления персоналом, программные средства, разработанные программистами для автоматизации либо упрощения каких-либо объектов.
В зависимости от отдела на персональных компьютерах используются программы для работы с бухгалтерией, средства управления плоттерами, программы для рисования чертежей, программы для печати штрих-кодов, программы для считывания штрих-кодов и учета готовой продукции, а также другие разнообразные программные средства.
Электронное документационное управление предприятием
В базах данных и документах предприятия содержится информация документального характера, в основном накладные на товары. Кроме этого, ведется электронный учет готовой продукции посредством штрих-кодирования единиц продукции.
Также на предприятии установлены сервера для полной автоматизации работы фирменных магазинов, что значительно ускоряет процессы реализации товара. Чеки и другие документы печатаются, получая необходимую информацию с сервера на предприятии.
Автоматизация процессов делопроизводства на предприятии
Процессы делопроизводства, как и многие другие процессы на предприятии, автоматизированы и поддерживаются сотрудниками, чья работа напрямую связана с делопроизводством.
Производственные задачи с использованием Internet, использование ресурсов Internet в работе предприятия
В работе предприятия используется электронная почта для получения электронной почты от других предприятий, а также юридических и физических лиц и для отправки электронной почты для связи с другими предприятиями.
Кроме того, Internet используется для поддержки фирменного сайта предприятия, на котором расположена информация о предприятии, контактные данные для обратной связи, каталог продукции и другое.
Организация обмена информацией в сети предприятия
Обмен информацией в сети предприятия происходит как через автоматизированные рабочие места информационной системы, так и через документы, например MicroSoft Office. Используется также электронная почта и программы для мгновенного обмена текстовыми сообщениями.
Топология, структура сети, используемое сетевое оборудование корпоративной сети предприятия
Топология построения сети на предприятии – звезда.
Используются оптические магистрали и медные витые пары в зданиях. В удаленных точках используется Wi-Fi. Активное сетевое оборудование – коммутаторы.
Организация и оценка уровня эффективности системы защиты информации на предприятии
Защита от проникновения из Internet – аппаратный шлюз и выделенный прокси-сервер с установленным антивирусом.
Защита от атак на рабочих местах – антивирус Касперского. Защита от несанкционированного доступа на рабочих местах – использование паролей. Защита от потери информации – ее централизованное хранение на сервере и резервное копирование.
Оценка экономической эффективности применения информационных технологий и систем на предприятии
Применение информационных технологий позволяет ускорить обмен информацией с покупателями и клиентами, прохождение информации в технологической цепочке и, в ряде случаев, сократить избыточные рабочие места.
Организация хранения и поиска экономической информации (классификация СУБД, использование СУБД в управлении предприятием)
В качестве СУБД используется Informix, работает под управлением OS Linux.
Выводы и рекомендации по совершенствованию информационной структуры предприятия
В целом информационная структура предприятия не нуждается в совершенствовании, поскольку является высокотехнологичной и в ее построении использованы качественные материалы и оборудование.
Индивидуальное задание
Цель задачи:
Написать программу, сортирующую методом вставок главную диагональ двумерного массива целых чисел. Массив считать из текстового файла, содержащего в первой строке кол-во строк и кол-во столбцов, а далее в каждой строке целые числа, соответствующие элементам строки массива.
Рис. 1 Окно программы
Листинг программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
StringGrid1: TStringGrid;
OpenDialog1: TOpenDialog;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
massiv: TStringList;
simvol,stroka,razmer: string;
i,j,n,m,razm,temp: integer;
arr: array [1..88,1..88] of integer;
diagonal: array [1..88] of integer;
implementation
{$R *.dfm}
procedure TForm1.Button3Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=0;
j:=1;
if opendialog1.Execute then
begin
massiv:=TStringList.Create;
massiv.LoadFromFile(OpenDialog1.FileName);
razmer:=massiv.Strings[0];
end;
for n:=1 to length(razmer) do
if razmer[n]<>' '
then simvol:=simvol+razmer[n]
else begin
StringGrid1.ColCount:=StrToInt(simvol);
StringGrid1.RowCount:=StrToInt(simvol);
razm:=StrToInt(simvol);
end;
for n:=1 to massiv.Count-1 do
begin
stroka:=massiv[n]+' ';
simvol:='';
j:=1;
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.