Kód: Vybrať všetko

program sachovnica;
uses crt;
var s1,s2,r1,r2,i,j:integer;
begin
textbackground(0);
clrscr;
s1:=1;r1:=1;s2:=5;r2:=3;

for j:=1 to 17 do
begin
for i:=1 to 15 do
begin
window(s1,r1,s2,r2);
if i mod 2=0 then textbackground(0)
else textbackground(white);
clrscr;
s1:=s1+5;
s2:=s2+5;
end;
s1:=1;
s2:=5;
s1:=s1+5;
s2:=s2+5;
r1:=r1+3;
r2:=r2+3;
end;
clrscr;
readln;
end.

Kód: Vybrať všetko

for i:=1 to 8 do 
begin
  for j:=1 to 8 do 
  begin
    if (i mod 2 = 0 and j mod 2 = 0) then write('X');
    if (i mod 2 = 0 and j mod 2 = 1) then write('_');
    if (i mod 2 = 1 and j mod 2 = 0) then write('_');
    if (i mod 2 = 1 and j mod 2 = 1) then write('X');
  end;
  writeln();
end;

Kód: Vybrať všetko

program sachovnica;
uses crt;
var s1,s2,r1,r2:integer;
    i,j:longint;
begin
textbackground(0);
clrscr;
s1:=1;r1:=1;s2:=5;r2:=3;
for j:=1 to 17 do
begin
for i:=1 to 15 do
begin
window(s1,r1,s2,r2);
begin
    if i mod 2 = 0 and j mod 2 = 0 then textbackground(0);
    if i mod 2 = 0 and j mod 2 = 1 then textbackground(white);
    if i mod 2 = 1 and j mod 2 = 0 then textbackground(0);
    if i mod 2 = 1 and j mod 2 = 1 then textbackground(white);
  end;
clrscr;
s1:=s1+5;
s2:=s2+5;
end;
s1:=1;
s2:=5;
s1:=s1+5;
s2:=s2+5;
r1:=r1+3;
r2:=r2+3;
end;
clrscr;
readln;
end.

Kód: Vybrať všetko

for i:=1 to 8 do begin
x:=50;
for j:=1 to 8 do begin
setfillstyle(1,black);
if ((i+j) mod 2=0) then setfillstyle(1,white);
bar(x,y,x+40,y+40);
x:=x+40;
end;
y:=y+40;
end;

Kód: Vybrať všetko

program sachovnica;
uses crt;
var s1,s2,r1,r2:integer;
    i,j:longint;
begin
textmode(259);
textbackground(0);
clrscr;
s1:=1;r1:=1;
for j:=1 to 9 do
begin
for i:=1 to 8 do
begin
window(s1,r1,s1+2,r1+1);
begin  {neviem preco tu je begin}
if(j<9)then
  begin  if ((i mod 2 = 1) and (j mod 2 = 0))or((i mod 2 = 0) and (j mod 2 = 1)) then textbackground(0)else
    if ((i mod 2 = 0) and (j mod 2 = 0))or((i mod 2 = 1) and (j mod 2 = 1)) then textbackground(white);
  end
else write(chr(96+i));
  end;{ukoncenie nepodstatneho beginu}
if(j<9)then clrscr;
s1:=s1+3;
end;
textbackground(0);
window(s1,r1,s1+2,r1+1);
if(j<9)then write(j);
s1:=1;
r1:=r1+2;
end;
readln;
end.

Kód: Vybrať všetko

readln(format);
den := ((ord(format[1])-48)*10) + (ord(format[2])-48);
mes := ((ord(format[3])-48)*10) + (ord(format[4])-48);