Pyramide zeichnen

[3_of_8]

Wenn schon, dann liegt es an Windows bzw. der eingestellten Schriftart. Aber was meinst du überhaupt mit "nicht ganz gerade"? Etwa dass ein Leerzeichen nicht so breit ist wie ein * oder umgekehrt? Dann stell die Schrift auf Courier New.

[Kedariodakon]

Das liegt nicht am Code, das liegt am proportionalen Zeichensatz in deinem Memo, stell zum Beispiel mal auf "Courier New" (ist ein nichtportionaler = alle Zeichen sind gleich breit) um, dann sollte das grade sein.

Seh schon Rot...

Bye Christian

[me2u]

Zitat von 3_of_8:

Wenn schon, dann liegt es an Windows bzw. der eingestellten Schriftart. Aber was meinst du überhaupt mit "nicht ganz gerade"? Etwa dass ein Leerzeichen nicht so breit ist wie ein * oder umgekehrt? Dann stell die Schrift auf Courier New.

Mit nicht ganz gerade meine ich das hier:

http://www.directupload.net/images/070315/r58RKrrK.jpg


Courier New ? Irgenwie keine so gute Idee :

http://www.directupload.net/images/070315/wNfddF2K.jpg

Keine Ahnung wieso das jetzt so ist !?


[edit]
AAAAH, es liegt am Code:

Wenn ich

Code:

y := Memo1.Height;
Memo1.Lines.Clear;
for i := 1 to (y div 15) do
  Memo1.Lines.Add(StringOfChar(' ', (y div 15) - i) + StringOfChar('*', i));

benutze, dann sieht es so rechtsbündig aus.

Benutze ich einen anderen Code, dann stimmts.

[himitsu]

damit es gleichmäßig wird, solltest du eher in ganzen Zeichen rechnen.

du kannst ja mit schrittgröße und Schriftart experimentieren.

z.B. Courier und

Delphi-Quellcode:

for i := 0 to 30 do 
  Memo1.Lines.Add(StringOfChar(' ', 30 - i) + StringOfChar('*', 1 + i * 2));

[add]
keine ahnung?
is doch offensichtlich


bei dem obrigem Code muß das Leerzeichen halb so breit wie der stern sein
und hier sollte beides gleich breit sein

http://www.delphipraxis.net/internal...ghlight=h%F6he

[Kedariodakon]

da wird in jeder Zeile jeweils dann ein Sternchen zu wenig gesetzt...
Es kommen immer 2 dazu nicht nur eins...

Code:

1 Sternchen...
1      *
1+1   **
2+1  ***
3+1 ****

2 Sternchen...
1      *
1+2   ***
3+2  *****
5+2 *******

Bye Christian

[me2u]

Aaaah, jetzt hab ichs geschnallt Danke !

Nur das Doofe daran ist jetzt, dass in der ersten Zeile 3 Sterne stehen.

Delphi-Quellcode:

for i := 0 to 30 do 
  Memo1.Lines.Add(StringOfChar(' ', 30 - i) + StringOfChar('*', 1 + i * 2));

Habe es jetzt so gelöst:

Delphi-Quellcode:

for i := 0 to 30 do 
  Memo1.Lines.Add(StringOfChar(' ', 30 - i) + StringOfChar('*', -1 + i * 2));

Ich weiß ehrlich gesagt nicht genau WIESO das jetzt so funktioniert, aber es sieht gut aus

http://www.directupload.net/images/070315/QK9tjzRp.jpg

Danke, ihr seid die Geilsten !


[edit] Vergesst es Hab i falsch gehabt, fing an mit for i := 1 und nicht 0. Deshalb war die Rechnung falsch. Stimmt also alles, DANKE [/edit]

[Kedariodakon]

Da hatte ich doch grad selber schnell was zusammengebaut und du hasts selber...

Delphi-Quellcode:

Procedure TForm1.cmdGoClick(Sender: TObject);
Var i: Integer;
    Sl: TStringList;
Begin
  Sl  := TStringList.Create;
  For i := 0 To seLines.Value - 1 Do Begin  //  seLines.Value = Anzahl der Zeilen
    Sl.Append( StringOfChar( #32, ( seLines.Value - 1 ) - i ) + StringOfChar( #42, i*2 + 1 ) );
  End;
  txtOut.Text := Sl.Text;  
End;

Ich würd an deiner Stelle das so machen wich ich das gemacht habe (Mit hilfe einer StringListe) kannst ja mal eine 1000 Zeilen Pyramide erstellen, dann weist warum.

Zitat von me2u:

Ich weiß ehrlich gesagt nicht genau WIESO das jetzt so funktioniert, aber es sieht gut aus

Warum ist ja einfach zu sagen...

Du brauchst in der ersten zeile einen Stern in jeder weiteren 2 Sterne mehr...
Also ist die Rechnung recht simpel: (Zeilennummer - 1) * 2 + 1 da bei dir (wie auch bei mir) Zeile 1 eigendlich 0 ist wird ganz simpel daraus: Zeilennummer * 2 + 1
So damit hätten wir die Sternchen...

Kommen wir zu den Leerzeichen...
die Letzte Zeile benötigt also keins und jede Zeile zuvor jeweils eins mehr...
Daraus folgt, dass wir die Anzahl der Zeilen kennen müssen!
Also ist die Anzahl an Leerzeichen einer Zeile Zeilenanzahl - Zeilennummer da wir beide aber wieder bei 0 statt bei eins anfangen müssen wir noch eins abziehn: Zeilenanzahl - Zeilennummer - 1


Bye Christian

[me2u]

Ok danke an Alle !

Ich habe das meinem Lehrer präsentiert und er hat mir auch die volle Punktzahl, die es bei dieser Aufgabe zu erreichen gab, gegeben. Ihr seid die besten