|
|
|
| Autor |
Správa |
gabooo
Medium Expert
Pohlavie: 
Stav: 
Založený: 21.08.2007
Príspevky: 139
Karma:   
|
 Zaslal: 05 Máj 2008, 18:47 Predmet: pascal-sachovnica |
  |
|
mam naprogramovat sachovnicove pole...urobim to cez cyklus a idu mi dobre len 2 riadky a potom stvorceky nemena farbu...co mi tam chyba???
| Kód: |
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.
|
|
|
| Návrat hore |
|
 |
zaggi
Expert
Pohlavie:
Stav:
Založený: 04.02.2007
Príspevky: 176
Karma:
|
| Zaslal: 05 Máj 2008, 19:04 Predmet: |
|
|
| Kód: |
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; |
|
|
| Návrat hore |
|
|
gabooo
Medium Expert
Pohlavie:
Stav:
Založený: 21.08.2007
Príspevky: 139
Karma:
|
| Zaslal: 05 Máj 2008, 19:22 Predmet: |
|
|
urobil som to taktoi ale stale vypisuje chybu s boolean a longint...co tam ma zle???
| Kód: |
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.
|
|
|
| Návrat hore |
|
|
mirak2
King
Pohlavie:
Stav: 
Založený: 18.09.2005
Príspevky: 1859
Bydlisko: scoresheet xD
Karma: 
|
| Zaslal: 05 Máj 2008, 21:08 Predmet: |
|
|
| Kód: |
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; |
toto je cely program...neviem ako si prisiel k tym cyklom po 17 a po 15...uz ti len staci dat var i,j,x,y:integer a hlavicku, koniec, nacitanie x,y a mas...vseobecne zadanu sachovnicu...sice dalo by sa aj vseobecnejsie, teda aj velkost stvorceka, ale s tym nebudem zatazovat nikoho tuna...keby nieco pis PM, neviem kedy znova checknem topic tento  |
|
| Návrat hore |
|
|
gabooo
Medium Expert
Pohlavie:
Stav:
Založený: 21.08.2007
Príspevky: 139
Karma:
|
| Zaslal: 06 Máj 2008, 8:56 Predmet: |
|
|
| ok..dik skusim to... |
|
| Návrat hore |
|
|
juho
Light Star
Stav:
Založený: 11.05.2007
Príspevky: 227
Karma:
|
| Zaslal: 06 Máj 2008, 13:40 Predmet: |
|
|
| gabooo napísal: |
| ok..dik skusim to... |
a jak to ty chces vlastne skusat ? cez textovy alebo graficky rezim.
tu mas upraveny ten tvoj textovy(chyba v podmienkach):
| Kód: |
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. |
|
|
| Návrat hore |
|
|
|
|  |
|
|
Nemôžete odosielať nové témy do tohto fóra
Nemôžete odpovedať na témy v tomto fóre
Nemôžete upravovať svoje príspevky v tomto fóre
Nemôžete mazať svoje príspevky v tomto fóre
Nemôžete hlasovať v tomto fóre
Nemôžete pripájať súbory do tohto fóra
Môžete sťahovať súbory v tomto fóre
|
Powered by phpBB © 2005 phpBB Group, phpBB SEO, © Hojko 2004-2008
[ Vygenerované za: 0.1s ] :: [ 16 Queries ] :: [ 42,877 stránok za dnes ] :: [ Dnes DB: 739,862 ] :: [ Max DB: 2,334,336 Queries ]
|
