Wieder problem in Pascal!

[Sofa5000]

Die aufgabenstellung ist folgende.
Es soll ein Weihnachtsbaum ausgegeben werden. Die Höhe des Stamms und des eigentlichen Baumes können vom Benutzer bestimmt werden.

Kann das wer?
Danke

[fkerber]

Hi!

Was ist mit Weihnachtsbaum gemeint? EIn bild, oder?
wie unterscheidet sich höhe vom Stamm und Baum?

Ciao fkerber

[Sofa5000]

Es soll ungefähr so ausschauen!

*
***
*****
*******
*********
***********
***
***


Die Höhe dieses Baumes ist sechs und die höhe des Stammes zwei!

Aber auf der zweiten seite auch aber das kann man hier nicht gescheit anzeigen!

[fkerber]

Hi!

Axo, dann ist klar, dann musst du mal nach For-Schleifen gucken!

Ich guck nachher mal, ob ich es schnell zusammenkrieg!

Ciao fkerber

[fkerber]

Hi!

Ich glaub, dass müsste es sein!
Was gibts für's Aufgaben lösen? :wink: Ok, war nur ein Scherz

Ciao fkerber

[Phoenix]

Zitat:

Zitat von fkerber

Was gibts für's Aufgaben lösen? :wink: Ok, war nur ein Scherz

Also bei mir wär das richtig teuer geworden. ca. 50 Euro um genau zu sein. :zwinker:

[fkerber]

Hi!

Darf ich fragen, was das für ein Beruf ist? Genauer gesagt, nach welcher Ausbildung kann man dafür 50 Euro verlangen
Ich mein, das war ja jetzt nicht grad so ne Aufgabe (womit ich nicht sagen will, dass Programmierer sowas umsonst machen sollten, sonst könnten sie ja alles umsonst machen :lol: )

Ciao fkerber

[Niels]

@fkerber ... ich glaub der Baum sollte net nur halb gezeichnet werden.

Ich hab mal nen kurzen Pascal-Quelltext gemacht (da es für die Schule ist soll's ja bestimmt in Pascal sein, oder lernt von euch jemand in der Schule Delphi???...Das wär natürlich geil)
...hoff mal der funzt ;)

Delphi-Quellcode:

var
  a,b,x,y,z: integer;

begin
  write('Bitte Höhe der Krone einegben: ');
  readln(a);
  write('Bitte Höhe des Stammes einegben: ');
  readln(b);
  writeln;
  writeln;
  for x := a downto 1 do
  begin
    for y := 1 to (x-1) do write(' ');
    if (a-x) > 0 then
      for z := 1 to 2*(a-x) do write('*');
    writeln('*');
  end;
  for x := 1 to b do
  begin
    for y := 1 to (a-2) do write(' ');
    writeln('***');
  end;
  readln;
end.

MfG Niels

PS: Meine Lösung ist genau nach der Aufgabe des Lehrers...siehe oben @fkerber

[Phoenix]

Zitat:

Zitat von fkerber

Darf ich fragen, was das für ein Beruf ist? Genauer gesagt, nach welcher Ausbildung kann man dafür 50 Euro verlangen. Ich mein, das war ja jetzt nicht grad so ne Aufgabe (womit ich nicht sagen will, dass Programmierer sowas umsonst machen sollten, sonst könnten sie ja alles umsonst machen :lol: )

Och, bei Individualentwicklungen nehm ich immer 50 € die Stunde. Und ich rechne immer nur angefangene Stunden ab, von daher passt das schon. :)

[fkerber]

Hi!

Zitat:

Zitat von Sofa5000

Es soll ungefähr so ausschauen!

*
***
*****
*******
*********
***********
***
***

Demnach ist es nur ein halber Baum, oder?
Und selbst, wenns ein ganzer sein soll, dann hat er zumindest mal nen Ansatz

Zitat:

Zitat von Niels

(da es für die Schule ist soll's ja bestimmt in Pascal sein, oder lernt von euch jemand in der Schule Delphi???...Das wär natürlich geil)

Ja, ich lerne in der Schule (Gymnasium) Delphi (4.0 :| ) und deswegen, war das mein Ansatz!

Ciao fkerber