Kód: Vybrať všetko

Počítač vygeneruje jedno z náhodných čísel {-1,0,1}. Ak padne jednotka, hodnota výsledku
sa inkrementuje (zvýši o 1), ak padne mínus jednotka – hodnota výsledku sa dekrementuje
(zníži o 1), ak padne nula, hodnota výsledku sa zdvojnásobí. Vypíšte výsledok po N náhodných
výberoch čísel {-1,0,1}. (Hodnota výsledku je na začiatku 0).

Kód: Vybrať všetko

Hádžeme 1 kockou. Niekedy sa stane, že 6 padne viackrát za sebou. Zostavte program, ktorý
zistí, koľkokrát padne 6 dva krát za sebou (pozor, keď padne napr. 2,6,6,6,3,5,... – to znamená,
že dve 6 za sebou padli 2x). Kockou budeme hádzať pre N pokusov.

Kód: Vybrať všetko

Dvaja hráči hrajú hru – každý hádže 2 kockami. Kto hodí vyšší súčet bodov, získava bod.
Zistite, ktorý hráč vyhral pri N hodoch 2 kockami.

Kód: Vybrať všetko

http://uloz.to/2644857/zadanie4.pas

Kód: Vybrať všetko

program zadanie3;
var i, N, hod1, hod2, temp1, temp2: integer;
begin
randomize;
writeln ('Zadaj pocet hodov');
readln(N);
hod1:=0;
hod2:=0;
for i:=1 to N do
begin
temp1:=random(6)+1;
temp2:=random(6)+1;
hod1:=hod1+temp1;
hod2:=hod2+temp2;
writeln ('v hode cislo ' ,i, ' hodil prvy hrac cislo: ' ,temp1);
writeln ('v hode cislo ' ,i, ' hodil druhy hrac cislo: ' ,temp2);
end;

if hod1 > hod2 then begin
writeln ('vyhral prvy hrac s celkovym poctom bodov: ',hod1);
end;
if hod2 > hod1 then begin
writeln ('vyhral druhy hrac s celkovym poctom bodov: ',hod2);
end;
if hod2 = hod1 then begin
writeln ('hra skoncila remizou', hod1,':',hod2);
end;
readln;
end.

Kód: Vybrať všetko

program zadanie1;
var n, i, r, h: integer;
begin
writeln ('zadajte kolko krat sa bude generovat ');
readln(n);
for i:=1 to n do
begin
r:=random(3)-1;
writeln(r,' ');
case r of
-1 : h:=(h+1);
0 : h:=(h*2);
1 : h:=(h-1);
end;
end;
writeln('po generacii je vysledok ' ,h);
readln;
end.

Kód: Vybrať všetko

program zadanie3;
var N, i, sucet1, sucet2, prvy, druhy: integer;
begin
writeln ('Zadajte pocet hodov');
readln(N);
for i:=1 to N do
begin
sucet1:=(random(6)+1)+(random(6)+1);
sucet2:=(random(6)+1)+(random(6)+1);
if sucet1>sucet2 then inc(prvy) else
inc (druhy);
end;
if prvy>druhy then writeln('Vyhral prvy hrac s poctom bodov ', prvy) else
if prvy<druhy then writeln('vyhral druhy hrac s poctom bodov ', druhy)else
writeln('nastala remiza');
readln;
end.

Kód: Vybrať všetko

Problém 2 ruksakov (malý problém dvoch ruksakov). Dvaja turisti majú veľa vecí, pričom
každá má istú hmotnosť H, každá vec má inú hmotnosť, posledná fiktívna vec má hmotnosť
nula, tá slúži na ukončenie zadávania hmotností. Zostavte program, ktorý bude postupne
rovnomerne deliť veci do dvoch rovnakých ruksakov podľa doterajšej hmotnosti v istom
ruksaku, čiže ďalšiu vec o hmotnosti Hj dám do toho ruksaka, ktorý je ľahší. Nakoniec
pravdepodobnejšie bude jeden ruksak ťažší, ako druhý, vo výnimočnom prípade rovnako
ťažký. Zostavte program, ktorý zistí, o koľko má jeden turista ťažší ruksak ako druhý a o koľko
vecí má jeden turista viac ako ten druhý, alebo majú obaja v ruksaku rovnaký počet vecí.