Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Potenztabelle
Language:
Ada
Assembly
Bash
C#
C++ (gcc)
C++ (clang)
C++ (vc++)
C (gcc)
C (clang)
C (vc)
Client Side
Clojure
Common Lisp
D
Elixir
Erlang
F#
Fortran
Go
Haskell
Java
Javascript
Kotlin
Lua
MySql
Node.js
Ocaml
Octave
Objective-C
Oracle
Pascal
Perl
Php
PostgreSQL
Prolog
Python
Python 3
R
Rust
Ruby
Scala
Scheme
Sql Server
Swift
Tcl
Visual Basic
Layout:
Vertical
Horizontal
PROGRAM Potenztabelle; {$OverflowChecks On} {$RangeChecks On} TYPE INTEGER = LONGINT; VAR m, n, i, j : 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:= LOw(m) To High(m) DO [M,n]:=[i,i]*m[i,i]; // 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.
4 5
Show compiler warnings
[
-
]
Show input
edit mode
|
history
|
discussion