Inicial minúscula a mayúscula
Publicado por Daniel (5 intervenciones) el 31/07/2017 07:21:51
buenos dias/tardes,trato de resolver un ejercicio de la universidad en el cual debo ingresar una palabra(o palabras) y esta/s me tienen que retornar con las iniciales en mayuscula;pero hay un error que no puedo indentificar,me ayudan?
P.D:aclaro que no conozco bien la diferencia entre function y procedure,asi que si me equivoque al usar function diganme
P.D:aclaro que no conozco bien la diferencia entre function y procedure,asi que si me equivoque al usar function diganme
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
Program retorno;
uses crt;
var
cambio,i:Integer;
oracion:String;A:char;function conversion(letra:char ; cambio:Integer):char;
Begin
cambio:=ord(letra);
conversion:=chr(cambio-32);
end;
Begin
cambio:=0;
Writeln('ingrese una oracion');
Readln (oracion);
for i:=1 to length(oracion) do
begin
if (oracion[i]=' ') then
A:=oracion[i+1];
oracion[i+1]:= conversion(A,cambio);
end;
Writeln('resultado = ',oracion);
end.Valora esta pregunta
0
