Rendezés
A segédprogramot Farkas Erika írta.
A matematikai háttér:
A segédprogram valós számokat rendez sorba.
A szubrutin használata:
A programot a CALL SORT(n,arr) sor
begépelésével lehet meghívni. A zárójelben
szereplõ változókat a fõprogramban is deklarálni
kell.
n: egész tipusú. Ezzel adja meg a felhasználó,
hogy hány darab számot akar rendezni. Ezek után a fõprogramban
be kell kérni a számokat, s ezeket az arr(n) valós
tipusu vektorban kell eltárolni. Utána az elõbb emlitett
sor begépelésével lehet meghivi a programot. Végül
a fõprogramban ki kell iratni az arr(n)vektort, ugyanis a subroutine
ebben rendezi növekvõ sorrendbe a felhasználó által
megadott számokat.
Maximum 50 számot lehet rendezni, különben hibaüzenetet
ad a program.
A szubrutin meghívása:
call sort(n,arr)
A bemenõ paraméter n és szam, a kimenõ adatok a növekvõ sorba rendezett számok.
Példaprogram a használatra:
program teszt
real szam
integer n
(n max 50 lehet!)
call lulu(n,a,b,c,l,u,x)
ide jön a letöltendõ segédprogram
ide pedig a végeredmény kiiratása
write (*,*)
stop
end
A próbafuttatás:
n=6 , a beírt számok: : 88, 99, 55, 77, 66, 13
Ha ezeket beírod, akkor a program egymás alá kiírja növekvõ sorrendben ezeket: 13, 55, 66, 77, 88, 99.
Innen töltheted le a segédprogramot: sorting.for