| nustiu_2803 a întrebat:

imi trebuie urgent.
trebuie sa elaborey un program in pascal la informatica, dar am apsetat si nu stiu cum...
conditia : Elaborati un program care calculeaza valorile functiei logice z=x&y pentru toate valorile posibile ale argumentelor x, y...
funtitza

2 răspunsuri:
| Digital112 a răspuns:

Ce?

| nustiu_2803 explică:

Program Logice;
var x, y, z:boolean;
begin
x:=false; y:=false;
writeln ('x=', x, ' y=', y);
z:=x and y; writeln ('x and y = ', z);
writeln;
x:=true; y:=false;
writeln ('x=', x, ' y=', y);
z:=x and y; writeln ('x and y = ', z);
writeln;
x:=true; y:=true;
writeln ('x=', x, ' y=', y);
z:=x and y; writeln ('x and y = ', z);
writeln;
x:=false; y:=true;
writeln ('x=', x, ' y=', y);
z:=x and y; writeln ('x and y = ', z);
writeln;
read;
end.