DATES

Taper à la main

Vous ne possédez pas de câble ? Alors vous pourrez néanmoins taper les programmes à la main sur votre calculatrice. Pour cela, appuyez sur la touche [pgrm], la flèche de gauche puis sur [entrer].

 

Taper à la main: (Français)

EffEcr
Disp "DATE 1: ","
Input "JOUR: ",Chaîne0
If 1=longueur(Chaîne0
Then
"0"+Chaîne0→Chaîne1
Else
Chaîne0→Chaîne1
End
Input "MOIS: ",Chaîne0
If 1=longueur(Chaîne0
Then
Chaîne1+"0"+Chaîne0→Chaîne1
Else
Chaîne1+Chaîne0→Chaîne1
End
Input "ANNEE: ",Chaîne0
If 4=longueur(Chaîne0
Then
Chaîne1+"."+sous-Chaîne(Chaîne0,3,2→Chaîne1
Else
If 1=longueur(Chaîne0
Then
Chaîne1+".0"+Chaîne0→Chaîne1
Else
Chaîne1+"."+Chaîne0→Chaîne1
End
End
EffEcr
Disp "DATE 2: ","
Input "JOUR: ",Chaîne0
If 1=longueur(Chaîne0
Then
"0"+Chaîne0→Chaîne2
Else
Chaîne0→Chaîne2
End
Input "MOIS: ",Chaîne0
If 1=longueur(Chaîne0
Then
Chaîne2+"0"+Chaîne0→Chaîne2
Else
Chaîne2+Chaîne0→Chaîne2
End
Input "ANNEE: ",Chaîne0
If 4=longueur(Chaîne0
Then
Str2+"."+sous-Chaîne(Chaîne0,3,2→Chaîne2
Else
If 1=longueur(Chaîne0
Then
Chaîne2+".0"+Chaîne0→Chaîne2
Else
Chaîne2+"."+Chaîne0→Chaîne2
End
End
EffEcr
Disp Chaîne1,Chaîne2,"","JOURS:
Output(1,3,"/
Output(1,4,sous-Chaîne(Chaîne1,3,5
Output(1,6,"/
Output(2,3,"/
Output(2,4,sub(Chaîne2,3,5
Output(2,6,"/
Pause jed(expr(Chaîne1),expr(Chaîne2
EffEcr
Output(4,6,"ALEXIS
EffVar Chaîne0EffVar Chaîne1EffVar Chaîne2
Output(1,1,"

 

Taper à la main: (Anglais)

ClrHome
Disp "DATE 1: ","
Input "JOUR: ",Str0
If 1=length(Str0
Then
"0"+Str0→Str1
Else
Str0→Str1
End
Input "MOIS: ",Str0
If 1=length(Str0
Then
Str1+"0"+Str0→Str1
Else
Str1+Str0→Str1
End
Input "ANNEE: ",Str0
If 4=length(Str0
Then
Str1+"."+sub(Str0,3,2→Str1
Else
If 1=length(Str0
Then
Str1+".0"+Str0→Str1
Else
Str1+"."+Str0→Str1
End
End
ClrHome
Disp "DATE 2: ","
Input "JOUR: ",Str0
If 1=length(Str0
Then
"0"+Str0→Str2
Else
Str0→Str2
End
Input "MOIS: ",Str0
If 1=length(Str0
Then
Str2+"0"+Str0→Str2
Else
Str2+Str0→Str2
End
Input "ANNEE: ",Str0
If 4=length(Str0
Then
Str2+"."+sub(Str0,3,2→Str2
Else
If 1=length(Str0
Then
Str2+".0"+Str0→Str2
Else
Str2+"."+Str0→Str2
End
End
ClrHome
Disp Str1,Str2,"","JOURS:
Output(1,3,"/
Output(1,4,sub(Str1,3,5
Output(1,6,"/
Output(2,3,"/
Output(2,4,sub(Str2,3,5
Output(2,6,"/
Pause dbd(expr(Str1),expr(Str2
ClrHome
Output(4,6,"ALEXIS
DelVar Str0DelVar Str1DelVar Str2
Output(1,1,"

Retour Sommaire

Créer un site gratuit avec e-monsite - Signaler un contenu illicite sur ce site