как ввести матрицу автоматически?

[ByAlex]

Сообщение от Julichka1k

begin
randomize;
for i := 1 to n do
for j := 1 to n do
a[i, j] := random(21)-20;
end;



что то я не пойму, а куда вставить write(Arr[i,j]:2:2)

Если у тебя массив целочисленный, то ничего надо делать, а если вещественный, то при выводе делай так -

for i := 1 to n do
   for j := 1 to n do
      write(a[i, j]:2:2, ' ');

[Julichka1k]

program lab_2;
var a:array[1..5,1..5] of real;
n,m,i,j,k,c:byte;
x:string;
p:real;
begin
writeln('Введите количество строк матрицы');
readln(n);
writeln('Введите колиество столбцов матрицы');
readln(m);
writeln('хотите заполнить матрицу автоматически?');
readln(x);
if (x='нет')then
begin
writeln('введите элементы маирицы');
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']= ');
readln(a[i,j])
end;
end
else
begin
randomize;
for i := 1 to n do begin
for j := 1 to n do begin
a[i, j] := random(21)-20;
write(A[i,j]:4:1);
end;
writeln;
end;

writeln('Ввод успешно завершен');
writeln('Данная матрица');
{Вывод матрицы}
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
writeln('Количество положительных элементов в указанной строке матрицы');
writeln('введите строку');
readln(i);
begin
k:=0;
for j:=1 to m do
if a[i,j] > 0 then
inc(k);
writeln('Строка ',i,' элемнтов ',k);
end;
writeln('введите столбец');
readln(j);
writeln('введите сумму указанного столбца');
readln(c);
writeln('уmножение элементов указанного столбца на число элементов строки');
begin
p:=p+k*a[i,c];
writeln(p);
end;


end;
end.



вот программа! все равно не получается...числа непонятные выводит при автоматическом вводе!

[Mad_Cat]

writeln('Данная матрица');
{Вывод матрицы}
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4:1);
writeln;
end;

[Julichka1k]

=) оо!! получилось хоть чтобо =)

[ViktorR]

ByAlex

write(a[i, j]:2:2, ' ');

Поскольку это выражение появилось вновь, то решил заметить, что:

write(a[i, j]:m:n, ' ');

m - число позиций, в которых выводится значение.
Это сумма предполагаемого числа цифр целой части, числа цифр после запятой + 2-е позиции для точки и знака (если число будет, например, отрицательным).
n - число цифр после запятой.
Выводимое значение выравнивается по правому краю.
И это для вывода вещественного типа.
Для целого и строкового типа указываем одно число - число позиций.

[ByAlex]

Сообщение от ViktorR

ByAlex


Поскольку это выражение появилось вновь, то решил заметить, что:

write(a[i, j]:m:n, ' ');

m - число позиций, в которых выводится значение.
Это сумма предполагаемого числа цифр целой части, числа цифр после запятой + 2-е позиции для точки и знака (если число будет, например, отрицательным).
n - число цифр после запятой.
Выводимое значение выравнивается по правому краю.
И это для вывода вещественного типа.
Для целого и строкового типа указываем одно число - число позиций.

Это был пример!