d1,d2,d3,d4,d5,d6,d,n,n2,a,i:integer;
deg,x:array[0..32] of integer;
FO:text;
NFO:string;
procedure KOD;
var b:integer;
begin
B:=A;
for i:=1 to N do
begin
if b>=deg[n-i] then
begin
b:=b-deg[n-i];x[i]:=1;
end
else x[i]:=0;
end
end;
begin
clrscr;
writeln('Imya vxodnogo faila?');
readln(NFO);
assign(FO,NFO);
rewrite(FO);
deg[0]:=1;
for i:=1 to 10 do
deg[i]:=deg[i-1]*2;
n:=5;
n2:=deg[n];
for A:=0 to n2-1 do
begin
kod;
for i:=1 to n do write(FO,x[i]:1);
d1:=(1-x[1])*(1-x[2])*x[3];
d2:=(1-x[1])*x[3]*(1-x[4])*x[5];
d3:=(1-x[3])*(1-x[4])*x[5];
d4:=(1-x[1])*(1-x[2])*(1-x[3])*x[5];
d5:=(1-x[1])*x[2]*(1-x[3])*(1-x[4])*x[5];
d6:=(1-x[1])*(1-x[3])*x[4]*x[5];
d:=1-(1-d1)*(1-d2)*(1-d3)*(1-d4)*(1-d5)*(1-d6);
write(FO,' ',d);
writeln(FO,' ');
end;
close(FO);
write('E N D');
readln;
end.
program abljam_2;
uses CRT;
var
F,y,n,n2,a,i:integer;
deg,x:array[0..32] of integer;
FO:text;
NFO:string;
procedure KOD;
var b:integer;
begin
B:=A;
for i:=1 to N do
begin
if b>=deg[n-i] then
begin
b:=b-deg[n-i];x[i]:=1;
end
else x[i]:=0;
end
end;
begin
clrscr;
writeln('Imya vxodnogo faila?');
readln(NFO);
assign(FO,NFO);
rewrite(FO);
deg[0]:=1;
for i:=1 to 10 do
deg[i]:=deg[i-1]*2;
n:=5;
n2:=deg[n];
for A:=0 to n2-1 do
begin
kod;
for i:=1 to n do write(FO,x[i]:1);
F:=(1-x[1])*(1-x[2])*x[3]+(1-x[1])*x[3]*(1-x[4])*x[5]+(1-x[3])*(1-x[4])*x[5]+
(1-x[1])*(1-x[2])*(1-x[3])*x[5]+(1-x[1])*x[2]*(1-x[3])*(1-x[4])*x[5]+
(1-x[1])*(1-x[3])*x[4]*x[5];
if F>=1 then
begin
y:=1;
end
else y:=0;
write(FO,' ',y);
writeln(FO,' ');
end;
close(FO);
write('E N D');
readln;
end.
Результаты счета :
a |
b |
c |
d |
e |
F |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
1 |
1 |
0 |
0 |
0 |
1 |
0 |
0 |
0 |
0 |
0 |
1 |
1 |
1 |
0 |
0 |
1 |
0 |
0 |
1 |
0 |
0 |
1 |
0 |
1 |
1 |
0 |
0 |
1 |
1 |
0 |
1 |
0 |
0 |
1 |
1 |
1 |
1 |
0 |
1 |
0 |
0 |
0 |
1 |
0 |
1 |
0 |
0 |
1 |
0 |
0 |
1 |
0 |
1 |
0 |
0 |
0 |
1 |
0 |
1 |
1 |
1 |
0 |
1 |
1 |
0 |
0 |
0 |
0 |
1 |
1 |
0 |
1 |
1 |
0 |
1 |
1 |
1 |
0 |
0 |
0 |
1 |
1 |
1 |
1 |
0 |
1 |
0 |
0 |
0 |
0 |
0 |
1 |
0 |
0 |
0 |
1 |
1 |
1 |
0 |
0 |
1 |
0 |
0 |
1 |
0 |
0 |
1 |
1 |
0 |
1 |
0 |
1 |
0 |
0 |
0 |
1 |
0 |
1 |
0 |
1 |
1 |
1 |
0 |
1 |
1 |
0 |
0 |
1 |
0 |
1 |
1 |
1 |
0 |
1 |
1 |
0 |
0 |
0 |
0 |
1 |
1 |
0 |
0 |
1 |
0 |
1 |
1 |
0 |
1 |
0 |
0 |
1 |
1 |
0 |
1 |
1 |
0 |
1 |
1 |
1 |
0 |
0 |
0 |
1 |
1 |
1 |
0 |
1 |
0 |
1 |
1 |
1 |
1 |
0 |
0 |
1 |
1 |
1 |
1 |
1 |
0 |
Задание 5.Составить программу моделирования схемы и сравнить полученные в результате моделирования значения и заданные.
Так как предыдущая математическая модель полностью описывает работу принципиальной схемы, то можно считать, что данная программа может быть применена и для моделирования самой схемы. При сравнении значений результатов моделирования с заданными, делаем вывод, что они полностью соответствуют друг другу, то есть все расчеты проведенные верно.
Задание 6.Определить характеристики разработанной схемы (потребляемая мощность, быстродействие).
а) Потребляемая мощность всей схемы определим как сумму мощностей рассеивания каждого элемента:
=2*26+1*82.5+2*55+165=409.5 мВт
б) Быстродействие определяется путем определения максимального пути от входа к выходу. Для данной схемы глубина равна 3 ,т. к. запаздывание во всех микросхемах составляет 18.5, то :
= 18,5*3=55,5 нс
Математическая модель разработанной схемы.
Список использованной литературы
1. Інтегральна електроніка у вимірювальних пристроях./ Дергачов В. А., Чумаченько І. В., Анікін А. М. – Харків, ХАІ, 1999.
2. Бирюков С. А. Применение интегральных микросхем серий ТТЛ. – М.: «Радио», 1992. - 120 с.
3. Зубчик В. И., Сигорский В. П., Шкуро А. Н. справ очник по цифровой схемотехнике. – К.: Техніка, 1990. – 448 с.
4.
Скаржепа В. А., Луценко А.
Н. Электроника и микросхемотехника. Ч. 1 Электронные устройства промышленной
автоматики / Под общ. ред. А. А. Краснопрошиной. - К.: Вища шк., 1989. – 431
с.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.