Міністерство освіти та науки України Національний університет «Львівська політехніка» Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ З В І Т Лабораторна робота № 4 З курсу «Побудова істиннісних таблиць» Тема: «Відношення» Мета роботи: Навчитися складати істинну таблицю за допомогою функцій мови Pascal. Завдання: Побудувати істиннісну таблицю для виразу з проміжними кроками (атоми p,q,s). Текст програми uses crt; var p,q,s,r:integer; begin clrscr; writeln('p q s r'); for p:=0 to 1 do for q:=0 to 1 do for s:=0 to 1 do begin r:=((not(p) or q) and (s or q)); writeln(p,' ',q,' ',s,' ',r); end; readln; end. Протокол програми p q s r 0 0 0 0 0 0 1 1 0 1 0 1 0 1 1 1 1 0 0 0 1 0 1 0 1 1 0 1 1 1 1 1 Висновок: На даній лабораторній роботі я навчився складати відношення в мові Pascal .