Matematické Fórum

gargantua · 11. 04. 2012 19:18

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.

janca361 · 11. 04. 2012 19:34

↑ 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?

gargantua · 11. 04. 2012 19:59

↑ janca361:
Nevím, jak mám z toho intervalu 20 - 50 vygenerovat náhodné číslo.

Honzc · 12. 04. 2012 06:45 — Editoval Honzc (13. 04. 2012 06:45)

↑ 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

Matematické Fórum

#1 11. 04. 2012 19:18

Delphi7 - nahodna čisla dokud nepadne 35 +provést matematické operace

#2 11. 04. 2012 19:34

Re: Delphi7 - nahodna čisla dokud nepadne 35 +provést matematické operace

#3 11. 04. 2012 19:59

Re: Delphi7 - nahodna čisla dokud nepadne 35 +provést matematické operace

#4 12. 04. 2012 06:45 — Editoval Honzc (13. 04. 2012 06:45)

Re: Delphi7 - nahodna čisla dokud nepadne 35 +provést matematické operace

Zápatí