Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Potenztabelle
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 j:=0 TO n-1 DO BEGIN tabelle[0,j]:=1; END; FOR j:=0 TO n-1 DO BEGIN FOR i:=1 TO m-1 DO BEGIN tabelle[i,j]:= tabelle[i-1,j] * j; 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
Zadanie 2
Урок 6. Задача 9 (1532). Числа Фибоначчи
LETICIA VIEIRA TEIXEIRA 600618795
Урок 3 задача 4
Huong11a2@
practica 3 ejercicio B3
zadanye 4
Ipis unazad ulancana lista
Calculatrice 1.0
test