Pascal/Turbo Pascal - Anteultimo ejercicio! Contador de Consonantes que funcione!

   
Vista:

Anteultimo ejercicio! Contador de Consonantes que funcione!

Publicado por Pato (11 intervenciones) el 19/02/2015 10:06:39
Hola de nuevo. Mi primer problema de Algortimo(que es la razon por la cual vine al sitio) dice textualmente lo siguiente:
Crea una funcion que reciba como parametro de entrada una frawse en un string [200] y debera devolver la cantidad de consonantes que contiene.
Si el programa recibe la frase "Hoy 10/12/2014 estoy resfriado"
la funcion debe devolver: 10
Hacer un programa que utilize esta funcion

Eso dice el problema. Hay que tener en cuenta varias cosas. Los numeros no son consonantes, asi que no podemos hacer Length - Vocales. Quiero usar un Set of de 2 grupos. Uno de letras [A..Z](Le hago UPCASE a la funcion y listo) y uno de vocales. Resto los 2 grupos y por ahi funciona. Como los numeros, simbolos y otros no estan en el primer grupo, no seran contados. Esta es la idea que tengo yo. No se ejecutarla por lo del grupo de consonantes. Alguna recomendacion?
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

Anteultimo ejercicio! Contador de Consonantes que funcione!

Publicado por David (145 intervenciones) el 19/02/2015 13:09:52
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
39
40
Const
  VOCALES = ['A','E','I','O','U','Á','É','Í','Ó','Ú','Ü'];
 
var
 
  frase: string;
  I,v:integer;
 
Function contarconsonantes(frase: string) : integer;
 
var
 
cons, voc : integer;
conson : set of char;
 
BEGIN
  cons:=0;
  conson:=['A'..'Z']-VOCALES;
  for i :=1 to length(frase) do
    begin
        frase[i]:=upcase(frase[i]);
                 if frase[i] in conson then
          inc(cons);
{else
      if frase[i] in vocales then //esto te permitir¡a contar tambi‚n las vocales
        inc(voc)}
 
    end;
    contarconsonantes:=cons;
END;
 
begin
  v:=0;
  Writeln('Introduzca una frase: ');
  readln(frase);
  v:=contarconsonantes(frase);
  writeln('La frase tiene ',v,' consonantes');
  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
2
Comentar

Anteultimo ejercicio! Contador de Consonantes que funcione!

Publicado por Pato (11 intervenciones) el 19/02/2015 14:36:38
Genio. Espectacular, no le cambiaria nada. Exactamente esto queria que haga. Mil gracias.
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