Заданная уравнением прямая всегда будет гипотенузой прямоугольного треугольника, а его прямой угол всегда будет лежать в точке пересечения осей координат. Таким образом, размещение гипотенузы всегда будет определять четверть, в которой находится треугольник. Гипотенуза пересекает ось Х в точке с координатами (х1; 0), а ось Y - в точке с координатами (0;y2). Найдем эти координаты, считая коэффициенты a и b в уравнении прямой заданными. Теперь можно определить номера четвертей n, в которых располагается гипотенуза.
var a, b: integer; f: Text;
begin Assign(f, 'input.txt'); Reset(f); Readln(f, a, b); Close(f); Assign(f, 'output.txt'); Rewrite(f); if a < 0 then if b < 0 then Writeln(f, '3') else Writeln(f, '1') else if b < 0 then Writeln(f, '4') else Writeln(f, '2'); Close(f) end.
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var x:=ArrGen(8,i->Ln(i+1.1)); x.Println; var k:=x.Where(t->(Sin(t)>-0.5) and (Sin(t)<=0)).Count; var im:=x.IndexMin; Writeln('На указанном интервале найдено элементов: ',k); Writeln('Минимальный элемент массива, равный ',x[im], ' имеет порядковый номер ',im+1) end.
Результат 0.0953101798043249 0.741937344729377 1.1314021114911 1.41098697371026 1.62924053973028 1.80828877117927 1.96009478404727 2.09186406167839 На указанном интервале найдено элементов: 0 Минимальный элемент массива, равный 0.0953101798043249 имеет порядковый номер 1
Гипотенуза пересекает ось Х в точке с координатами (х1; 0), а ось Y - в точке с координатами (0;y2). Найдем эти координаты, считая коэффициенты a и b в уравнении прямой заданными.
Теперь можно определить номера четвертей n, в которых располагается гипотенуза.
var
a, b: integer;
f: Text;
begin
Assign(f, 'input.txt');
Reset(f);
Readln(f, a, b);
Close(f);
Assign(f, 'output.txt');
Rewrite(f);
if a < 0 then
if b < 0 then Writeln(f, '3') else Writeln(f, '1')
else
if b < 0 then Writeln(f, '4') else Writeln(f, '2');
Close(f)
end.