Міністерство освіти і науки, молоді та спорту України Вінницький національний технічний університет Інститут Інформаційних Технологій та Комп’ютерної Інженерії Лабараторна робота № 8. Тема: Розробка алгоритму і програми, для обчислення мінтермів для логічної функції заданої логічним виразом. м.Вінниця 2012 Мета: Набути навичок для обчислення мінтермів для логічної функції заданої логічним виразом, та програмної реалізації досліджуваного алгоритму. Хід роботи: 1.Вивчити теоретичний матеріал. 2.Розробити програму для обчислення мінтермів для логічної функції заданої логічним виразом. 3.Побудувати блок-схему. 4.Приклади тестування програми. 5.Висновок. 6.Лістинг програми. 3.Блок-схема / Рисунок 1. / Рисунок 2. 5. Висновок: набуто навичок обчислення мінтермів для логічної функції заданої логічним виразом. Програмно реалізовано даний алгоритм. 6. Лістинг програми (додаток). uses crt; type sim=array[1..6] of string; const permx:sim=('X1','X2','X3','X4','X5','X6'); permnx:sim=('nX1','nX2','nX3','nX4','nX5','nX6'); var i,n:integer; s:string; a: array[1..100] of string; {повертає кількість непорожніх елементів масиву} function kol(a:array[1..100] of string): integer; var i,k:integer; begin k:=0; for i:=1 to 100 do begin if length(a[i])>0 then k:=k+1; end; kol:=k; end; {витягує перше слово} function token(s:string): string; var res: string; begin res:=''; if pos('+',s)>0 then begin repeat res:=res+copy(s,1,1); delete(s,1,1); until pos('+',s)=1; end else begin repeat res:=res+copy(s,1,1); delete(s,1,1); until s=''; end; token:=res; end; {видаляє перше слово і знак '+'} function tokost(s:string): string; begin if pos('+',s)>0 then begin repeat delete(s,1,1); until pos('+',s)=1; delete(s,1,1); end else begin repeat delete(s,1,1); until s=''; end; tokost:=s; end; {процедура для перетворення аргументів} procedure args(n:integer; s:string; permx:array[1..6] of string; permnx:array[1..6] of string; povx:array[1..100] of string); var p,k,j,i:integer; x,nx:array[1..100] of string; begin for i:=1 to 100 do begin x[i]:=''; nx[i]:=''; end; for j:=1 to n do begin for i:=1 to 100 do begin if length(povx[i])>0 then begin if pos(inttostr(j),povx[i])=0 then begin x[i]:=povx[i]+'*'+permx[j]; nx[i]:=povx[i]+'*'+permnx[j]; end; if pos(inttostr(j),povx[i])>0 then begin x[i]:=povx[i]; end; end; end; for k:=1 to 100 do begin if length(x[k])>0 then povx[k]:=x[k]; end; for p:=1 to 100 do begin if length(nx[p])>0 then povx[kol(povx)+p]:=nx[p]; end; end; for i:=1 to 100 do begin if length(povx[i])>0 then write(povx[i],'+'); end; end; {основа програми} BEGIN writeln('Введіть кількість аргументів (від 2 до 6):'); readln(n); writeln('Введіть функцію ДНФ від ',n,' аргументів:'); readln(s); write('ДДНФ-',n,'='); for i:=1 to 100 do begin a[i]:=token(s); s:=tokost(s); end; args(n,s,permx,permnx,a); END.