Ввод и вывод матрицы, Вопросы по кодингу Опции

[Relrin]

У меня написаны следующие кусочки кода, которые производят ввод и вывод информации, однако возникли вопросы:
1) Что нужно исправить, чтобы при вводе было ограничение по количеству знаков числа (т.е. ограничить пользователя на ввод данных до 7 знаков(включая точку? т.е. например дробное число, состоящее из одного знака в целой части+точка+5 знаков после запятой))
Пример:
A 1 2 b
1 2 -35 0.00004
2 4.44 15 174
2) Что нужно исправить, чтобы вывод был схож с предыдущим пунктом

Исходный код:

Код

Procedure InputMatrix(n: integer; var a: matrix; var b: vector);
Var
  i,j,r: Integer;
Begin
  r:=whereY;
  gotoXY(2,r);
  write('A');
  for i:=1 to n do
  begin
    gotoXY(i*6+2,r);
    write(i);
    gotoXY(1,r+i+1);
    write(i:2);
  end;
  gotoXY((n+1)*6+2,r);
  write('b');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      gotoXY(j*6+2,r+i+1);
      read(a[i,j]);
    end;
    gotoXY((n+1)*6+2,r+i+1);
    read(b[i]);
  end;
End;

Procedure PrintMatrix(n: integer; var a: matrix; var b: vector);
Var
  i,j,r: integer;
Begin
  clrscr;
  r:=WhereY;
  gotoXY(2,r);
  write('A');
  for i:=1 to n do
  begin
    gotoXY(i*6+2,r);
    write(i);
    gotoXY(1,r+i+1);
    write(i:2);
  end;
  gotoXY((n+1)*6+2,r);
  write('b');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      gotoXY(j*6+2,r+i+1);
      write(a[i,j]:2:2);
    end;
    gotoXY((n+1)*6+2,r+i+1);
    write(b[i]:2:2);
  end;
End;

Сообщение отредактировано: Relrin - 29.04.2011 21:11

[Relrin]

А, если я, допустим, хочу жестко контролировать пользователя, каждый символ, что он вводит, (т.е. например, идет минус, потом еще раз его вводит, а я его убираю и возвращаюсь на позицию назад, с точкой также), то что необходимо будет для этого? Вести слежку за кол-вом каждого символа знака в виде некоторого массива?

[Lapp]

например, идет минус, потом еще раз его вводит, а я его убираю и возвращаюсь на позицию назад, с точкой также

Извиняюсь за вторжение, но мне кажется, это не очень хорошая идея по своей сути (если это не чисто академический интерес). Я, например, часто случайно повторяю символ и сразу, на автомате, удаляю его (не глядя на экран) - и что тогда будет? Несчастный минус пропадет совсем..

Есть вполне определенные, выработанные долгой практикой, правила ввода. Любое отступление от них вносит бардак.
Лучше, по-моему, диагностировать ошибку ввода по нажатии на Enter (или при переходе в другому полю).