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

[Niels]

Zitat:

Zitat von Sofa5000

Es soll ungefähr so ausschauen!
....
Aber auf der zweiten seite auch aber das kann man hier nicht gescheit anzeigen!

Er wollte das beidseitig ham...und ich glaub sein Problem lag auch darin, das ordentlich hinzubekommen, weil nen halben Baum anzuzeigen is ja keine Kunst :wink:

Zitat:

Zitat von fkerber

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

Find ich ja kewl, dass es auch Schulen gibt, wo Delphi unterrichtet wird.
Wir lernen Oberon! Der *ach-so-geile* Nachfolger von Turbo Pascal. :wall: :wall: :wall:

Naja zum Glück hab ich zu Hause mein gutes Delphi und meinen Assembler 8)

[fkerber]

HI!

Stimmt das hatte ich überlesen :oops:
Aber wie gesagt ein Ansatz :|

Ciao fkerber

[Matze]

Hier hab ich den Baum mal als projekt.

ohne ReadLn und WriteLn, da ich nicht weiß, für was das ist. :oops:

[fkerber]

Hi1

ReadLn und WriteLn sind Funktionen in Pascal zum Lesen von Usereingaben bzw. zum Schreiben leerer Zeilen (wenn ich mich dunkel erinnere)

Also

Delphi-Quellcode:

ReadLn(a)

liest, das eingegebene in die Variable a ein!

Ciao fkerber

[Matze]

Achso, danke.
Bei Delphi braucht man das aber nie, oder? :gruebel:

[fkerber]

Hi!

Ich weiß nicht, wie das bei Konsolenprogrammen ist!
Vielleicht mal die Hilfe zu Rate ziehen!

Ciao fkerber

[Luckie]

Für Konsolen Programme sind sie noch recht nützlich oder wie soll man sonst eine Aus- / Eingabe realisieren? :gruebel: