составить программу которая печатает true если точка с координатами x,y принадлежит закрашенной области.
10-11 класс
|
var x,y:integer;
b,b1:boolean;
begin
writeln('Введите x');
readln(x);
writeln('Введите y');
readln(y);
if(x<=2) then
if(x>=-2) then
if(y>=0) then
if(y<=4) then b:=true
else b:=false;
if(x<=5) then
if(x>=-4) then
if(y>=0) then
if(y<=-3) then b1:=true
else b1:=false;
writeln(b or b1);
readln;
end.
Другие вопросы из категории
var str : string;
q:integer;
k:string;
begin
writeln ('введите строку');
readln (str);k:='..';
q:=pos('.', str );
while q<>0 do
begin
insert (str,k, q );
q:=pos('.', str );
end;
writeln (str);
end.
Читайте также
случае. Помогите пожалуйста!!!
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
с координатами (х, у) принадлежит закрашенной области, и false — в
противном случае: