помогите пожалуйста! 5, 6, 11 и 12. надо ,что бы программка
Помогите пожалуйста! 5, 6, 11 и 12. надобно ,что бы программа писала true ,если точка лежит на заштрихованной поверхности.
![](/content/imgs/92/https://ru-static.z-dn.net/files/db3/0ccb978534bbc3c86b3be798871e04ba.jpg)
![](/content/imgs/92/https://ru-static.z-dn.net/files/df7/ed1fd71cf6af77c592a920ceffb8d3f6.jpg)
Program XY5;
var
x,y: real;
begin
var s:='**** -=Alphaeus=- ****';
for var k:=1 to 22 do begin write(s[k]); sleep(47) end;
writeln;writeln;
writeln('Введите координаты точки:');
write('X='); readln(x);
write('Y='); readln(y);
if ((xgt;=0) and (ygt;=0) and (x*x+y*ylt;=16)) or ((xgt;=0) and (ylt;=0) and (x*x+y*ylt;=25)) then
writeln('TRUE (то есть точка (',x,',',y,') попадает в заштрихованную область) ')
else
writeln('FALSE (то есть точка (',x,',',y,') HE попадает в заштрихованную область) ');
end.
Program XY6;
var
x,y: real;
begin
var s:='**** -=Alphaeus=- ****';
for var k:=1 to 22 do begin write(s[k]); sleep(47) end;
writeln;writeln;
writeln('Введите координаты точки:');
write('X='); readln(x);
write('Y='); readln(y);
if ((xgt;=-2) and (xlt;=3) and (ygt;=2) and (ylt;=5)) or ((xgt;=3) and (xlt;=5) and (ygt;=2) and (ylt;=3)) then
writeln('TRUE (то есть точка (',x,',',y,') попадает в заштрихованную область) ')
else
writeln('FALSE (то есть точка (',x,',',y,') HE попадает в заштрихованную область) ');
end.
Program XY11;
var
x,y: real;
begin
var s:='**** -=Alphaeus=- ****';
for var k:=1 to 22 do begin write(s[k]); sleep(47) end;
writeln;writeln;
writeln('Введите координаты точки:');
write('X='); readln(x);
write('Y='); readln(y);
if ((xgt;=2) and (x*x+y*ylt;=36)) then
writeln('TRUE (то есть точка (',x,',',y,') попадает в заштрихованную область) ')
else
writeln('FALSE (то есть точка (',x,',',y,') HE попадает в заштрихованную область) ');
end.
Program XY12;
var
x,y: real;
begin
var s:='**** -=Alphaeus=- ****';
for var k:=1 to 22 do begin write(s[k]); sleep(47) end;
writeln;writeln;
writeln('Введите координаты точки:');
write('X='); readln(x);
write('Y='); readln(y);
if ((xgt;=0) and (ygt;=0) and (x*x+y*ylt;=36)) or ((xgt;=0) and (ylt;=0) and (x-ylt;=6)) then
writeln('TRUE (то есть точка (',x,',',y,') попадает в заштрихованную область) ')
else
writeln('FALSE (то есть точка (',x,',',y,') HE попадает в заштрихованную область) ');
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.