ZADANIE 3: 1. Naprogramujte hru hádaj číslo. Počítač si vymyslí celé číslo z intervalu 1..100. Hráč zadá číslo, počítač mu vždy poradí, či je hádané č
1. Naprogramujte hru hádaj číslo. Počítač si vymyslí celé číslo z intervalu 1..100. Hráč zadá číslo, počítač mu vždy poradí, či je hádané číslo menšie alebo väčšie ako zadané. Hra končí uhádnutím čísla.
Program hadaj;
var cislo,vymyslene,pokusy:byte;
begin
writeln(‚myslim si cislo z intervalu 1..100‘);
randomize;
vymyslene:=random(100)+1;
pokusy:=0;
repeat
write(‚zadaj cislo: ‚);
readln(cislo);
if cislo=vymyslene then writeln(‚UHADOL SI‘);
if cislovymyslene then writeln(‚Moje je mensie‘);
pokusy:=pokusy+1;
until vymyslene=cislo;
write(‚Potreboval si ‚,pokusy);
case pokusy of
1:writeln(‚ pokus‘);
2,3,4:writeln(‚ pokusy‘)
else writeln(‚ pokusov‘);
end;
readln;
end.
2. Vysvetlite výhody a nebezpečenstvá, ktoré prináša internet. Pojmy spam, hoax, firewall, spyware, addware.
