Задания по теме "Основы логики, логические выражения" 1. Постройте отрицания следующих высказываний: 1. Число 1 есть составное число. 2 Натуральные числа, оканчивающиеся цифрой 0, являются простыми числами. 3 Неверно, что число 3 не является делителем числа 198. 4. Неверно, что любое число, оканчивающееся цифрой 4, делится на 4. 5 Некоторые млекопитающие не живут на суше. 6. Существуют простые чётные числа 7. На зачёте каждый студент писал ответы на отдельном листке. 2. Среди следующих высказываний выделить конъюнкцию и дизъюнкцию и определить, истинны они или ложны: а) Число 27 кратно 3 и 9 б) Если 17< 20, то 7<10 в) Треугольник АВС является остроугольным, или прямоугольным, или тупоугольным г) 7-49 или (7) = 49 или (-7)-49 д) 21:21 е) Граждане России имеют право голоса только с 18 лет. 3. Даны высказывания: А={Я куплю велосипед В={Я буду участвовать в соревнованиях по велоспорту C={Я буду путешествовать по России D-{Четырёхугольник MNPQ - параллелограмм} F={Диагонали MNPQ в точке пересечения делятся пополам} Сформулируйте высказывания, соответствующие выражениям: а) Алв б) АЛВ в) AvВ г) AvВvсд) Avс Запишите высказывания, заданные этими выражениями и установите, истинны они или ложны: а) D-B 6) DHF B) FHD г) FHD д) D-F Пользуясь высказываниями А, В и С, запишите логические выражения: а) Я не куплю велосипед, а буду путешествовать по России б) я буду путешествовать по России, но не буду участвовать в соревнованиях в) Неверно, что я буду путешествовать по России и участвовать в соревнованиях по велоспорту г) Я буду путешествовать по России только тогда, когда я куплю велосипед и буду участвовать в соревнованиях по велоспорту д) Если я куплю велосипед, то я буду участвовать в соревнованиях по велоспорту или путешествовать по России 4. Построить таблицу истинности для следующего выражения: АНВv АЛВ АС 5. Дана логическая схема. Вычислить результат для y=1 (решение написать по действиям): х N х Али - не M или не
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
procedure RedFrac(a,b:integer; var c,d:integer); // сокращение дроби
function Gcd(a,b:integer):integer; // НОД begin while b<>0 do begin a:=a mod b; Swap(a,b) end; Result:=a end;
begin var sgnc:=Sign(a); // мы должны учитывать знак! var sgnd:=Sign(b); // мы должны учитывать знак! c:=Abs(a); d:=Abs(b); var g:=Gcd(c,d); c:=(c div g)*sgnc; d:=(d div g)*sgnd end;
begin var p,q,r,s:integer; Write('Введите числитель и знаменатель: '); Read(p,q); RedFrac(p,q,r,s); Writeln(p,' / ',q,' = ',r, ' / ',s) end.
Пример Введите числитель и знаменатель: 384 4096 384 / 4096 = 3 / 32