XProfan

Titre de la fenêtre "Demo: Zweithäufigstes et Zweitwenigstes Element ermitteln"
font 2:randomize:cls rnd(8^8)
' Lineare Häufigkeitsverteilung dans k% Klassen im Bereich low% jusqu'à high%
var k%=20 : var low%=10 : var high%=99
declare h%[k%-1]

WhileLoop 0,k%-1

    h%[&Boucle]=rnd(high%-low%+1) + low%
    imprimer &Boucle,h%[&Boucle]

Endwhile

' Häufigstes Element
declare max%,maxptr%
max%=0

WhileLoop 0,k%-1

    si h%[&Boucle]>max%

        maxptr%=&Boucle
        max%=h%[&Boucle]

    endif

Endwhile

imprimer
imprimer maxptr%,max%,h%[maxptr%],"  ",
' Zweithäufigstes Element
declare max2%,maxptr2%
max2%=0

WhileLoop 0,k%-1

    si &Boucle<>maxptr%

        si h%[&Boucle]>max2%

            maxptr2%=&Boucle
            max2%=h%[&Boucle]

        endif

    endif

Endwhile

imprimer maxptr2%,max2%,h%[maxptr2%],"   ",
' Wenigstes Element
declare min%,minptr%
min%=99999

WhileLoop 0,k%-1

    si h%[&Boucle]<min%

        minptr%=&Boucle
        min%=h%[&Boucle]

    endif

Endwhile

imprimer minptr%,min%,h%[minptr%],"   ",
' Zweitwenigstes Element
declare min2%,minptr2%
min2%=99999

WhileLoop 0,k%-1

    si &Boucle<>minptr%

        si h%[&Boucle]<min2%

            minptr2%=&Boucle
            min2%=h%[&Boucle]

        endif

    endif

Endwhile

imprimer minptr2%,min2%,h%[minptr2%]
locate maxptr%+1,10:imprimer "< Maximum"
locate maxptr2%+1,10:imprimer "< Next-to-Max"
locate minptr%+1,10:imprimer "< Minimum"
locate minptr2%+1,10:imprimer "< Next-to-Min"
Waitinput