Построение треугольника Паскаля по номеру функции

Министерство науки и высшего образования Российской Федерации

Федеральное государственное бюджетное образовательное учреждение высшего образования «Рязанский государственный радиотехнический университет имени В.Ф. Уткина»

Кафедра «САПР ВС»

Отчет о лабораторной работе № 5

Построение треугольника Паскаля по номеру функции

по дисциплине

«Математическая логика и теория алгоритмов»

Выполнили:

Студенты группы 046

Бригады №8

Костин В.Ю.

Бурцева С.Н.

Проверила:

Доцент кафедры САПР ВС,

к.т.н. Бакулева М.А.

Рязань 2020

Цель работы

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

Практическая часть

1. Задание:Построить треугольник Паскаля при N=64

2. Блок-схема алгоритма программы (рис. 2):

Рисунок 2 – Блок-схема алгоритма программы

3. Листинг программы:

programlab_5;

constn = 8; m = 5;

type

mas1 = array[1..n, 1..m] ofBoolean;

mas2 = array[1..100] ofbyte;

mas3 = array[1..n, 1..m] ofBoolean;

mas4 = array[1..n, 1..8] ofBoolean;

var

a: mas1;

y: mas2;

g: mas3;

T: mas4;

nomer,p,b: integer;

procedureNomerF(varA: mas1; Y: mas2; nomer: integer);

var

q, l, i: integer;

begin

q := 0;

l := 0;

repeat

q := q + 1;

y[q] := nomer mod2;

nomer := nomer div2;

untilnomer = 0;

fori := 8 downto1 do

begin

l := l + 1;

ify[i] = 1 then

a[l, 4] := True

else

a[l, 4] := false;

end;

procedureTreugolPascal(vara: mas1);

var

i, d: integer;

begin

NomerF(A, Y, nomer);

Writeln;

p := 7;

fori := 1 to8 do

begin

T[i, 1] := a[i, 4];

write(a[i, 4]);

end;

writeln;

fori := 1 to7 do

begin

T[i, 2] := a[i, 4] xora[i + 1, 4];

write(T[i, 2]);

end;

fori := 1 to6 do

begin

p := p - 1;

writeln;

ford := 1 top do

begin

T[d, i + 2] := t[d, i + 1] xort[d + 1, i + 1];

write(T[d, i + 2]);

end;

writeln(' ');

writeln('------');

writeln('G');

12 Следующая ⇒