Umístnení souboru www.TrSek.com/zadania/rozpocit.pas

{ ROZPOCIT.PAS              Copyright (c) TrSek alias Zdeno Sekerak }
{ Deti hraju rozopocitavanku. Zistite pre dany pocet deti a slabik  }
{ riekanky poradie, v akom sa bude vypadavat z kola.                }
{                                                                   }
{ Datum:23.05.2004                             http://www.trsek.com }

program vycitanka;
const MAX=100;
var deti:array[1..MAX] of integer;      { viac deti asi nebude }
    i,ips:integer;
    poc:integer;
    ps:integer;
    akt:integer;

{ zisti dalsie dieta v poli }
function DajDalsie(i:integer):integer;
begin

  repeat
   inc(i);
   if(i>poc)then i:=1;
  until(deti[i] <> 0);

  DajDalsie:=i;
end;

begin
WriteLn('Urci v akom poradi budu vypadavat deti v detskej rozpocitanke.');
Write('Zadaj pocet deti:');
ReadLn(poc);

Write('Zadaj pocet slabik riekanky:');
ReadLn(ps);

{ zmazeme a naplnime pole deti }
for i:=1 to MAX do deti[i]:=0;
for i:=1 to poc do deti[i]:=i;

WriteLn('Deti budu vypadavat v tomto poradi');
akt:=0;

for i:=1 to poc do
  begin
     { najde dalsie dieta }
     for ips:=1 to ps do
       akt:=DajDalsie(akt);

     { toto dieta vzpadne }
     Write(akt,',');
     deti[akt]:=0;
  end;

ReadLn;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com