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í
- » Zjištění největšího/nejmenšího čísla (TOTO TÉMA JE VYŘEŠENÉ)
#1 06. 06. 2011 17:32 — Editoval Chrono741 (06. 06. 2011 17:41)
Zjištění největšího/nejmenšího čísla
ahoj, potřeboval bych zkrátit následující kód ve freepascalu
Code:
if naklady[1]<naklady[2] then
begin
proces:=naklady[2];
if proces<naklady[3] then
begin
proces:=naklady[3];
if proces<naklady[4] then
begin
proces:=naklady[4];
end;
end
else
begin
if proces<naklady[4] then
begin
proces:=naklady[4];
end;
end;
end
else
begin
proces:=naklady[1];
if proces<naklady[3] then
begin
proces:=naklady[3];
if proces<naklady[4] then
begin
proces:=naklady[4]
end
end
else
begin
if proces<naklady[4] then
begin
proces:=naklady[4]
end;
end;
end;asi přes cyklus
nemůžu použít bubble sort, nebo jiný řadící algoritmus, potřebuju právě aby hodnoty zůstaly na stejných pozicích
mám nějak vygumováno a vůbec nedokážu přijít na to jak tohle zkrátit (zacyklit) :-o
popř. pokud jde lépe zjistit maximum/minimum se zachováním místa v poli tak sem s tím ;)
Offline
- (téma jako vyřešené označil(a) janca361)
#2 06. 06. 2011 17:41
- janca361
- .
- Příspěvky: 3284
Re: Zjištění největšího/nejmenšího čísla
↑ Chrono741:
Pokud jsem to pochopila správně...
co třeba cyklus for?
Code:
min:=pole[1];
max:=pole[1]
for i:=1 to n {n pocet prvku pole} do
begin
if pole[i]>max then max:=pole[i];
if pole[i]<min then max:=pole[i];
end;Offline
#5 06. 06. 2011 21:54 Příspěvek uživatele motycka.majk byl skryt uživatelem motycka.majk.
Stránky: 1
- Hlavní strana
- » Algoritmy a programování
- » Zjištění největšího/nejmenšího čísla (TOTO TÉMA JE VYŘEŠENÉ)