Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти та науки України
Національний університет «Львівська політехніка»
Інститут комп’ютерних наук та інформаційних технологій
Кафедра ПЗ
З В І Т
Лабораторна робота № 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 .