0votos

Pseudocodigos en PL-SQL

por alvaro sanz llorente hace 1 año

Aquí la solucion

Algoritmos con pseudocodigos

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
create or replace procedure Pseudocodigos(numero varchar)as 
 suma integer:=0; 
 begin 
   if length(numero)>5 then 
      
   dbms_output.put_line('no se permite numeros con mas de cinco cifras'); 
   else 
 for p in 1.. length(numero)  
   loop 
    suma:=suma+POWER(TO_NUMBER(SUBSTR(numero,p,1)),2); 
   end loop; 
   dbms_output.put_line('la suma de sus digitos al cuadrado es'||suma); 
   end if; 
 end; 
  
 declare 
 numero varchar(30):=''; 
  
 begin 
   numero:='&dato'; 
 Pseudocodigos(numero); 
 end; 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.