Das Haus vom Nikolaus Konsolenanwendung

[hotkey]

Hallo , ich bin grade im Informatik Leistungskurs ( Klasse 12 ) und als Einführung müssen wir das Haus vom Nikolaus unter Konsolenanwendung programmieren , das heißt schlicht und einfach gesagt "cmd"-Fenster , allerdings müsssen wir das Haus mit 'x' programmieren , also nur mit dem Buchstaben x..

Ich habe schon die senkrechte "Linie" , die aus x'en besteht , programmiert mit einer for to do Schleife , allerdings schaffe ich die horizontale Linie nicht:

x
x
x
x
x
x
x x x x x x x <- Das schaffe ich nicht..




Hier mal mein Code , ich weiß , ist nix eingerückt etc , aber das ist momentan nicht die oberste Priorität..

Code:

program Project2;

uses
  Forms;

{$AppType Console}
var i,j:Integer;
begin
  for i:=1 to 10 do begin
  writeln('x');
  readln;
  if (i=1) then begin
  for j:=1 to 10 do
  write('x');
  read;
end;




end;
end.

Sobald in der ersten for-to-do-Schleife die 10 erreicht wird , soll mit der zweiten Schleife gearbeitet werden , aber das kriege ich nicht hin..

[Luckie]

Das wird in der Konsole so nicht funktionieren. Oder wie willst du die Diagonale zeichnen? Entweder du nimmst dir eine Unit mit der du den Cursor positionieren kannst oder du machst ein grafisches Programm mit Fenster. Ich würde zweiteres machen, weil das mit Sicherheit einfacher ist.

[hotkey]

Nein nein , das geht , das hat unser Lehrer gesagt , um die Diagonale werden wir uns später kümmern , das Problem ist die horizontale Linie , das muss man doch schaffen , das sind paar lächerliche Befehle mit if und for-to-do..

[Namenloser]

Du hast begin und end falsch gesetzt.Wenn du deinen Code ordentlich einrücken würdest, würde dir das auffallen:

Delphi-Quellcode:

program Project2;

uses
  Forms;

{$AppType Console}
var i,j:Integer;
begin
  for i:=1 to 10 do 
  begin
    writeln('x');
    readln;
    if (i=1) then 
    begin
      for j:=1 to 10 do
        write('x');
      read;
    end; // if
  end; // for
end.

[hotkey]

Das hilft mir leider auch nicht weiter.. Jetzt erscheint nur ein x...

[Namenloser]

Zitat von hotkey:

Das hilft mir leider auch nicht weiter.. Jetzt erscheint nur ein x...

Ich habe an deinem Code nichts verändert. Ich habe ihn nur ordentlich formatiert.

Weißt du überhaupt was die Befehle readln und read machen?

[hotkey]

Ja , das weiß ich.

Kannst du mir Tipps geben , wie ich das hinkriege ?

[Namenloser]

Zitat von hotkey:

Ja , das weiß ich.

Sicher? Denn in deinem Code machen sie überhaupt keinen Sinn.

[hotkey]

Komisch , so hat das mein Informatik-Lehrer auch gemacht und es funktioniert , wie erklärst du mir das ?

Wenn ich ganz normal in Delphi programmiere benutze ich diese read-Befehle nicht , aber bei dieser Konsolenanwendung sollen wir das so machen.

Read liest Werte ein

[Namenloser]

Richtig, aber read ist eine blockierende Operation, das heißt, das Programm wird so lange angehalten, bis ein Wert eingegeben wurde. Kommentiere mal alle read*-Befehle aus, und du solltest schon fast das gewünschte Ergebnis erhalten.