Составьте программу проверки эквивалентности двух логических функций. постройте соответствующие таблицы истинности(программно). 1.проверьте что x → y эквивалентна not (x) or y

292

463

Посмотреть ответы 2

Ответы на вопрос:

DANCER131

Информатика

4,7(41 оценок)

//так и не осознала как вводить функции с клавиатуры. спрошу у учителя. var b1,b2,b: boolean; function imp(a, b : boolean) : boolean; begin imp: =(not a) or b; end; begin; writeln('implication'); for b1: =false to true do for b2: =false to true do writeln(b1: 7,b2: 7,imp(b1,b2): 7); writeln('not (x) or y'); for b1: =false to true do for b2: =false to true do writeln(b1: 7,b2: b1) or b2): 7); for b1: =false to true do for b2: =false to true do if imp(b1,b2)< > ((not b1) or b2) then begin; writeln('не эквивалентны'); exit; end; writeln('эквивалентны'); end.

Lisa18811

Информатика

4,4(58 оценок)

1. современное решение // pascalabc.net 3.2, сборка 1437 от 03.05.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',50); a.println; var min: =a.min; a.transform(x-> x< 0? x*min: x); a.println end. пример n= 15 -34 7 0 -48 4 42 35 14 -47 6 -29 43 46 40 -18 1632 7 0 2304 4 42 35 14 2256 6 1392 43 46 40 864 2. популярное до сих пор в школах решение на turbopascal 7.01 (1983г.) uses crt; const nn=100; var i,n,min: integer; a: array[1..nn] of integer; begin clrscr; randomize; write('n='); read(n); min: =100; for i: =1 to n do begin a[i]: =random(101)-50; write(a[i],' '); if a[i]< min then min: =a[i] end; writeln; for i: =1 to n do if a[i]< 0 then a[i]: =a[i]*min; for i: =1 to n do write(a[i],' '); writeln; readkey end.