Français
Forum

Zahlenstelle Dezimalzahl

 

Jörg
Sellmeyer

je voulais la fois mathématique chaque Zahlenstellen einer gegebenen numéro herausbekommen.
cela  [...]  était mon erster Ansatz.

qui Zweite était ensuite déjà erfolgreicher:
SubProc Get.1

    Paramètres Zahl&
    Retour (Zahl& Mod 10)

ENDPROC

SubProc Get.10

    Paramètres Zahl&
    Retour ((Zahl& Mod 100) - (Zahl& Mod 10)) \ 10

ENDPROC

SubProc Get.100

    Paramètres Zahl&
    Retour ((Zahl& Mod 1000) - (Zahl& Mod 100)) \ 100

ENDPROC

SubProc Get.1000

    Paramètres Zahl&
    Retour ((Zahl& Mod 10000) - (Zahl& Mod 1000)) \ 1000

ENDPROC

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

SubProc Get.numéro

    ' index angeben comme 1 ou bien 2, 3 usw.
    Paramètres Ind%,Zahl&
    Déclarer tmp1&,tmp2&,tmp3&
    tmp1& = 10^Ind%
    tmp2& = 10 ^(Ind%-1)
    Retour ((Zahl& Mod tmp1&) - (Zahl& Mod tmp2&)) \ tmp2&

ENDPROC

'cela peux on ad infinitum weiteführen ou bien une felexible Procédure daraus faire
'qui numéro hinten, avec cela on dans einer Headerdatei z. B Zehner( = Get("Nombre",2,; définir peux
Imprimer "34567 Flexible Funktion"

WhileLoop 4

    Imprimer Get("Nombre",&Boucle,34567),

Wend

Imprimer
WaitInput
'ou bien entier brachial comme Stringauswertung
'hat den Vorteil, dass on beliebig grand payons transfert peux

Proc ZahlenStelle

    Paramètres numéro$,index%
    Retour Mid $(numéro$,-index%,1)

ENDPROC

Imprimer
Imprimer "144545678844356 Auswertung comme String"

WhileLoop 13

    Imprimer ZahlenStelle(144545678844356,&Boucle),

Wend

Imprimer
Imprimer "Auch andersherum"

WhileLoop 13

    Imprimer ZahlenStelle(144545678844356,-&Boucle),

Wend

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




jacdelad
tmp1& peux on sich sogar sparen et tmp3& wird eh pas benutzt:
SubProc Get.numéro

    ' index angeben comme 1 ou bien 2, 3 usw.
    Paramètres Ind%,Zahl&
    Déclarer tmp2&
    tmp2& = 10 ^(Ind%-1)
    Retour ((Zahl& Mod (10^Ind%)) - (Zahl& Mod tmp2&)) \ tmp2&

ENDPROC

 
14.05.2019  
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

889 Views

Untitledvor 0 min.
Thomas Zielinski vor 18 Tagen
Torben Nissen11.08.2019
Michael Borowiak23.07.2019
R.Schneider22.06.2019
plus...

Themeninformationen

cet Thema hat 2 participant:

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


AGB  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Empreinte  |  Mart  |  Support  |  cherche

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie