0votos

Palabras pentavocálicas en PL-SQL

por alvaro sanz llorente hace 1 año

Ahora en pl-sql

si una palabra es pentavocálica o no

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
create or replace function palabrapentavocalica(palabra varchar)return varchar as 
espalabrapentavocalica varchar(30):=''; 
conta number(30):=0; 
conte number(30):=0; 
conti number(30):=0; 
conto number(30):=0; 
contu number(30):=0; 
palabra2 varchar(30):=''; 
begin 
  palabra2:=LOWER(palabra); 
for p in 1.. length(palabra2)  
  loop 
   if SUBSTR(palabra2,p,1)='a' then  
  conta:=conta+1; 
  
  end if; 
  if SUBSTR(palabra2,p,1)='e' then  
  conte:=conte+1; 
  end if; 
   
  if SUBSTR(palabra2,p,1)='i' then  
  conti:=conti+1; 
  end if; 
   
  if SUBSTR(palabra2,p,1)='o' then  
  conto:=conto+1; 
  end if; 
   
  if SUBSTR(palabra2,p,1)='u' then  
  contu:=contu+1; 
  end if; 
    
  end loop; 
  
  if conta=1 and conte=1 and conti=1 and conto=1 and contu=1 then 
    espalabrapentavocalica:='es  pentavocalica'; 
  else  
    espalabrapentavocalica:='no es  pentavocalica'; 
    end if; 
    return espalabrapentavocalica; 
end; 
 
 
declare  
palabra varchar(30):=''; 
 
begin 
  palabra:='&dato'; 
  dbms_output.put_line('la palabra '||palabra ||' '||palabrapentavocalica(palabra)); 
 
end; 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.