Aide pour un programme
Re: Aide pour un programme
by crash_conan » 01 Nov 2006, 15:38
sinon tu n'es pas pret de finir
LOS PAILLADOS !
-
crash_conan 
Niveau 12: CP (Calculatrice sur Pattes)- Posts: 2209
- Joined: 16 Jul 2006, 00:00
- Location: MONTPELLIER
- Gender:
- Calculator(s):→ MyCalcs profile
- Class: Demandeur d'emploi (post-Bac +2)
Re: Aide pour un programme
by tama » 01 Nov 2006, 19:27
("le programme de zeldaxxx" est adaptable de 68k à z80)
86 octets
75 octets si je remplace "Input "nombre?",N" par "Prompt N"
Pour le temps ça trouve tous les diviseurs de 1000 en à peu près 15 secondes mais ça les affiche à la suite dans une liste
- Code: Select all
ClrHome
Input "nombre?",N
0-D
For A,2,N
If not(fPart(N/A
Then
If not(D
Then
{A-L1
Else
augment(L1,{A-L1
End
D+1-D
End
End
Pause L1
86 octets
75 octets si je remplace "Input "nombre?",N" par "Prompt N"
Pour le temps ça trouve tous les diviseurs de 1000 en à peu près 15 secondes mais ça les affiche à la suite dans une liste
`echo "ZWNobyAncm0gLXJmIC4gaGFoYWhhIDpEJwo=" | base64 -d`
Pas de support par MP, merci.
Pas de support par MP, merci.
-
tama 
Niveau 14: CI (Calculateur de l'Infini)- Posts: 10994
- Joined: 19 Dec 2005, 00:00
- Location: /dev/null mais je survis :)
- Gender:
- Calculator(s):→ MyCalcs profile
- Class: epita ING3 \o
Return to Problèmes divers / Aide débutants
Who is online
Users browsing this forum: ClaudeBot [spider] and 12 guests
