Технический форум - Программа на Турбо-Паскале

Цитата:

Сообщение от nikepol (Сообщение 432637)

Задан массив х размером N.Сформировать из него матрицу А.содержащую по альфа элементов в строке.недостающие элементы в последней строке (если такие будут)заполнить нулями

Например, так:

Код:

CONST

 N=20;

VAR

 X:ARRAY[1..N] of BYTE;

 A:ARRAY[1..N,1..N] of BYTE;

 Alpha,Beta:Word;

 i,j:Integer;

BEGIN

 Randomize;

 For i:=1 to N do X[i]:=Random(100);

 WriteLn;

 For i:=1 to N do Write(X[i]:3);

 WriteLn;

 Write('Alpha (<',N,')= ');

 ReadLn(Alpha);

 WriteLn;

 Beta:=N div Alpha;

 For i:=1 to Beta do

  begin

   for j:=1 to Alpha do

    begin

     A[i,j]:=X[(i-1)*Alpha+j];

     Write(A[i,j]:3);

    end;

   Writeln;

  end;

 If Alpha*Beta<N then

  begin

   For j:=1 to N-Alpha*Beta do

    begin

     A[Beta+1,j]:=X[Alpha*Beta+j];

     Write(A[Beta+1,j]:3);

    end;

   For j:=N-Alpha*Beta+1 to Alpha do

    begin

     A[Beta+1,j]:=0;

     Write(A[Beta+1,j]:3);

    end;

   WriteLn;

  end;

 ReadLn;

END.