Помогите с матрицой

Тема в разделе "Pascal and Delphi", создана пользователем kostya, 4 дек 2010.

  1. kostya

    kostya Гость

    Здравствуйте, помогите решить задачку на паскале... никак не получается решить(
    Есть одномерный масив X, из n элементов. Получить квадратную матрицу вида

    х1 х2 ... хn
    xn x1 ... xn-1
    .................

    x2 x3 ... x1

    Заранее благодарен
     
  2. XTen

    XTen Active Member

    Регистрация:
    18 сен 2010
    Сообщения:
    26
    Симпатии:
    0
    Пиши решу
    ICQ: 410691984
     
  3. kostya

    kostya Гость

    Код (Delphi):
    for i:=1 to 1 do begin
    for j:=n downto 1 do
    if j=n then q:=a[n] else begin
    a[j+1]:=a[j];
    end;
    a[1]:=q;
    //mas[1,j]:=a[j];
    //for i1:=1 to n do begin
    //for j1:=1 to n do begin
    mas[1,j]:=a[i];
    stringgrid1.Cells[i,j]:=inttostr(mas[i,j]);
    //memo2.lines.add(inttostr(a[n]));
    end;

    end;
    пытался сделать но ошибки выдает, может сможете переделать...?
     
  4. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Если я правильно понял условие то вот(на паскале,если надо на делфи, то отпишитесь, либо сами переведите):
    Код (Delphi):
    const n=10;
    var a:array[1..n] of integer;
    b:array[1..n,1..n] of integer;
    i,j,k,t:integer;
    begin
    for i:=1 to n do
    a[i]:=i;

    for i:=1 to n do
    for j:=1 to n do
    begin
    k:=j-i+1;
    if k>n then k:=k-n;
    if k<=0 then k:=k+n;
    b[i,j]:=a[k];
    end;

    for i:=1 to n do
    begin
    write(' ');
    for j:=1 to n do
    write(b[i,j],' ');
    writeln;
    end;
    readln;
    end.
    вход:
    1 2 3 4 5 6 7 8 9 10
    выход:
    1 2 3 4 5 6 7 8 9 10
    10 1 2 3 4 5 6 7 8 9
    9 10 1 2 3 4 5 6 7 8
    8 9 10 1 2 3 4 5 6 7
    7 8 9 10 1 2 3 4 5 6
    6 7 8 9 10 1 2 3 4 5
    5 6 7 8 9 10 1 2 3 4
    4 5 6 7 8 9 10 1 2 3
    3 4 5 6 7 8 9 10 1 2
    2 3 4 5 6 7 8 9 10 1
     
Загрузка...

Поделиться этой страницей