[Tustep-Liste] Problem: sämtliche Zahlen um festen Betrag erhöhen

[Michael Trauth]

Lieber Herr Henrich,

zu Ihrer Frage:
Versuchen Sie doch bitte einmal das anhängende kleine
Kopiere:

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
#ko,quelle,ziel,,+,*
        * Alle Zahlen mit {{...}} markieren, die
        * erhöht werden sollen:
>1z       , -*
xx    1   |<>>/>|><>1|{{>=01}}|
        * Im 2. Durchgang jeweils prüfen, ob solche
        * markierten Zahlen vorhanden sind:
zf+   2   |{{<>>/}}|
        * Wenn ja, diese Zahl nach i1 einlesen:
al    2   |{{|
el    2   |}}|
liv   2   i1
        * ...und i1 dann um 604 erhöhen:
rr    2   i1 = i1+604;
        * ...und sie dann wieder dort einsetzen,
        * wo sie vorher war:
eiv   2   i1
ein   2 = al    2
        * Dann jeweils diese *eine* Markierung {{...}}
        * löschen und anschließend wieder (in 21)
        * nachschauen, ob es noch eine Markierung gibt:
xxb   3   |{{<>>/}}|>=03|
erz   3   1
spn        8  3  8
sp2       21 32 21
*eof
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Was das Progrämmchen an welcher Stelle tut, habe ich
zwischen den Programmzeilen ein wenig kommentiert.

Das folgende exemplarische Register
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
REintragA 62-71, 102, 119*, 238 311
REintragB 17 28 49 78, 81-105, 222
REintragC 1 21, 35 66-101 199
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
wird folgendermaßen umgesetzt:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
REintragA 666-675, 706, 723*, 842 915
REintragB 621 632 653 682, 685-709, 826
REintragC 605 625, 639 670-705 803
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Ich hoffe, ich habe Ihre Problemstellung richtig
verstanden.


Viele Grüße reihum von

Michael Trauth



===============================================================
Dr. Michael Trauth                  e-mail: trauth at uni-trier.de
Rechenzentrum                        office: Tel. 0651-201-3413
der Universitaet                             Fax  0651-201-3921
Universitaetsring 15              secretary: Tel. 0651-201-3417
D-54286 Trier
===============================================================