Перечисление через пробел в результате

@HavapeymaK · Регистрация: 23.03.2015

Author24 — интернет-сервис помощи студентам

Pascal

Program perestanovkastrok;
const
 m=4;
 n=4;
 o=1;
 k=4;
var
E:array[1..m,1..n] of real;
 c:real;
 i,j:integer;
begin
 writeln('введите значения элементов матрица по строкам');
 for i:=1 to m do
  begin
   for j:=1 to n do read(E[i,j]);
   writeln;
  end;
 for j:=1 to n do
  begin
   c:=E[o,j];
   E[o,j]:=E[k,j];
   E[k,j]:=c;
  end;
  writeln;
  writeln('готово:');
  for i:=1 to n do
  begin
for j:=1 to m do
write(E[i,j]);
            writeln
end;
end.

Как результат программа выводит матрицу, но элементы одного ряда перечисляются сплошняком. Как сделать, чтобы между ними были пробелы

@Joy · 03.09.2015, 06:55

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

Как результат программа выводит матрицу, но элементы одного ряда перечисляются сплошняком. Как сделать, чтобы между ними были пробелы

Pascal

1 2	for j:=1 to m do write(E[i,j]:4);

так отводится 4 места под цифру

Pascal

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

так просто после цифры добавляется пробел

@Puporev · 03.09.2015, 07:01

Pascal

Program perestanovkastrok;
const
 m=4;
 n=4;
 o=1;
 k=4;
var
 E:array[1..m,1..n] of real;
 c:real;
 i,j:integer;
begin
 writeln('введите значения элементов матрицы по ',n,' вещественных числа в строке ');
 for i:=1 to m do
  begin
   for j:=1 to n do read(E[i,j]);//между числами пробелы
   readln;//нажимаем Enter после  ввода строки
  end;
 for j:=1 to n do
  begin
   c:=E[o,j];
   E[o,j]:=E[k,j];
   E[k,j]:=c;
  end;
  writeln;
  writeln('готово:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(E[i,j]:5:2);
  writeln
 end;
end.

	03.09.2015, 07:01