Creating 2-dimensional array (nxn) *Pascal

Question

Does anyone know how to create Matrix using array function in Pascal?

Output will be something like this:

Thanks.

Edit:

This is my Code sofar:

program borlpasc;
var a:array[1..100,1..100] of integer;
    i,j,n:integer;
begin write('Enter the Number N='); {Example: 5}
   readln(n);
   for i:=1 to n do
       for j:=1 to n do
           begin a[i,j]:=0;
           if n mod 2 = 1 then begin
           a[n div 2 + 1, j] := 1;
           a[i, n div 2 + 1] := 1;
           end;
           end;
    for i:=1 to n do
        begin for j:=1 to n do write(a[i,j]:2);
            writeln
        end;
     readln
end.

but only get this:

Paul R · Accepted Answer · 2013-10-07 09:56:40Z

1

You don't need arrays for this, just two nested FOR loops. Here is an example which writes a grid of 1s - see if you can modify this to give the output that you need (hint: you need to add an IF statement).

program Grid;

  procedure DrawGrid(nx: integer; ny: integer);

    var
      x, y: integer;

    begin
      for y := 1 to ny do
        begin
          for x := 1 to nx do
            begin
              write('1');
            end;
          writeln;
        end;
    end;

begin
  DrawGrid(5, 5);
end.

answered Oct 7, 2013 at 9:56

Paul R

214k38 gold badges402 silver badges579 bronze badges

Sign up to request clarification or add additional context in comments.

4 Comments

Thomas Over a year ago

You could still add a few notes about how to actually create a 2D array, and show how one can then print out the 2D array explicitly. This answer as it stands is rather unfulfilling in my opinion since the OP talks about matrices and for most matrix operations you still need to store the matrix somewhere convenient (standard output is not particularly convenient).

Paul R Over a year ago

I think the OP has already worked this part out in the code in his question - his two problems appear to be that (a) he is using an array unnecessarily and (b) his logic for 1 versus 0 output needs a little more work. Since it's homework I didn't think it wise to provide a complete solution, just guidance.

user2854072 Over a year ago

Hi Paul, Thanks!. Any hint how to fix my code? I've tried for night and still no luck :(

Paul R Over a year ago

If you want to keep your code with the redundant array then you just need to fix the logic in the IF statement - think about what determines whether a cell is a 1 or a 0.

Collectives™ on Stack Overflow

Creating 2-dimensional array (nxn) *Pascal

1 Answer 1

4 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

4 Comments

Your Answer

Sign up or log in

Post as a guest

Related