Программа на Турбо-Паскале

[nikepol]

Программа на Турбо-Паскале

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

 

[Vladimir_S]

Задан массив х размером 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.