Массив, вывести по диагонали

[Naposaram]

Всем привет, осталось сделать две программки, самому не справится без вас.... мастера помогите =)

условие

По заданной строке из N символов сформировать квадратную матрицу размера N´N, расположив символы строки в главной диагонали и заполнив диагонали, параллельные побочной диагонали, соответствующими символами главной диагонали. Остальные элементы матрицы заполнить нулями. Например, для строки “Проба” получаем матрицу

Вот что сделал, слово размером до 10 букв внес в массив, а вот как вывести, так что бы было как требует задача?

program mas;
uses crt;
var a : string;
    n,i : longint;
    b : array [1..10] of string;
 begin
   clrscr;
   write('введите слово:');
   readln(a);
   n:=length(a);
   for i:=1 to n do b[i]:=a[i];
   for i:=1 to n do
   begin
     writeln('b[',i,']=',a[i]);
   end;
   readln;
 end.

[Serge_Bliznykov]

а зачем Вам ОДНОМЕРНЫЙ массив то? В задании же чётко сказано: "сформировать квадратную матрицу размера N´N"

я бы предложил такой вариант (он неоптимален - количество циклов в нём избыточно, но он вполне рабочий!):

program mas;
uses crt;
const MaxN = 25;
var s : string;
    i,j,k, N : longint;
    B : array [1..MaxN, 1.. MaxN] of char;
 begin
   clrscr;
   repeat
     write('введите слово:');
     readln(s);
     N := length(s);
     if N>MaxN then WriteLn('Максимальная длина слова д.б. меньше ',MaxN);
   until N<=MaxN;

   {заполнение матрицы - сначала нулями}
   for i:=1 to N do
     for j:=1 to N do B[i,j] := '0';


   {теперь заполним буквами из слова}
   for k:=1 to N do
     for i:=1 to N do
       for j:=1 to N do
         if (i+j) = k*2 then B[i,j] := s[k];

   {вывод результатов}
   WriteLn('Полученная матрица:');
   for i:=1 to N do begin
     for j:=1 to N do
       Write(' ', B[i,j] );
     WriteLn;
   end;

   readln;
 end.

[Naposaram]

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

а зачем Вам ОДНОМЕРНЫЙ массив то? В задании же чётко сказано: "сформировать квадратную матрицу размера N´N"

я бы предложил такой вариант (он неоптимален - количество циклов в нём избыточно, но он вполне рабочий!):

program mas;
uses crt;
const MaxN = 25;
var s : string;
    i,j,k, N : longint;
    B : array [1..MaxN, 1.. MaxN] of char;
 begin
   clrscr;
   repeat
     write('введите слово:');
     readln(s);
     N := length(s);
     if N>MaxN then WriteLn('Максимальная длина слова д.б. меньше ',MaxN);
   until N<=MaxN;

   {заполнение матрицы - сначала нулями}
   for i:=1 to N do
     for j:=1 to N do B[i,j] := '0';


   {теперь заполним буквами из слова}
   for k:=1 to N do
     for i:=1 to N do
       for j:=1 to N do
         if (i+j) = k*2 then B[i,j] := s[k];

   {вывод результатов}
   WriteLn('Полученная матрица:');
   for i:=1 to N do begin
     for j:=1 to N do
       Write(' ', B[i,j] );
     WriteLn;
   end;

   readln;
 end.

Бооольшущее спасибо!!!