Alle Beiträge und Antworten
Christian - 21.12.2005, 23:48
Matrix
Program Insektenexkrimente;
USES CRT;
VAR
I, K, Ende :Integer;
Begin
CLRSCR;
Write('Geben sie das Ende der Fahnenstange an: ');
readLN(Ende);
For K:= 1 to Ende Do
Begin;
For I:= 1 to Ende Do
Begin;
Write(I*K:6);
end;
WriteLN;
WriteLN;
End;
Repeat until Keypressed;
End.
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken