Правила форума
Прочтите прежде чем задавать вопрос!
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 -
