Forum: Object-Pascal / Delphi-Language
by himitsu,
3. Sep 2011
___1___
__a_b__
_a___b_
2ccccc3
fd___eg
f_d_e_g
f__x__g
f_e_d_g
fe___dg
4hhhhh5
Forum: Object-Pascal / Delphi-Language
by himitsu,
3. Sep 2011
Es gibt 88 verschiedene Möglichkeiten das HdN zu Zeichnen.
Wenn man aber die gespiegelten und umgekehrten Wege ignoriert, dann muß man sich nur 22 Wege merken. :stupid:
(wenn ich richtig gezählt hab)
- man kann eine Linie ja auch rückwärts ablaufen
- und das HdN ist horizontal gespiegelt
PS: alle Wege beginnen und Enden am Boden
Forum: Object-Pascal / Delphi-Language
by himitsu,
2. Sep 2011
Wenn du
for i := 0 to a do
begin
for j := 0 to a do
die Y-Achse von -a/2 bis a laufen läßt und die Diagonalen mit
einem "Überlauf" versiehst (ABS(x) und x mod (a+1)),
dabei noch die senkrechten im negativen Y-Bereich nicht anzeigst,
dann kannst du die erste Dachschleife dort mit integrieren.
Forum: Object-Pascal / Delphi-Language
by himitsu,
22. Aug 2011
Wobei man sowas, vorallem bei einer Konsolenanwendung, extrem gut debuggen könnte, da sich Windows um das Zeichnen der Konsole kümmert und nicht die eigene Anwendung. :angle2:
Aber das ReadLn am Schluß ist schon wichtig, wenn man das Programm micht über eine Konsole startet.
Also z.B. aus Delphi heraus oder über den Explorer.
Denn dort nimmt das Programm ja "seine" selbsterstellte Konsole...
Forum: Object-Pascal / Delphi-Language
by himitsu,
21. Aug 2011
Die Horizontalen ist natürlich ganz leicht ... genauso wie die Vorhandene, einfach in einer "anderen" Zeile. :wink:
Und die Senkrechte ... ein paar Leerzeichen hinter der Vorhandenen und dann die Neue anhängen.
Forum: Object-Pascal / Delphi-Language
by himitsu,
21. Aug 2011
Wer hat alles in Mathematik aufgepasst?
Gegeben ist ein Koordinatensystem, bzw. eine gezackte Gerade.
und gegeben sind 8 Geraden, bzw. 6 Geraden mit Überlauf.
Liegt nun ein Pinkt des Koordinatensystems auf einer der Linien?
Wenn ja, dann zeichne dort ein X.
Forum: Object-Pascal / Delphi-Language
by himitsu,
20. Aug 2011
Das glaub ich dir nicht.
Vermutlich ist das Programm nur so schnell fertig, daß man es nicht sieht.
Das könnte man aber alles mit dem Debugger prüfen.
program Project2;
{$AppType Console}
var i,j:Integer;
begin