0votos

Dibujar un triángulo rectángulo en PL-SQL

por alvaro sanz llorente hace 1 año

Ahora en pl sql

Dibujar un triángulo rectángulo isósceles.

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
create or replace procedure dibujartriangulo(numero integer)as 
numero2 integer:=0; 
suma varchar(30):=''; 
begin 
 numero2:= numero+2; 
  
 for p in 1..numero2 
   loop 
     suma:=concat(suma,'X'); 
   end loop; 
    
   for f in reverse 1.. length(suma) 
     loop 
       dbms_output.put_line(SUBSTR(suma,f)); 
      
     end loop; 
 
end; 
 
declare 
numero integer:=0; 
 
begin 
  numero:=&dato; 
  dbms_output.put_line('el cateto de '||numero); 
dibujartriangulo(numero); 
 
end; 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.