Writeln в TPascal

[VadEr]

Подскажите пожалуста, почему не работает Writeln (перенос строки) в TP7? В Delphi все ok, но надо в TP.

Например:
Вывожу перый раз массив - перенос строки работает

for i:=1 to N do
 for j:=1 to N do
      begin   
        Writeln(mas[i,j],' ');
        if j=N then Writeln
      end;

Далее вывожу второй раз массив (аналогичным методом), но пишется все в строку (даже writeln('xxx'); вне цикла не работает).

[Sazary]

Хотите сказать, что у вас это работает? )

for i:=1 to N
 for j:=1 to N

где do?

И, кстати, если вы так будете выводить, то "матрицы" не получится. Элементы будут выводиться каждый на новой строке.

[VadEr]

Извиняюсь, просто забыл дописать пример (сейчас исправлю). На самом деле там "do" стоит и вопрос по-прежнему актуален. Перый вывод матрицы проходит так как надо.

см. картинку после слова "After:".

[Sazary]

Извиняюсь, просто забыл дописать пример (сейчас исправлю). На самом деле там "do" стоит и вопрос попрежнему актуален.

Покажите полный код. Или, по крайней мере, участок, который работает не так (только не переписывайте, а ля "там сделано также", а скопируйте).

[VadEr]

const
  N=10;
var
  mas :array[1..N,1..N] of integer;
  i, j :byte;
 begin
Writeln('Before:');
Randomize;
for i:=1 to N do
  for j:=1 to N do
    begin
       mas[i,j] := Random(101);
       Write(mas[i,j]:3,' ');
       if j=N then writeln
    end;
for j:=1 to N do
  for i:=1 to N do
      mas[i-j,j] := 0;
Writeln;
Writeln('After:');
for i:=1 to N do
    for j:=1 to N do
        begin
          Write(mas[i,j]:3,' ');
         if j=N then Writeln
        end;
Readln
end.

[Sazary]

Эм.. И что не так?


Покажите-ка скрин.

[VadEr]

скрин в посте №3. После слова After д/б матрица как после слова Before, а она пишется в строчку. Ди и само слово After почему-то не сновой строки и с отступом в право.

[Sazary]

for j:=1 to N do
  for i:=1 to N do
      mas[i-j,j] := 0;

У вас индексация от 1 до N, а тут индекс получается отрицательным.

[VadEr]

Теперь понял:

for j:=1 to N do
    for i:=N downto 1 do
         if i<>j then mas[i-j,j] := 0;