∨ — логическое или, 0 будет только в случае 0 ∨ 0, в остальных случаях 1. & — логическое и, 1 будет только в случае 1 & 1, в остальных случаях 0. Если нет скобок, сначала выполняется &, потом ∨.
Задание 2, 1: program zadacha1; uses crt; var x, y: real; begin clrscr; write('enter x: '); readln (x); x:=(x*pi)/180; // в Паскале используется измерение в радианах, здесь мы // переводим из градусов (так как мы задаем значение в градусах) в радианы y:=sqr(cos(x))+sqr(sin(x))*sin(x); writeln ('y=', y:0:4); readkey; end.
2 program zadacha2; uses crt; var y: real; begin clrscr; y:=sqr(sin(pi))+ pi/2; writeln ('y=', y:0:4); readkey; end.
3 program zadacha3; uses crt; var x, y: real; begin clrscr; write ('enter x: '); readln (x); x:=(x*pi)/180; y:=sin(x)/cos(x) + 0.25; writeln ('y=', y:0:4); readkey; end.
4 program zadacha4; uses crt; var x, y, z: integer; begin clrscr; write ('enter x, z'); readln (x, z); y:=abs(x)+2*abs(z); writeln ('y=', y:0:4); readkey; end.
& — логическое и, 1 будет только в случае 1 & 1, в остальных случаях 0.
Если нет скобок, сначала выполняется &, потом ∨.
1) (1 ∨ 1) ∨ (1 ∨ 0) = 1 ∨ 1 = 1
2) ((1 ∨ 0) ∨ 1) ∨ 1 = (1 ∨ 1) ∨ 1 = 1 ∨ 1 = 1
3) (0 & 1) & 1 = 0 & 1 = 0
4) 1 & (1 & 1) & 1 = 1 & 1 & 1 = 1
5) ((1 ∨ 0) & (1 & 1)) & (0 ∨ 1) = (1 & 1) & 1 = 1 & 1 = 1
6) ((1 & 1) ∨ 0) & (0 ∨ 1) = (1 ∨ 0) & 1 = 1 & 1 = 1
7) ((0 & 0) ∨ 0) & (1 ∨ 1) = (0 ∨ 0) & 1 = 0 & 1 = 0
8) (A ∨ 1) ∨ (B ∨ 0) = 1 ∨ B = 1
9) ((1 & A) ∨ (B & 0)) ∨ 1 = (A ∨ 0) ∨ 1 = A ∨ 1 = 1
10) 1 ∨ A & 0 = 1 ∨ (A & 0) = 1 ∨ 0 = 1
program zadacha1;
uses crt;
var x, y: real;
begin
clrscr;
write('enter x: ');
readln (x);
x:=(x*pi)/180; // в Паскале используется измерение в радианах, здесь мы
// переводим из градусов (так как мы задаем значение в градусах) в радианы
y:=sqr(cos(x))+sqr(sin(x))*sin(x);
writeln ('y=', y:0:4);
readkey;
end.
2
program zadacha2;
uses crt;
var y: real;
begin
clrscr;
y:=sqr(sin(pi))+ pi/2;
writeln ('y=', y:0:4);
readkey;
end.
3
program zadacha3;
uses crt;
var x, y: real;
begin
clrscr;
write ('enter x: ');
readln (x);
x:=(x*pi)/180;
y:=sin(x)/cos(x) + 0.25;
writeln ('y=', y:0:4);
readkey;
end.
4
program zadacha4;
uses crt;
var x, y, z: integer;
begin
clrscr;
write ('enter x, z');
readln (x, z);
y:=abs(x)+2*abs(z);
writeln ('y=', y:0:4);
readkey;
end.