0votos

fundamentos de programacion en PL-SQL

por alvaro sanz llorente hace 1 año

Así lo he hecho

haser un pseudocodigo

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
create or replace function esprimo(numero1 integer) return varchar as 
contprimo number(30):=0; 
primono varchar(30):=''; 
begin 
   
for p in 1..numero1  
  loop 
     
  if mod(numero1,p)=0 then 
    contprimo:=contprimo+1; 
    end if; 
  end loop; 
   
  if contprimo=2 then  
    primono:=' es primo'; 
    else 
      primono:=' no es primo';  
      end if; 
      return primono; 
end; 
 
declare  
numero integer; 
 
begin 
numero:=&dato; 
 
dbms_output.put_line('el numero '||numero|| esprimo(numero)); 
 
end; 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.