Webové aplikace | Informační systém pro školy | HR magazín | Celoživotní učení | Zábavný portál | Mzdová kalkulačka | Výpočet nemocenské | Seznam škol | BMI | Výpočet mateřské | Referáty | SuperMamina | Kalkulačky | Online hry | Mateřské školky | Spis szkół v PL | Kam na výlet | Zoznam škôl
Referáty, Seminárky, Čtenářské deníky, Maturitní otázky

Referáty, Seminárky, Čtenářské deníky, Maturitní otázky

Naleznete zde převážně informační materiály pro školáky. V databázi se nachází 4250 referátů.

Domů | Referáty | Seminární práce | Čtenářské deníky | Maturitní otázky | + Vložit dílo
 Doporučujeme

Trička s potiskem - vtipná trička s potiskem si můžete vyrobit i s vlastním motivem.

Střední školy - přehledný seznam středních škol.

Bazar pro maminky - staré i nové oblečení oblečení pro děti.


Střední školy

 Reklama


+ vložit vlastní dílo upravit toto dílo

Skoky koně -šachy

program SkokyKone;
type
TPozice = record
x : char;
y : byte;
end;
var
PPozice,KPozice : TPozice;
i : char;
j : byte;

function PripustnyTahKone(Poc,Kon: TPozice): boolean;
var b : boolean;
begin
b:= ((Poc.


 Reklama


x=Pred(Pred(Kon.x))) and (Poc.y=Succ(Kon.y))) or
((Poc.x=Pred(Kon.x)) and (Poc.y=Succ(Succ(Kon.y)))) or
((Poc.x=Succ(Kon.x)) and (Poc.y=Succ(Succ(Kon.y)))) or
((Poc.x=Succ(Succ(Kon.x))) and (Poc.y=Succ(Kon.y))) or
((Poc.x=Succ(Succ(Kon.x))) and (Poc.y=Pred(Kon.y))) or
((Poc.x=Succ(Kon.x)) and (Poc.y=Pred(Pred(Kon.y)))) or
((Poc.x=Pred(Kon.x)) and (Poc.y=Pred(Pred(Kon.y)))) or
((Poc.x=Pred(Pred(Kon.x))) and (Poc.y=Pred(Kon.y)));
PripustnyTahKone:= b;
end;

begin
write('Tento program urci mozne tahy kone');
writeln(' na prazdne sachovnici.');
repeat
write('Zadej pozici kone (napr. G7): ');
readln(PPozice.x,PPozice.y);
if not(PPozice.x in ['A'..'H']) then
writeln('Horizontalni pozice MUSI byt v rozsahu A-H !');
if not(PPozice.y in [1..8]) then
writeln('Vertikalni pozice MUSI byt v rozsahu 1-8 !');
until (PPozice.x in ['A'..'H','a'..'h']) and
(PPozice.y in [1..8]);
PPozice.x:= UpCase(PPozice.x);
write('Pripustne tahy kone na pozici ',PPozice.x,PPozice.y);
writeln(' (prazdna sachovnice):');
for i:= 'A' to 'H' do
for j:= 1 to 8 do begin
KPozice.x:= i; KPozice.y:= j;
if PripustnyTahKone(PPozice,KPozice) then
writeln(PPozice.x,PPozice.y,' --> ',i,j);
end;
end.



+ vložit vlastní dílo upravit toto dílo
  Sdílet článek na: Facebook Facebook   MySpace MySpace   Linkuj Linkuj  
Střední školy - seznam středních škol
Střední odborné školy - seznam středních odborných škol
Bazar pro maminky - staré i nové oblečení oblečení pro děti.
 Reklama