var a:integer;
a=Random(20);
způsobí, že bude platit 0<=a<20. Je možné nějak určit i minimální hodnotu, aby místo nuly byla třeba desítka?
TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Nevím jestli je na to příkaz, ale co takhle k náhodně vygenerovánemu číslu přičíst dolní hranici. Takže:
var a:integrer;
a=Random(20-10)+10;//min hranice 10, max 20
To Woju:
procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
Label1.Caption:= IntToStr(Random(6)+1);
end;
Zjistit počet nových příspěvků
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
































© 2003–2026 Programujte.com