Español
Foro

Zahlenstelle Dezimalzahl

 

Jörg
Sellmeyer

Yo quería veces matemáticamente cada Zahlenstellen uno gegebenen Zahl herausbekommen.
Das  [...]  war mein erster Ansatz.

Der Zweite war entonces ya erfolgreicher:
SubProc Get.1

    Parámetros Zahl&
    Volver (Zahl& Mod 10)

ENDPROC

SubProc Get.10

    Parámetros Zahl&
    Volver ((Zahl& Mod 100) - (Zahl& Mod 10)) \ 10

ENDPROC

SubProc Get.100

    Parámetros Zahl&
    Volver ((Zahl& Mod 1000) - (Zahl& Mod 100)) \ 100

ENDPROC

SubProc Get.1000

    Parámetros Zahl&
    Volver ((Zahl& Mod 10000) - (Zahl& Mod 1000)) \ 1000

ENDPROC

Imprimir "34567 viele Einzelfunktionen"
Imprimir Get("1",34567)
Imprimir Get("10",34567)
Imprimir Get("100",34567)
Imprimir Get("1000",34567)
Imprimir
WaitInput

SubProc Get.Zahl

    ' Index angeben como 1 oder 2, 3 usw.
    Parámetros Ind%,Zahl&
    Declarar tmp1&,tmp2&,tmp3&
    tmp1& = 10^Ind%
    tmp2& = 10 ^(Ind%-1)
    Volver ((Zahl& Mod tmp1&) - (Zahl& Mod tmp2&)) \ tmp2&

ENDPROC

'Das puede ser ad infinitum weiteführen oder una felexible Procedimiento lo hacer
'El Zahl hinten, así uno en uno Headerdatei z. B Zehner( = Get("Zahl",2,; definieren kann
Imprimir "34567 Flexible Funktion"

WhileLoop 4

    Imprimir Get("Zahl",&Loop,34567),

Wend

Imprimir
WaitInput
'oder bastante brachial como Stringauswertung
'ha el Vorteil, dass uno cualquier große Pagar transferencia kann

Proc ZahlenStelle

    Parámetros Zahl$,Index%
    Volver Mid$(Zahl$,-Index%,1)

ENDPROC

Imprimir
Imprimir "144545678844356 Auswertung como String"

WhileLoop 13

    Imprimir ZahlenStelle(144545678844356,&Loop),

Wend

Imprimir
Imprimir "Auch andersherum"

WhileLoop 13

    Imprimir ZahlenStelle(144545678844356,-&Loop),

Wend

WaitInput
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
24.05.2018  
 




jacdelad
tmp1& puede ser se incluso sparen y tmp3& se eh no benutzt:
SubProc Get.Zahl

    ' Index angeben como 1 oder 2, 3 usw.
    Parámetros Ind%,Zahl&
    Declarar tmp2&
    tmp2& = 10 ^(Ind%-1)
    Volver ((Zahl& Mod (10^Ind%)) - (Zahl& Mod tmp2&)) \ tmp2&

ENDPROC

 
14.05.2019  
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

982 Views

Untitledvor 0 min.
RICOSCH vor 8 Tagen
lange-jens12.10.2019
Thomas Zielinski31.08.2019
Torben Nissen11.08.2019
Más...

Themeninformationen

Dieses Thema ha 2 subscriber:

jacdelad (1x)
Jörg Sellmeyer (1x)


AGB  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Pie de imprenta  |  Mart  |  Support  |  Búsqueda

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie