Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » duda con ejercicio de cadenas

Pascal/Turbo Pascal - duda con ejercicio de cadenas

Volver
Nuevo Tema
<<>>
 
Vista:

duda con ejercicio de cadenas

Publicado por Sara (6 intervenciones) el 10/02/2015 20:08:59
Me puede ayudar alguien con este ejercicio

Hay dos procedimientos para conocer la longitud de una cadena de caracteres:

a) Usar la orden longitud:=length(cadena);. Así en la variable entera longitud se almacena la longitud de una cadena de caracteres.

b) Sabiendo que en la posición cero de la cadena se almacena el tamaño de la misma pero como un carácter para tener el mismo resultado anterior, se puede hacer: longitud:=ord(cadena[0]);

Codifique un programa que pida al usuario una cadena de caracteres y devuelva su longitud dos veces, la primera calculada con el método a y la segunda con el b. Incluya cada método en un procedimiento diferente e invoque a estos dos procedimientos desde el módulo principal.

Gracias
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

duda con ejercicio de cadenas

Publicado por ramon (2158 intervenciones) el 10/02/2015 22:36:06
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
{El Menú lo realizas tu o no}
 
 program cadenas;
 uses
     crt;
   var
     texto : string;
     long, tama : word;
 
   procedure entra_texto(var t : string);
   begin
      writeln('   Entre El Texto ');
      writeln;
      write('  Texto = ');
      readln(t);
   end;
 
 
   function longitud_longt(t : string) : word;
   begin
       longitud_longt := length(t);
   end;
 
   function longitud_otro(t : string) : word;
   begin
      longitud_otro := word(ord(t[0]));
   end;
 
   begin
       clrscr;
       entra_texto(texto);
       writeln('   Con Longint = ',longitud_longt(texto));
       writeln('   Con El Otro = ',longitud_otro(texto));
       readkey;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

duda con ejercicio de cadenas

Publicado por Rene gar (58 intervenciones) el 10/02/2015 22:44:32
//ramon ya dio solucion


olle ramon estas utilizando una version de free pascal?
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
sin imagen de perfil
Val: 35
Ha disminuido 1 puesto en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

duda con ejercicio de cadenas

Publicado por Enrique Martin (15 intervenciones) el 20/01/2019 02:01:30
Te dejo la solución con los dos procedimientos:

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
Program CalcularLongitudCadena;
 
Type
 
Tcadena=string[50];
 
procedure CalcularLongitudLength (fraseLength:Tcadena);
begin
 writeln('El texto contiene ',length(fraseLength),' caracteres');
end;
 
Procedure CalcularLongitudOrd (fraseOrd:Tcadena);
begin
 writeln('El texto contiene ',ord(fraseord[0]), ' caracteres');
end;
 
var
 Texto: Tcadena;
 
Begin
 Writeln('Introduzca cualquier texto: ');
 readln(texto);
 
 calcularlongitudlength(texto);
 calcularlongitudord(texto);
 readln;
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