Булевский тип

@barc · Регистрация: 27.04.2010

Pascal

Program p;
var x,y,a,R:real;
b:boolean;
begin
readln (x,y,a,R);
b:=(x*x+y*y>=R*R) and (abs(x)<=a/2)and (abs(y)<=a/2);
writeln (b);
readln;
end.

объясните пожалуйста порядок вычисления булевского выражения в программе.

@Mиxaил · 10.06.2010, 16:20

Сообщение от barc

b:=(x*x+y*y>=R*R) and (abs(x)<=a/2)and (abs(y)<=a/2);

если выполняется условие этого выражения, то переменная b вернет значение true , в противном случае - false

@Mиxaил 542 / 447 / 162 Регистрация: 10.12.2009 Сообщений: 1,857
	10.06.2010, 16:20	2
	Сообщение от barc b:=(xx+yy>=R*R) and (abs(x)<=a/2)and (abs(y)<=a/2); если выполняется условие этого выражения, то переменная b вернет значение true , в противном случае - false 0