@Sir Rufo
Ok , bis zur Ausgabe habe ich es jetzt..
Wie könnte ich jetzt weitermachen?
Dann zeig doch mal was du bis jetzt hast
Delphi-Quellcode:
var
Form1: TForm1;
Spielfeld : array[0..11,0..11] of integer;
const
wasser = 0 ;
nahschiff = 1; //zur Positionierung der schiffe
schiff = 2;
twert = 10;
T_wasser = wasser + twert;
T_nahschiff = nahschiff + twert;
T_schiff = schiff + twert;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var x, y : integer;
begin
// Ausgabe des Spielfeldes
for y := 0 to 11 do
for x := 0 to 11 do
begin
case Spielfeld[x,y] of
wasser : Write( ' ' );
nahschiff : Write( '+' );
schiff : Write( '#' );
T_wasser : Write( 'o' );
T_nahwasser : Write( '*' );
T_schiff : Write( 'X' );
end;
end;
WriteLn; // Neue Zeile
end;
end.
Ist jetzt nach deiner Idee und etwas andere Begriffe..
Wäre das soweit erstmal richtig?