Практическая работа по информатики система счисления

Const
  m = 8;
  n = 7;

var
  a: array[1..m, 1..n] of integer;
  i, j: integer;

begin
  writeln('Введите через пробел ', m, ' чисел');
  for i := 1 to m do
  begin
    Read(a[i, 1]);
    for j := 2 to n do a[i, j] := a[i, 1]
  end;
  Writeln('Сформированный массив');
  for i := 1 to m do
  begin
    for j := 1 to n do Write(a[i, j]:5);
    Writeln
  end
end.

Тестовое решение:

Введите через пробел 8 чисел
4 -6 10 93 345 -32 0 11
Сформированный массив
    4    4    4    4    4    4    4
   -6   -6   -6   -6   -6   -6   -6
   10   10   10   10   10   10   10
   93   93   93   93   93   93   93
  345  345  345  345  345  345  345
  -32  -32  -32  -32  -32  -32  -32
    0    0    0    0    0    0    0
   11   11   11   11   11   11   11

Заданная уравнением прямая всегда будет гипотенузой прямоугольного треугольника, а его прямой угол всегда будет лежать в точке пересечения осей координат. Таким образом, размещение гипотенузы всегда будет определять четверть, в которой находится треугольник.
Гипотенуза пересекает ось Х в точке с координатами (х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.