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

#1 22. 10. 2011 22:33

sawyerlafleur
Zelenáč
Příspěvky: 2
Reputace:   
 

Pascal - Maximum

Ahoj, programovani moc nerozumím a potřeboval bych se to trochu přiučit, nevím si rady s úlohou:
Na vstupu dostanete seznam celých čísel ukončených -1, která již do seznamu nepatří. Vypište největší z nich. Číslo bude alespoň jedno.
prosil bych jestli by mi s tím někdo neporadil, děkuji.

Offline

 

#2 22. 10. 2011 22:53

jindra
Příspěvky: 78
Reputace:   
 

Re: Pascal - Maximum

Nejdřív si zkus jakoukoliv úlohu vyřešit obecně, pak ji teprve zkoušej implementovat do nějakého jazyka (třeba Pascalu)

Maximum z řady je takové číslo, které je větší (nebo rovno když jich je více stejných) všem ostatním číslům v řadě.

Takže vezmeš jedno číslo a porovnáš ho s dalším v řadě. Je větší? -> porovnám ho s dalším v řadě.
Když narazím na číslo, které je větší než to se kterým jsem pracoval dosud, použiji to nové. Z čehož plyne že veškerá už prošlá čísla jsou menší než číslo, které máme teď k porovnávání. Takže když dojdeme na konec, máme maximum.

Zkusím to říci ještě jinak.
Máme pole čísel (řada která je dána na vstupu)
A máme proměnou max.
Do max dáme první položku z pole.
Budeme procházet pole prvek po prvku a porovnávat s max. Když bude větší, nastavíme max na novou hodnotu, a pokračujeme porovnáváním s dalším prvkem.

Tady si můžeš prohlédnout hotový kod v pascalu, krom maxima tam je i minimum, průměr .. Odkaz

Offline

 

#3 22. 10. 2011 22:57

sawyerlafleur
Zelenáč
Příspěvky: 2
Reputace:   
 

Re: Pascal - Maximum

↑ jindra:
moc děkuji, z toho jak jsi to napsal to už docela chápu jak to má fungovat

Offline

 

Zápatí

Powered by PunBB
© Copyright 2002–2005 Rickard Andersson