AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Pyramide zeichnen

Ein Thema von me2u · begonnen am 15. Mär 2007 · letzter Beitrag vom 7. Apr 2007
 
me2u
(Gast)

n/a Beiträge
 
#1

Pyramide zeichnen

  Alt 15. Mär 2007, 19:22
Hi,

ich soll in Informatik eine (möglichst große) Pyramide in Delphi zeichnen.

Ich hab das jetzt auch soweit, dass pro Zeile immer mehr Sternchen (meine Pyramidenbauteile ) dazukommen, jedoch geht das nur in eine Richtung und man müsste eben noch Leerzeichen einfügen, dass der oberste Punkt der Pyramide genau in der Mitte ist.

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

Das ist mein Problem, denn ich weiß absolout nicht wie es geht. Ich habe zwar schon mit einer zweiten FOR Schleife expeimentiert, aber dann hatte ich es genau andersrum, also dass die Pyramide pro Zeile am Anfang immer mehr Leerzeichen bekommt.

Hier mal mein Code, soweit ich ihn für durchschaubar halte ^^

Code:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    pnlTitel: TPanel;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var y : integer;
    i : integer;
    zeile : string;

begin
  y := 0;
  Memo1.Lines.Clear;
  while y < Memo1.Height do
    begin
      zeile := '';
      for i := 0 to (y div 15) do
        begin
          zeile := zeile + '*'
        end;

      Memo1.Lines.Add (zeile);
      y := y + 15;
    end;
end;

end.
Wenn ihr wollt, könnt ihr euch alle Delphi Dateien auch vom Webspace von mir ziehen: http://ironthunder.ir.funpic.de/Pyramide.rar

Hoffe, ihr könnt mir helfen.

Mit freundlichen Grüßen
me2u
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz