Var x,y:real; begin Write('Введите координаты x и y точки: '); Readln(x,y); Write('Точка с указанными координатами '); if not ((y<=x) and (x<=2) and ((sqr(x)+sqr(y))>=4) and (y>=0)) then Write('не '); Writeln('принадлежит заштрихованной области.') end.
Примеры выполнения программы: Введите координаты x и y точки: 1.9 2.1 Точка с указанными координатами не принадлежит заштрихованной области.
Введите координаты x и y точки: 1.9 1.82 Точка с указанными координатами принадлежит заштрихованной области.
Введите координаты x и y точки: 1 -3 Точка с указанными координатами не принадлежит заштрихованной области.
На второе задание: program sortArray; var arrayA:array[1..50] of real; bufR:real; n,ci,cIi,stOt,most:byte; begin readln(n); for ci:=1 to n do readln(arrayA[ci]); for ci:=1 to n-1 do begin most:=0; for cIi:=ci to n do if (arrayA[cIi]>=0) and ((arrayA[cIi]<arrayA[most]) or (most=0)) then most:=cIi; if most<>0 then begin bufR:=arrayA[ci]; arrayA[ci]:=arrayA[most]; arrayA[most]:=bufR; end else begin stOt:=ci; break; end; end; for ci:=1 to n-stOt do begin most:=stOt+ci-1; for cIi:=stOt+ci to n do if arrayA[cIi]>arrayA[most] then most:=cIi; bufR:=arrayA[stOt+ci-1]; arrayA[stOt+ci-1]:=arrayA[most]; arrayA[most]:=bufR; end; writeln; for ci:=1 to n do writeln(arrayA[ci]:0:3); readln; end.
x,y:real;
begin
Write('Введите координаты x и y точки: '); Readln(x,y);
Write('Точка с указанными координатами ');
if not ((y<=x) and (x<=2) and ((sqr(x)+sqr(y))>=4) and (y>=0)) then
Write('не ');
Writeln('принадлежит заштрихованной области.')
end.
Примеры выполнения программы:
Введите координаты x и y точки: 1.9 2.1
Точка с указанными координатами не принадлежит заштрихованной области.
Введите координаты x и y точки: 1.9 1.82
Точка с указанными координатами принадлежит заштрихованной области.
Введите координаты x и y точки: 1 -3
Точка с указанными координатами не принадлежит заштрихованной области.