uses Crt; { aby som mohla pouzivat niektore prikazy, napr. ClrScr, ktore patria do tejto kniznice }
const { toto su konstanty, ktore som si zadefinovala a ktore sa pocas celeho programu nemenia }
pocetkruhov=4;
kruh1=1;
kruh2=2;
kruh3=3;
kruh4=4;
pocetvystrelov=4;
pocetbodov=11;
var { toto su premenne, ktore budem pouzivat vo vypocte v programe - pocas programu sa budu menit }
pocetrieseni:integer;
zasah1,zasah2,zasah3,zasah4:integer;
Begin
pocetrieseni:=0; { toto je pocitadlo, ktore som na zaciatku vynulovala }
ClrScr; { vycisti obrazovku }
Writeln('Vstupne hodnoty'); { vypise na obrazovku, vsetko co je napisane v uvodzovkach }
Writeln; { bez parametrov vlozi prazdny riadok }
Writeln('Pocet medzikruzi: pocetkruhov=4');
Writeln('Bodove hodnoty v jednotlivych medzikruziach: kruh1=1, kruh2=2, kruh3=3, kruh4=4');
Writeln('Pocet vystrelov: pocetvystrelov=4');
Writeln('Celkovy pocet nastrielanych bodov: pocetbodov=11');
Writeln('(pocetvystrelov*kruh1 <= pocetbodov <= pocetvystrelov*kruh4)');
Writeln;
Writeln('Vypis rieseni:');
Writeln('(Pocet zasahov do kruhu1-kruhu2-kruhu3-kruhu4)');
{
nasleduju vnorene cykly, kde bude priradovat premennym zasah1 az zasah4
hodnoty od 0 do 4 a to tak, ze najprv vsetkym priradi 0 a postupne zvysuje
hodnotu az po pocet vystrelov, cim vytvori vsetky kombinacie nehladiac na
pocet vystrelov a pocet bodov
vo vnutri vnorenych cyklov overujeme ci su splnene 2 podmienky pomocou prikazu if
1.podmienka - ci sedi pocet vystrelov
2.podmienka - ci sedi pocet dosiahnutych bodov
ak su obe podmienky splnene, tak zvysi pocitadlo rieseni o 1
a vypise aktualne riesenie
}
for zasah1:=0 to pocetvystrelov do
for zasah2:=0 to pocetvystrelov do
for zasah3:=0 to pocetvystrelov do
for zasah4:=0 to pocetvystrelov do
if (zasah1 + zasah2 + zasah3 + zasah4 = pocetvystrelov) and
((zasah1*kruh1) + (zasah2*kruh2) + (zasah3*kruh3) + (zasah4*kruh4) = pocetbodov) then
begin
pocetrieseni:=pocetrieseni + 1;
Writeln('riesenie ',pocetrieseni,': ',zasah1,'-',zasah2,'-',zasah3,'-',zasah4);
end;
Writeln;
Writeln('Pocet rieseni:',pocetrieseni); { vypise napocitany pocet rieseni }