Necesito ayuda! Alguien podria corregirme el codigo?
Publicado por Sabrina (9 intervenciones) el 19/07/2017 07:08:39
Hola! Como estan?
Necesito que mi programa muestre en letras el numero que se le ingrese.
Tengo la idea pero no logro que me compile .
Alguien podria ayudarme?
Aqui abajo les dejo el codigo .
Cualquier ayuda es bienvenida!!!
Necesito que mi programa muestre en letras el numero que se le ingrese.
Tengo la idea pero no logro que me compile .
Alguien podria ayudarme?
Aqui abajo les dejo el codigo .
Cualquier ayuda es bienvenida!!!
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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Program Conversor (input,output);
Uses CRT;
Const
u : array[1..9] of string[6] = ('uno','dos','tres','cuatro','cinco','seis','siete','ocho','nueve');
d : array[1..9] of string[9] = ('diez','veinti','treinta','cuarenta','cincuenta','sesenta','setenta','ochenta','noventa');
dE: array[1..9] of string[15] = ('once','doce','trece','catorce','quince','dieciseis','diecisiete','dieciocho','diecinueve');
c : array[1..9] of string[15] = ('ciento','doscientos','trescientos','cuatrocientos','quinientos','seiscientos','setecientos','ochocientos','novecientos');
m : array[1..9] of string[20] = ('mil','dos-mil','tres-mil','cuatro-mil','cinco-mil','seis-mil','siete-mil','ocho-mil','nueve-mil');
Var
mas,NRO:string[7];
Palabra1,Palabra2,Palabra3,Palabra4:String[20];
Millar,cent,dec,uni:integer;
Procedure IngresoUno;
Begin
Writeln('Ingrese un numero de 0 a 9999');
Readln(NRO);
Writeln('');
End;
Procedure UnidadDeMil;
Begin
IF NRO[1]=0 THEN break
Else
Begin
millar := NRO[1];
Palabra1 := m[millar];
end
end;
Procedure Centena;
Begin
IF (NRO[2]=0) THEN break
ELSE
Begin
Cent:= NRO[2];
Palabra2:=c[cent];
End
End;
Procedure Decena;
Begin
IF (NRO[3]=0) THEN break
ELSE
Begin
IF (NRO[3]= 1) AND (NRO[4]>0)THEN
Begin
Dec:=NRO[4];
Palabra3:=dE[Dec];
End
Else
IF (NRO[3]=2) AND (NRO[4]=0) THEN Palabra3:= 'veinte'
Else
IF (NRO[3]>2) AND (NRO[4]>0) THEN
Begin
Mas:=' y ';
Dec:=NRO[3];
Palabra3:=d[dec]+mas;
end
Else
Begin
Dec:=NRO[3];
Palabra3:=d[Dec];
end
End
end;
Procedure Unidad;
Begin
IF NRO[4]=0 THEN break
Else
Begin
Uni:=NRO[4];
Palabra4:=u[uni];
End
end;
BEGIN
IngresoUno;
UnidadDeMil;
Centena;
Decena;
Unidad;
Writeln('El Numero es : ',palabra1+palabra2+palabra3+palabra4);
readkey;
end.Valora esta pregunta
0