Объяснение:
function IsBelong(x, y : real): boolean;
{Вс функция для проверки, принадлежит
ли точка (x; y) выделенной области}
begin
IsBelong:= false;
if (x > 0) then
begin
if (y <= 0) and (y >= ln(x)) and (y >= -x -1) then
IsBelong:= true;
end
else
begin
if (y >= 0) and (x * x + y * y <= 9) and (y >= -x -1) then
IsBelong:= true;
end;
end;
var x, y: real; // Координаты точки
mess: string;
begin
{Считывание начальных значений}
write('Input x: ');
readln(x);
write('Input y: ');
readln(y);
writeln();
{Проверка принадлежности}
if IsBelong(x,y) then mess := 'The point belongs to the area'
else mess := 'The point does not belong to the area';
{Вывод сообщения}
writeln(mess);
readln();
end.
Какой оператор цикла желательно использовать, если известно число повторений тела цикла?
repeat <оператор1, …>until <условие>
while <условие>do <оператор>
for <параметр>:= <начальное значение>to<конечное значение> do<оператор>
2. Используется оператор for i:= -10 to 10 do…
После завершения выполнения тела цикла i = 10
3. Цикл в фрагменте программы
p:=1;
repeat
p:=p*0.1
until p>0.1;
будет исполнен:
1 раз
2 раза
бесконечное число раз
0 раз
3 раза
4. Цикл в фрагменте программы
a:=1;
b:=1;
while a+b<8 do
begin
a:=a+1; b:=b+2
end;
выполнится:
0 раз
3 раза
2 раза
1 раз
бесконечное число раз