Traductor letra-numero "no traduce de numero a letra"
Publicado por Brayan (1 intervención) el 12/08/2018 07:40:54
Hola, tengo un problema con este código, puede traducir de letras a numero pero no viceversa, y se supone que esta para que lo haga en ambas direcciones, ¿podrían indicarme que estoy haciendo mal?, se los agradecería.
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
numero(0):-write('cero').
numero(1):-write('uno').
numero(2):-write('dos').
numero(3):-write('tres').
numero(4):-write('cuatro').
numero(5):-write('cinco').
numero(6):-write('seis').
numero(7):-write('siete').
numero(8):-write('ocho').
numero(9):-write('nueve').
letra(cero):-write('0').
letra(uno):-write('1').
letra(dos):-write('2').
letra(tres):-write('3').
letra(cuatro):-write('4').
letra(cinco):-write('5').
letra(seis):-write('6').
letra(siete):-write('7').
letra(ocho):-write('8').
letra(nueve):-write('9').
traducir:-
write('introduce numero: '),
nl,read(X),
nl,write('La traducción es: '),letra(X),!;numero(X).
traducir.
Valora esta pregunta
0