Lieber Besucher, herzlich willkommen bei: INVESTOX-Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
Montag, 14. April 2008, 18:51
Vielen Dank für die Hilfe,
INV 5 hab ich noch nicht, so bleibt mir die Möglichkeit mit VBS verwehrt. Zur Variante von Herrn Knöpfel: Was mache ich, wenn ich nicht weiss, wieviel Stellen die Zahl hat? 123 hab ich nur als Beispiel genommen.
Wenn die Zahl z.B. 1 oder 2 Stellen hätte, so hab ich folgendes probiert:
const Zahl: x;
(If(Zahl<10, Zahl, // wenn nur eine Stelle da ist kann keine Quersumme gebildet werden
const Z1: Zahl\10;
const Z2: Zahl - Z1*10;
Z1 + Z2))
und leider nur Fehlermeldungen bekommen
Viele Grüße Syps
INV 5 hab ich noch nicht, so bleibt mir die Möglichkeit mit VBS verwehrt. Zur Variante von Herrn Knöpfel: Was mache ich, wenn ich nicht weiss, wieviel Stellen die Zahl hat? 123 hab ich nur als Beispiel genommen.
Wenn die Zahl z.B. 1 oder 2 Stellen hätte, so hab ich folgendes probiert:
const Zahl: x;
(If(Zahl<10, Zahl, // wenn nur eine Stelle da ist kann keine Quersumme gebildet werden
const Z1: Zahl\10;
const Z2: Zahl - Z1*10;
Z1 + Z2))
und leider nur Fehlermeldungen bekommen
Viele Grüße Syps
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von »syps« (14. April 2008, 19:44)
Montag, 14. April 2008, 20:50
Hallo Sysps
Das ist ein interessantes Problem. Fast schon schildkrötenartig, jedenfalls hätte Zeno seine Freude! Achilles würde sprinten und Gödel dreht sich im Kreise
Ich kenne zwei Arten, das Problem zu lösen (wenn es nicht schon im "Grundwortschatz" einer Programmiersprache vorhanden ist): iterativ oder rekursiv. Aus Performance-Gründen auf aktuellen Von-Neumann-Rechnern würde man die rekursive Variante vermeiden, und zur iterativen greifen. Ein Beispiel dafür hat Anke gegeben. Diese iterative Version ist aber erst mit V5 und VB Script möglich.
Die rekursive Variante bliebe also, und ich wäre geneigt, einen Indikator sich selbst aufrufen zu lassen. Leider hat Herr Knöpfel rekursive Aufrufe gesperrt (*), ist Investox doch für Programmier-DAUs gemacht ... dementsprechend produziert die rekursive Version eine billige Fehlermeldung (siehe Bild).
Leider funktioniert es auch nicht, wenn sich zwei gleichartige Funktionen unterschiedlichen Namens gegenseitig aufrufen, um die Fehlermeldung wegen dem "Selbstaufruf" zu umgegehn. Herr Knöpfel erkennt einen "zirkulären" Aufruf leider ebenfalls zur Zeit des Syntax-Checks - und es klappt wieder nicht ...
Schön wäre es, wenn in sinnvolle Fehlermeldungen soviel Aufmerksamkeit geflossen wäre - aber so bleibt immerhin ein interessantes ungelöstes nettes intellektuelles Problem
Zwar habe ich selbst eine schöne Quersummern Funktion in VB Script unter INV V5, aber ich bin an rekursiven Lösungsmöglichkeiten rein aus "Weiterbildungsgründen" interesseirt! Hoffentlich hat jemand da was in der Hinterhand!
PS *: Es gibt Laufzeitumgebungen, die das Problem unendlicher Rekurionen eleganter lösen: die Rekurison wird natürlich zugelassen und es wird die Stack-Tiefe mitgezählt. Dazu existiert ein System-Parameter, nennen wir ihn maxdeep=10000. Wird zur Laufzeit eine Rekursion von maxdeep überschritten., so wird die Kette abgebrochen und eine Laufzeit-Fehlermeldung produziert. Etwas eleganter, als ein gut gemeinter Syntax Check ...
Das ist ein interessantes Problem. Fast schon schildkrötenartig, jedenfalls hätte Zeno seine Freude! Achilles würde sprinten und Gödel dreht sich im Kreise
Ich kenne zwei Arten, das Problem zu lösen (wenn es nicht schon im "Grundwortschatz" einer Programmiersprache vorhanden ist): iterativ oder rekursiv. Aus Performance-Gründen auf aktuellen Von-Neumann-Rechnern würde man die rekursive Variante vermeiden, und zur iterativen greifen. Ein Beispiel dafür hat Anke gegeben. Diese iterative Version ist aber erst mit V5 und VB Script möglich.
Die rekursive Variante bliebe also, und ich wäre geneigt, einen Indikator sich selbst aufrufen zu lassen. Leider hat Herr Knöpfel rekursive Aufrufe gesperrt (*), ist Investox doch für Programmier-DAUs gemacht ... dementsprechend produziert die rekursive Version eine billige Fehlermeldung (siehe Bild).
Leider funktioniert es auch nicht, wenn sich zwei gleichartige Funktionen unterschiedlichen Namens gegenseitig aufrufen, um die Fehlermeldung wegen dem "Selbstaufruf" zu umgegehn. Herr Knöpfel erkennt einen "zirkulären" Aufruf leider ebenfalls zur Zeit des Syntax-Checks - und es klappt wieder nicht ...
Schön wäre es, wenn in sinnvolle Fehlermeldungen soviel Aufmerksamkeit geflossen wäre - aber so bleibt immerhin ein interessantes ungelöstes nettes intellektuelles Problem
Zwar habe ich selbst eine schöne Quersummern Funktion in VB Script unter INV V5, aber ich bin an rekursiven Lösungsmöglichkeiten rein aus "Weiterbildungsgründen" interesseirt! Hoffentlich hat jemand da was in der Hinterhand!
PS *: Es gibt Laufzeitumgebungen, die das Problem unendlicher Rekurionen eleganter lösen: die Rekurison wird natürlich zugelassen und es wird die Stack-Tiefe mitgezählt. Dazu existiert ein System-Parameter, nennen wir ihn maxdeep=10000. Wird zur Laufzeit eine Rekursion von maxdeep überschritten., so wird die Kette abgebrochen und eine Laufzeit-Fehlermeldung produziert. Etwas eleganter, als ein gut gemeinter Syntax Check ...
Gruss
Bernd
Bernd