Zacatecnicka otazka – Pascal – Fórum – Programujte.com

Ahoj. Jsem v programovani zacatecnik a potreboval bych poradit. Kdyz hledam nejakou minimalni hodnotu, tak jak to mam udelat?
Ja vim, ze kdyz hledam maximum, tak je to max:=0; if max<hodnota then max:=hodnota.
Ale jakou mam dat u toho minima pocatecni hodnotu? Nulu tam dat preci nemuzu!!!

No to je problem, fakt.... no tak tam daj naopak nejake velke cislo! Ak ide o integer, tak v konstante MAXINT je najvyssia mozna hodnota integeru (32767).
takze:

min:=maxint;

...

if min>hodnota then min:=hodnota;

Nejaka maximalni hodnota taky neni uplne nejlepsi reseni (neni maxint jako maxint). Idealni je dosadit jako minimalni hodnotu bud prvni prvek, nebo null (pokud to podporuje jazyk ve kterym to pises).

To Tomcat: To jsem chtel slyset, vedel jsem, ze se to da udelat tim velkym cislem, ale to by nebylo hezky

Nula se nezadává nikdy. Ani při hledání maximální hodnoty. Správně je zadat první hodnotu pole. Tedy:

const max = 100;

var p:array[1..max] of integer;

     a,b:integer;



begin

b:=p[1];

for a:=2 to max do

     if p[a]<b then b:=p[a];

writeln('Nejmensi hodnota v poli P je: ',b);

end.

To Laaca:
Dekuji ti. A jeste se chci zeptat, proc rvnou do deklarace pole nenapise rozsah 1 do 100, ale misto tam das konstantu?
Jinak koukal jsem na tvoje stranky a jsi fakt machr...

To Pavel: laaca pouziva bezny postup. ta konstanta neni nutna, v podstate je tam hlavne kvuli prohlednosti, tedy kvuli tobe, ne pocitaci.

Protože potom v programu bude používat několikrát počet prvků v poli a pokud se rozhodne jej změnit, tak by se musel hrabat v programu a přepsat to u každého případu. Takto to změní jen nahoře u konstanty a je to. Při kompilaci se dosadí za konstantu max uvedené číslo, takže výsledek bude stejný.