2. Основные понятия, определения и назначение сапр

Система автоматизированного проектирования — автоматизированная система, реализующая информационную технологию выполнения функций проектирования, представляет собой организационно-техническую систему, предназначенную для автоматизации процесса проектирования, состоящую из персонала и комплекса технических, программных и других средств автоматизации его деятельности. Также для обозначения подобных систем широко используется аббревиатура САПР.

Цели создания и задачи

В рамках жизненного цикла промышленных изделий САПР решает задачи автоматизации работ на стадиях проектирования и подготовки производства. Основная цель создания САПР — повышение эффективности труда инженеров, включая:

• сокращения трудоёмкости проектирования и планирования;

• сокращения сроков проектирования;

• сокращения себестоимости проектирования и изготовления, уменьшение затрат на эксплуатацию;

• повышения качества и технико-экономического уровня результатов проектирования;

• сокращения затрат на натурное моделирование и испытания. Достижение этих целей обеспечивается путем:

• автоматизации оформления документации;

• информационной поддержки и автоматизации процесса принятия решений;

• использования технологий параллельного проектирования;

• унификации проектных решений и процессов проектирования;

• повторного использования проектных решений, данных и наработок;

• стратегического проектирования;

• замены натурных испытаний и макетирования математическим моделированием;

• повышения качества управления проектированием;

• применения методов вариантного проектирования и оптимизации.

3. Составить программу, которая формирует очередь, добавляя в неё произвольное количество компонент.

uses SysUtils, Windows; //Program Zadanie_10; //Uses Crt; Type TPtr = ^TElem; TElem = record Inf :Integer; Link:TPtr; end; Var Z,Value:Integer; Top_O, End_O:TPtr; Procedure Add_Z(Val:Integer); Var P:TPtr; Begin New(P); P^.Inf:=Val; P^.Link:=nil; if Top_O = nil Then Top_O:=P else End_O^.Link:=P; End_O:=P; End; Procedure Del_Z(var Val:Integer); Var P:TPtr; Begin Val:=Top_O^.Inf; P:=Top_O; Top_O:=P^.Link; if Top_O=nil Then End_O:=nil; Dispose(P); End; Begin //ClrScr; Writeln('Create OCHERED...'); Top_O:=nil; End_O:=nil;

Writeln('Ukagite deistvie:'); Writeln(' 1. Zapis v Ochered'); Writeln(' 2. Izvlechenie iz Ochered'); Writeln(' 3. Ochistka Ochered and print'); Writeln(' 4. EXIT'); Repeat Readln(Z); If Z=1 Then Begin Writeln('Vvedite VALUE == '); Readln(Value); Add_Z(Value); End; If Z = 2 Then Begin Del_Z(Value); Writeln('Izvlechennoe VALUE == ',Value); End; If Z = 3 Then Begin While Top_O <> nil do Begin Del_Z(Value); Writeln('Izvlechennoe VALUE == ',Value); End; End; Until (Z=4); End. //begin { TODO -oUser -cConsole Main : Insert code here } //end.

Билет 26.

1. Сравнительный анализ алгоритмов поиска: линейный, двоичный.

Само действие поиска элемента в наборе данных требует возможности отличать элементы друг от друга. Очевидно, сравнение числовых типов не вызывает трудности. В случае сравнения строк процедура усложняется. Можно выполнять сравнение чувствительное или нечувствительное к регистру, сравнение по локальным таблицам символов, когда оно выполняется на основе алгоритмов, специфичных для определенной страны или языка и т.д. При работе с объектами вообще не существует заранее определенной схемы сравнения за исключением сравнения указателей на эти объекты.

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

Линейный поиск. Единственно возможным методом поиска элемента по значению ключа, находящегося в неупорядоченном наборе данных, является последовательный (линейный) просмотр каждого элемента, который продолжается до тех пор, пока не будет найден искомый элемент. Если просмотрен весь набор, но элемент не найден, искомый ключ отсутствует. Для последовательного поиска в среднем требуется (n+1)/2 сравнений и порядок алгоритма линейный O(n).

Программная иллюстрация линейного поиска в неупорядоченном массиве приведена ниже, где aList – исходный массив, aItem – искомый ключ; функция возвращает индекс найденного элемента или -1, если элемент отсутствует.

{ Линейный поиск в неотсортированном массивом }

function LineNonSortedSearch(aList: TList;

aItem: Pointer; aCompare: TCompareFunc): Integer;

var i: Integer;

begin

Result:=-1;

for i:=0 to aList.Count-1 do

if aCompare(aList.List[i],aItem) = 0 then

begin

Result:=i;

Break;

end;

end;

Последовательный поиск для отсортированного массива ничем не отличается от приведенного и имеет линейный порядок алгоритма O(n).

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

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

Процесс продолжается до тех пор, пока не найден требуемый ключ или не станет пустым интервал, в котором осуществляется поиск. Чтобы найти элемент, в худшем случае требуется log₂(N) сравнений, что значительно лучше, чем при последовательном поиске. Программная иллюстрация бинарного поиска в упорядоченном массиве приведена ниже.

{ Двоичный поиск }

function BinarySearch(aList: TList;

aItem: Pointer; aCompare: TCompareFunc): Integer;

var L, R, M, CompareResult: Integer;

begin

{ Значения индексов первого и последнего элементов }

L:=0; R:=aList.Count-1;

while L <= R do

begin

{ Индекс среднего элемента }

M:=(L + R) div 2;

{ Сравнить значение среднего элемента с искомым }

CompareResult:=aCompare(aList.List[M], aItem);

{ Если значение среднего элемента меньше искомого -

переместить левый индекс на позицию до среднего индекса }

if CompareResult < 0 then

L:=M+1 else

{ Если значение среднего элемента больше искомого -

переместить правый индекс на позицию после среднего индекса }

if CompareResult > 0 then

R:=M-1 else

begin

Result:=M;

Exit;

end;

end;

Result:=-1;

end;