programatorství | Army shop, airsoft, armyburza - největší burza s militariemi v ČR

Popis:programatorství

program hadejcislo; uses SysUtils; var HledaneCislo, Tip, PocetPokusu: Integer; Pokracovat: Boolean; begin Randomize; // Inicializace generátoru náhodných čísel HledaneCislo := Random(10) + 1; // Generování náhodného čísla mezi 1 a 100 Pokracovat := True; PocetPokusu := 0; writeln('Vitej ve hre Hadej cislo!'); writeln('Hadej cislo mezi 1 a 100.'); while Pokracovat do begin write('Zadej svuj tip: '); readln(Tip); Inc(PocetPokusu); // Zvýšíme počítadlo pokusů if (Tip < 1) or (Tip > 10) then writeln('Cislo musi byt mezi 1 a 10.') else if Tip < HledaneCislo then writeln('Hledane cislo je vyssi.') else if Tip > HledaneCislo then writeln('Hledane cislo je nizsi.') else begin writeln('Gratuluji, uhadl jsi cislo ', HledaneCislo, '!'); writeln('Pocet pokusu: ', PocetPokusu); Pokracovat := False; end; end; writeln('Dekuji za hru.'); readln; end.