Príklad - výskyt čísel v poli – Pascal – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Príklad - výskyt čísel v poli – Pascal – Fórum – Programujte.comPríklad - výskyt čísel v poli – Pascal – Fórum – Programujte.com

 

Spuštěný nový filmový web Filmožrouti.cz — vše o Avengers, Pacific Rim, Thor, Star Wars…
Tomas
~ Anonymní uživatel
536 příspěvků
16. 11. 2017   #1
-
0
-

Ahojte, pomohol by mi niekto s týmto príkladom ? potrebujem zostaviť program, ktorý náhodne vyberie 1000 čísel z intervalu (1,20). program následne má vypísať najčastejšie sa vyskytujúce číslo v poli a zároveň vypísať, koľkokrát sa toto číslo vygenerovalo. prvú časť programu mám, s druhou časťou si neviem poradiť.. bol by som veľmi vďačný, ak mi pomôžete  :) vopred ďakujem.

tu je zatiaľ prvá časť, ktorú mám:

program generovanie;
uses crt;
var i:integer; cisla:array[1­..1000] of integer;
begin
randomize;
for i:=1 to 1000 do
begin
cisla[i]:=ran­dom(20)+1;
writeln(i,'. ','vygenerovane cislo je: ',cisla[i]);
end;
readln();
end. 

Nahlásit jako SPAM
IP: 2a02:ab04:1dbb:a600:edd5:...–
KIIV
~ Moderátor
+42
God of flame
16. 11. 2017   #2
-
0
-

Kdyz mas pevne dany rozsah, tak byt tebou vyuziju "histogram". Tj pole od 1 do 20, vynulovat a inkrementovat indexy podle vygenerovaneho cisla. Pak uz jen najdes maximum.

Nahlásit jako SPAM
IP: 81.30.230.–
Program vždy dělá to co naprogramujete, ne to co chcete...
JerryM0
Newbie
16. 11. 2017   #3
-
0
-

#1 Tomas
na tu druhou část uděláš pole s názvem třeba POCETNOSTI s počtem prvků 20 a typ Integer. pak uděláš cyklus i:=1..1000 a uvnitř cyklu pro každý číslo cisla[i] přičteš jedničku v poli POCETNOSTI s korespondujicim indexem tedy inc( POCETNOSTI[cisla[i]] )  pak už jenom zjistíš který z čísel v poli POCETNOSTI je nejvetsí což bude další třetí cyklus

Nahlásit jako SPAM
IP: 2a00:1028:83be:235a:70c9:...–
Tomas
~ Anonymní uživatel
536 příspěvků
16. 11. 2017   #4
-
0
-

ďakujem za odpovede, teraz to už funguje, ale chcem sa pre istotu ešte opýtať, čo ak budem mať teraz interval nie (1,20) ale (1,2000) ? nemalo by asi zmysel pridávať tam všetkých 2000 čísel, neexistuje náhodou nejaký spôsob, ako to urýchliť ?

Nahlásit jako SPAM
IP: 2a02:ab04:1dbb:a600:4dd9:...–
KIIV
~ Moderátor
+42
God of flame
17. 11. 2017   #5
-
0
-

#4 Tomas
2000 stale neni zadny velky pocet. Az to bude libovolny integer, tak uz to bude horsi. To uz bys musel pouzit nejaky binarni strom

Nahlásit jako SPAM
IP: 81.30.230.–
Program vždy dělá to co naprogramujete, ne to co chcete...
Tomas
~ Anonymní uživatel
536 příspěvků
17. 11. 2017   #6
-
0
-

ďakujem za pomoc, problém vyriešený, nabudúce budem vedieť ako na to :)

Nahlásit jako SPAM
IP: 85.248.11.–
Zjistit počet nových příspěvků

Přidej příspěvek

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 5 hostů

Podobná vlákna

Práce v poli čísel — založil dean

Opakování čísel v poli — založil Daran

Počet čísel v poli — založil TomasekTom

Moderátoři diskuze

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032017 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý