ORD Y CHR
Publicado por JUAN (11 intervenciones) el 17/06/2013 18:28:59
Alguien me describe el funcionamiento de este programa?
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
program modificaciondecadena;
var
cadenaoriginal:string[10];
cadenamodificada:string[10];
valornumerico:integer; control:integer;begin
writeln('Introduzca una cadena con mayúsculas y minúsculas: ');
readln(cadenaoriginal);
cadenamodificada:=cadenaoriginal;
for control:=1 to length(cadenaoriginal)do
begin
if(cadenaoriginal[control]=upcase(cadenaoriginal[control])) then
Begin
valornumerico:=ORD(cadenaoriginal[control]);
cadenamodificada[control]:=CHR(valornumerico+32);
End
else
begin
cadenamodificada[control]:=upcase(cadenaoriginal[control]);
end;
end;
writeln('Esta es la cadena original: ',cadenaoriginal);
writeln('Esta es la cadena modificada: ',cadenamodificada);
readln;
end.Valora esta pregunta
0