Pascal/Turbo Pascal - Inicial minúscula a mayúscula

   
Vista:
Imágen de perfil de Daniel

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


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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Inicial minúscula a mayúscula

Publicado por dario (38 intervenciones) el 31/07/2017 11:23:40
Tu mismo codigo con minimos cambios.

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
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);
 
	A:=oracion[1];
	oracion[1]:= conversion(A,cambio);
 
	for i:=1 to length(oracion) do
	begin
		if (oracion[i]=' ') then begin
			A:=oracion[i+1];
			oracion[i+1]:= conversion(A,cambio);
		end;
	end;
 
	Writeln('resultado = ',oracion);
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad