VPF::Вывод матрицы. - Форум программистов

UpL1nK

Дата 9.3.2006, 20:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 102
Регистрация: 3.12.2005
Где: Тюмень

Репутация: нет
Всего: нет

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

Код


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

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

Код


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
Блин даже тут картинка не так встала, почему пробелы удаляются???
мне надо с прямым углом в правом верхнем, я рисовал так, но когда создал тему, все пробелы удалились )
И в программе также, подскажите че сделать )

Это сообщение отредактировал(а) Snowy - 10.3.2006, 11:43

--------------------

Макс

volvo877

Дата 9.3.2006, 20:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »