Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
min-p161.cob
Sprache: Unknown
|
Identification Division.
Program-Id. divisio.
Author. "Owicki/Gries".
* ".. Informatik-Handbuch Rechenberg/Romberger"
Data Division.
Working-Storage Section.
78 n value 100.
77 i pic S9(8).
77 j pic S9(8).
77 k pic S9(8).
77 eventop pic S9(8).
77 oddtop pic S9(8).
Linkage Section.
01 array occurs n.
05 min pic S9(8) occurs n.
Procedure Division using n m s.
* Berechnung von Quotient und Rest
move 1 to i
move 2 to j
compute oddtop = n+1
compute eventop = n+1
perform until i >= min(oddtop,eventop)
if a(i)>0 then move i to oddtop
else add 2 to i
end-perform
perform until j >= min(oddtop,eventop)
if a(j)>0 then move i to eventop
else add 2 to j
end-perform
move min(oddtop,eventop) to k
* nun ist der kleinste Index in k
End-Program divisio.
[ Verzeichnis aufwärts0.0unsichere Verbindung
Übersetzung europäischer Sprachen durch Browser
]
|
|
