Potenztabelle, Pascal

Potenztabelle

PROGRAM Potenztabelle;

{$OverflowChecks On}
{$RangeChecks On}
TYPE INTEGER = LONGINT;

VAR
  m, n, i, j,a,b : INTEGER;
  tabelle : ARRAY OF ARRAY OF INTEGER;

BEGIN
  Write('(Zeilen) m: '); 
  Readln(m);
  Write('(Spalten) n: '); 
  Readln(n);

// Tabelle initialisieren
  SetLength(tabelle, m, n); 
  // anpassen!

// Tabelle ausfuellen
  
  { FOR i:=0 TO m-1 DO
  BEGIN
      FOR j:=0 TO n-1 DO
      BEGIN
          tabelle[i,j]:=0
      END;
  END;    
  
   
  FOR i:=0 TO n-1 DO
  BEGIN
      tabelle[i]:=1; 
      END;}
  
  a:=1
  FOR j:=0 TO m-1 DO
  BEGIN 
      a:= inc(a);
  END;
  
  
  
  FOR i:=0 TO n-1 DO
  BEGIN
      b:= 0;
  END;
  
  
  FOR i:=0 TO n-1 DO
  BEGIN
      FOR j:=0 TO m-1 DO 
      BEGIN
          tabelle[i,j]:= a *;
      END;
  END;

// Tabelle auf der Konsole ausgeben
  FOR i := Low(tabelle) TO High(tabelle) DO
  BEGIN
    FOR j := Low(tabelle[i]) TO High(tabelle[i]) DO
    BEGIN
      Write(tabelle[i][j], ' ');
    END;
    Writeln; // Ende der Zeile
  END
END.


run \| edit \| history \| help	0