fori := 1 to8 do. Заключение

fori := 1 to8 do

begin

ifi=1 thenb:=0;

ifi=2 thenb:=3;

ifi=3 thenb:=2;

ifi=4 thenb:=23;

ifi=5 thenb:=1;

ifi=6 thenb:=13;

ifi=7 thenb:=12;

ifi=8 thenb:=123;

g[i, 1] := t[1, i];

writeln('');

writeln('C',b,'=',T[d,i]);

end;

begin

writeln('Введите номер функции');

read(nomer);

TreugolPascal(A);

end.

4. Окно вывода:

Введите номер функции

FalseTrueFalseFalseFalseFalseFalseFalse

TrueTrueFalseFalseFalseFalseFalse

FalseTrueFalseFalseFalseFalse

TrueTrueFalseFalseFalse

FalseTrueFalseFalse

TrueTrueFalse

FalseTrue

True

------

C0=False

C3=True

C2=False

C23=True

C1=False

C13=True

C12=False

C123=True

Заключение

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