das ist der output in C
Code: Alles auswählen
#include <stdio.h>
int main() {
char griffbrett[6][4];
int x,y;
for (x=0; x<6; x++)
for (y=0; y<4; y++)
griffbrett[x][y]='|';
griffbrett[0][0] = '0';
griffbrett[1][1] = 'x';
griffbrett[2][0] = '0';
griffbrett[3][2] = 'x';
griffbrett[4][3] = 'X';
griffbrett[5][0] = '-';
for (x = 0; x < 6; x++)
{
for (y = 0; y < 4; y++)
{
printf("--%c--", griffbrett[x][y]);
}
putchar('\n');
}
return 0;
}
Das kommt dabei heraus...
ich verstehe nicht sooo ganz warum die erste reihe nicht genau so reagiert wie in c... hab vermutlich einen denkfehler drinnen. und komme nicht darauf.
Code: Alles auswählen
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Grids;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
StringGrid1: TStringGrid;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
type
griffbrett = array [0..6, 0..4] of char;
var
gbrett: griffbrett;
x, y: integer;
begin
for x := 0 to 6 do
for y := 0 to 4 do
gbrett[x, y] := ' ';
gbrett[0, 0] := '0';
gbrett[1, 1] := 'X';
gbrett[2, 0] := '0';
gbrett[3, 2] := 'X';
gbrett[4, 3] := 'X';
gbrett[5, 0] := '-';
for x := 0 to 6 do
for y := 0 to 4 do
StringGrid1.Cells[x, y] := gbrett[x, y];
end;
procedure TForm1.FormCreate(Sender: TObject);
var
s: TTextStyle;
begin
s := StringGrid1.DefaultTextStyle;
s.Alignment := taCenter;
StringGrid1.DefaultTextStyle := s;
end;
end.