Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Вывод матрицы.

Автор: UpL1nK 9.3.2006, 20:18

Подскажите пожалуйста как вывести матрицу ( как на картинке )

Код


............
 ...........
  ..........
   .........
    ........
     .......
      ...... 
       .....
        .... 
         ...
          ..
           .

У меня вот такой код, но он выводит с прямым углов в левом вернем углу, а надо с правым (

Код


Procedure Print(a:matrix);
Begin
     for i:=1 to n do begin
         for j:=i to n do
             Write(a[i,j]:4);writeln;end;
End;

Добавлено @ 20:20
Блин даже тут картинка не так встала, почему пробелы удаляются???
мне надо с прямым углом в правом верхнем, я рисовал так, но когда создал тему, все пробелы удалились )
И в программе также, подскажите че сделать )

Автор: volvo877 9.3.2006, 20:56

UpL1nK, так:

Код

procedure Print(a:matrix);
var i, j: integer;
begin

  for i:=1 to n do begin
    write('':(4*pred(i)));
    for j:=i to n do
      write(a[i,j]:4);
    writeln;
  end;

end;

Автор: Snowy 10.3.2006, 11:43

Я подправил пост - теперь отображается верно.