Pascal/Turbo Pascal - Ejercicio: leer una cadena de caracteres e indicar cuantas consonantes se encuentran

   
Vista:

Ejercicio: leer una cadena de caracteres e indicar cuantas consonantes se encuentran

Publicado por dago (10 intervenciones) el 13/07/2017 04:48:55
Estimados alguien me ayuda con este ejercicio para desarrollarlo en pascal por favor

leer una cadena de caracteres e indicar cuantas consonantes se encuentran de cada una de ellas

Saludos y gracias de antemano
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

Ejercicio: leer una cadena de caracteres e indicar cuantas consonantes se encuentran

Publicado por dario (38 intervenciones) el 13/07/2017 06:37:51
Te dejo esto a ver si te sirve.
Se puede hacer de otra manera, pero no se me ocurre.

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
uses crt;
var
	cadena:string;
	i:integer;
	b,c,d,f,g,h,j,k,l:byte;
	m,n,p,q,r,s,t,v,w,x,y,z:byte;
begin
	clrscr;
	write('Ingrese una palabra: ');
	readln(cadena);
 
	for i:=1 to length(cadena) do begin
		case cadena[i] of
			'b': inc(b);
			'c': inc(c);
			'd': inc(d);
			'f': inc(f);
			'g': inc(g);
			'h': inc(h);
			'j': inc(j);
			'k': inc(k);
			'l': inc(l);
			'm': inc(m);
			'n': inc(n);
			'p': inc(p);
			'q': inc(q);
			'r': inc(r);
			's': inc(s);
			't': inc(t);
			'v': inc(v);
			'w': inc(w);
			'x': inc(x);
			'y': inc(y);
			'z': inc(z);
		end;
	end;
 
	writeln('Letras b: ',b);
	writeln('Letras c: ',c);
	writeln('Letras d: ',d);
	writeln('Letras f: ',f);
	writeln('Letras g: ',g);
	writeln('Letras h: ',h);
	writeln('Letras j: ',j);
	writeln('Letras k: ',k);
	writeln('Letras l: ',l);
	writeln('Letras m: ',m);
	writeln('Letras n: ',n);
	writeln('Letras p: ',p);
	writeln('Letras q: ',q);
	writeln('Letras r: ',r);
	writeln('Letras s: ',s);
	writeln('Letras t: ',t);
	writeln('Letras v: ',v);
	writeln('Letras w: ',w);
	writeln('Letras x: ',x);
	writeln('Letras y: ',y);
	writeln('Letras z: ',z);
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