Question

How to fill a large array by repeatedly copying the values from a small array in Pascal

Answer 1

program FillLargeArrayWithValuesFromSmallArray;

var
  smallarray: array[1..5] of Integer = (1, 2, 3, 4, 5);
  largearray: array[1..30] of Integer;
  i, largelen, smalllen: Integer;

begin
  largelen := Length(largearray);
  smalllen := Length(smallarray);
  
  for i := 1 to largelen do
  begin
    largearray[i] := smallarray[(i - 1) mod smalllen + 1];
  end;

  for i := 1 to largelen do
  begin
    Write(largearray[i], ' ');
  end;
end.




(*
run:

1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 

*)

 

70+ SQL courses for beginners and professionals