Einzelnen Beitrag anzeigen

Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.332 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: zweidimensionale Arrays

  Alt 10. Jun 2021, 17:23
Eigentlich ist die Projektbeschreibung schon zu detailiert.
Delphi-Quellcode:
   //Bomben platzieren
   while r > 0 do
   begin
     x := Random(FIELDSIZE) + 1; // Random liefert einen Wert 0..(FIELDSIZE - 1)
     y := Random(FIELDSIZE) + 1;
     if field[x, y] = leer then
     begin
       field[x, y] := Bombe;
       Dec(r);
     end;
   end;
Delphi-Quellcode:
procedure printField(field : TFIELD; visible : TVISIBLE);
var
  x, y : byte;
  s: string;
  n: Integer;
begin
  for x := 1 to FIELDSIZE do
  begin
    for y := 1 to FIELDSIZE do
    begin
      if not visible[x, y] then
        s := ''
      else if field[x, y] = Bombe then
        s := 'ð'
      else
      begin
        n := countBombs(field, x, y);
        if n = 0 then
          s := ' '
        else
          s := IntToStr(n);
      end;
      write(s);
    end;
    writeln;
  end;
end;
Natürlich sind da noch weitere Anforderungen in der Projektbeschreibung, die zu berücksichtigen sind.
  Mit Zitat antworten Zitat