Matematické Fórum

↑ hradecek: Raději bych takto jednoduché úkoly neřešil přes pole, protože to pak svádí k tomu to pole používat všude. Tady je to jedno, ale až budeme načítat 1000000 čísel a budeme chtít jen min/max nebo něco obdobně jednoduchého, tak je zbytečné plýtvat pamětí na takto rozsáhlé pole.

Nejde ani tak o délku kódu jako o jeho efektivnost, navíc kód který mám namysli je cca stejně rozsáhlý jako ten tvůj s využitím pole, navíc žádné zdlouhavé podmínky ani cykly v něm nevyužívám.

Představ si, že bys chtěl z nějaké velké vstupní množiny čísel vybrat nejmenší číslo (nebo třeba největší, druhé nejmenší, etc.). Řekněme, že máme na vstupu 10000000 celých čísel. Nadeklarovat si takto velké pole je zbytečné a to nemluvím o tom, že ty nejprve do pole načteš všechna čísla a poté pole znova celé procházíš abys našel nejmenší číslo, to je opět zbytečné, když už, tak hledej nejmenší číslo rovnou při načítání, ušetříš tím jeden průchod tím polem. Řešit to tedy lze i takto (omlouvám se, že kód uvádím v jazyce C, PASCAL syntaxi příliš neznám):

#include <stdio.h>
#include <stdlib.h>

#define POCET_CISEL 10000000

int main()
{
    int nejmensi_cislo = 0, nactene_cislo;
    
    for(int i = 0; i < POCET_CISEL; i++)
    {
        nactene_cislo = rand() % 10 + 1;
        if(i == 0) nejmensi_cislo = nactene_cislo; 
        else
        {
            if(nactene_cislo < nejmensi_cislo) nejmensi_cislo = nactene_cislo;
        }      
        
        //printf("Nactene cislo je: %d\n", nactene_cislo); 
    }
    
    printf("\nNejmensi cislo je: %d\n", nejmensi_cislo);
    
    return 0;
}

↑ septolet:
Tvoj zdroják je fajn. Riešiť to takto by ma nenapadlo. Ja nie som tiež v Pascale odborník a tiež mám radšej C.
Ale predsa len malá pripomienka k tvojmu programu. Tvoj program bude generovať náhodné čísla od 1-10 ale najmenšie číslo bude vždy 1. Ak dáš interval od 3-20 najmenšie číslo bude 3.
A ak by úlohou programu bolo zistiť minimum náhodných čísel z intervalu, ktorý zadal užívateľ program by bol bezcenný.
Teda aspoň si myslím.

↑ hradecek: jak to teda udělám bez pole?Stačí, abych zadal místo pole nějakou proměnnou ne?

↑ septolet:Dobře, takže:
{ Nahodne cisla budu od 0÷100 }
PROGRAM cislo3;
USES crt;
CONST N = 5;
VAR s  : integer
    sucet : integer;
    i     : byte;

BEGIN
ClrScr;
Randomize;

sucet:= 0;       { v premennej sucet mam zatial 0 }
write('Tvoje cisla su: ');
for i:= 1 to N do
  begin
  s:= random(100+1);
   write(s, ' ');
   sucet:= sucet + s;      { pripocitanie noveho prvku do sucet }
  end;

writeln;
write('Priemer: ', (sucet/N):0:0);      { bez 0:0 dostanes cislo v EXP tvare pr: xx.00000+E001 }
readln
END.¨

uloha 4
BEGIN
ClrScr;
var i : integer;
      p : integer;
       

write('Tvoje cisla su: ');
for i:= 1 to N do
  begin
   p:= random(100+1);
   write(p, ' ');
  end;

min:= 32767;      { inicializacia minima na najvacsiu moznu hodnotu int }
for i:= 1 to N do
  begin
   if(p < min) then min:= p;
  end;

writeln;
write('Najmensie cislo: ', min);
readln
END.

Použil jsem sice zdrojáky, co tu byly, ale upravil sem to bez pole. otázka je, jestli to povalí...

↑ septolet:
uloha 4
BEGIN
ClrScr;
var i : integer;
      p : integer;
       

write('Tvoje cisla su: ');
for i:= 1 to N do
  begin
   p:= random(100+1);
   write(p, ' ');
    if(p < min) then min:= p;(*podmínku jsem narval sem, protože si to jinak nepamatuje proměnnou*)
  end;

min:= 32767;      { inicializacia minima na najvacsiu moznu hodnotu int }
for i:= 1 to N do
  begin
  end;

writeln;
write('Najmensie cislo: ', min);
readln
END.

↑ septolet:
uloha 4
BEGIN
ClrScr;
var i : integer;
      p : integer;
      min:integer

write('Tvoje cisla su: ');
min:= 32767;
for i:= 1 to N do
  begin
   p:= random(100+1);
   write(p, ' ');
    if(p < min) then min:= p;(*podmínku jsem narval sem, protože si to jinak nepamatuje proměnnou*)
  end;



writeln;
write('Najmensie cislo: ', min);
readln
END.


a je to!