Fréquence des notes de musique selon le diapason ------------------------------------------------ dipa D; note N; octv O; fréq F ------------------------------------------------ PROGRAM:FREQNOT 0→D:0→N:0→H:0→O:0→F:0→I EffÉcran Input "Diapason......: ",D Disp "La La# Si Do Do# Ré" Disp "0 1 2 3 4 5" Disp "------------------------" Disp "Ré# Mi Fa Fa# Sol Sol#" Disp "6 7 8 9 10 11" Disp "------------------------" Input "Quel chiffre..: ",N Input "Octave -2 à 9.: ",H If N>11:Then EffÉcran Stop End 10^(log(2)/12)^N*D→F If N≥3 Then H-1→O Else H→O End O-4→O If O≠0:Then If O>0:Then For(I,1,O) F*2→F End Else abs(O)→O For(I,1,O) F/2→F End End End arrondir(F,3)→F Output(8,1,"Note..........: ") Output(9,1,"Octave........: ") Output(10,1,"Fréquence.....: "):Output(10,17,F):Output(10,25,"Hz") Pause EffÉcran