Курсовая работа: Методы минимизации логических функций

end;

End;

{Вывод на экран массива Rez}

Procedure PrintRezult(Step: Byte);

Var

i : byte;

Begin

WriteLn('{------------------------------------------------}');

WriteLn(FRez, '{-----------------------------------------}');

if Step=0 then

begin

Write('ИсходнаяДНФ.');

Write(FRez, 'Исходная ДНФ.');

end

else

begin

Write('Шагномер :', Step:2, '.');

Write(FRez, 'Шагномер :', Step:2, '.');

end;

WriteLn(' Количество дизъюнктов :', IndexS:2);

WriteLn(FRez, ' Количество дизъюнктов :', IndexS:2);

for i:=1 to IndexS do

begin

WriteLn(S[i]);

WriteLn(FRez, S[i]);

end;

ReadKey;

End;

{Основная программа}