Matematické Fórum
Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.
Nástěnka
❗22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
❗04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
❗23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.
Nejste přihlášen(a). Přihlásit
Stránky: 1
- Hlavní strana
- » Algoritmy a programování
- » Delphi7 - nahodna čisla dokud nepadne 35 +provést matematické operace
#1 11. 04. 2012 19:18
Delphi7 - nahodna čisla dokud nepadne 35 +provést matematické operace
Ahoj, mohl bych se zeptat jak udělám tenhle příklad? Díky
Vypisuj do Mema náhodná čísla z intervalu 20;50 , dokud nepadne číslo 35.
Pak se do Mema vypíše počet (P) těch čísel, jejich součet (S), MIN, MAX a jejich AVG (průměr).
Použij: a) cyklus WHILE b) cyklus REPEAT.
Offline
#2 11. 04. 2012 19:34
- janca361
- .
- Příspěvky: 3284
Re: Delphi7 - nahodna čisla dokud nepadne 35 +provést matematické operace
↑ gargantua:
A s čím konkrétně máš problém?
1) Dokážeš načíst (vygenerovat) náhodné číslo v daném intervalu?
2) Dokážeš zjistit jestli je vygenerované číslo 35?
Offline
#3 11. 04. 2012 19:59
Re: Delphi7 - nahodna čisla dokud nepadne 35 +provést matematické operace
↑ janca361:
Nevím, jak mám z toho intervalu 20 - 50 vygenerovat náhodné číslo.
Offline
#4 12. 04. 2012 06:45 — Editoval Honzc (13. 04. 2012 06:45)
Re: Delphi7 - nahodna čisla dokud nepadne 35 +provést matematické operace
↑ gargantua:
Přidej do uses jednotku (unitu) Math a použij funkci
function RandomRange(const AFrom, ATo: Integer): Integer;
která generuje celá čísla v intervalu (AFrom,ATo>
Tedy v tvém případě RandomRange(19, 50)
a nebo použij Random(31)+20
Offline
Stránky: 1
- Hlavní strana
- » Algoritmy a programování
- » Delphi7 - nahodna čisla dokud nepadne 35 +provést matematické operace