Pascal/Turbo Pascal - duda con ejercicio de cadenas

   
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 (2072 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

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