Salut a tous ! Je débute en Pascal et j'ai besoin de votre aide : j'essaye de faire un programme qui traduit du texte en morse. Voila le code source :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
program morse (output,input) ;
uses crt ;
var mot : string ;
    f,i,taille,a : integer ;
    lettre : char;
 
procedure court;
begin
     f:=500 ;
     write('. ');
     sound(f);
     delay(2000);
     nosound;
     delay(1000);
end;
procedure long ;
begin
     f:=500 ;
     write('_ ');
     sound(f);
     delay(6000);
     nosound;
     delay(1000);
end;
begin
     a:=1 ;
     f:=700 ;
     write('Entrer la phrase : ');
     readln(mot);
     taille:=length(mot) ;
     for i:=1 to taille do begin
     lettre:=mot[a] ;
          case lettre of
               'a' : court ; long ;
               'b' : long ; court ; court ; court ;
               'c' : long ; court ; long ; court ;
               'd' : long ; court ; court ;
               'e' : court ;
               'f' : court ; court ; long ; court ;
               'g' : long ; long ; court ;
               'h' : court ; court ; court ; court ;
               'i' : court ; court ;
               'j' : court ; long ; long ; long ;
               'k' : long ; court ; long ;
               'l' : court ; long ; court ; court ;
               'm' : long ; long ;
               'n' : long ; court ;
               'o' : long ; long ; long ;
               'p' : court ; long ; long ; court;
               'q' : long ; long ; court ; long ;
               'r' : court ; long ; court ;
               's' : court ; court ; court ;
               't' : long ;
               'u' : court ; court ; long ;
               'v' : court ; court ; court ; long ;
               'w' : court ; long ; long ;
               'x' : long ; court ; court ; long ;
               'y' : long ; court ; long ; long ;
               'z' : long ; long ; court ; court ;
               a:=a+1 ;
          end;
     end;
     readln ;
end.
Mon probleme vient du fait que lorsque je compile tout (le programme n'est pas fini!), turbo pascal m'indique : "error 143 : invalid procedure or function reference". Pourquoi ce message et comment y remedier ??

Merci !!