tugas generasi ke-4

Soal :

1. Tampilkan deret :

4 8 12 16 20 24 28 32 36

Sebanyak 10 bilangan pertama dan jumlah dari bilngan – bilngan tersebut ?

2. Tampilkan deret

½ + ¼ + 1/8 + …. + 1/64

Dan jumlahnya ?

3. Dik :

Nama Mahasiswa sebagai berikut :

Didi

Dadi

Dodi

Dedi

Dudi

Buatlah program pl/sql untuk mengurutkan nama-nama mahasiswa tersebut ?

4. Buatlah procedure untuk menampilkan deret bilangan dan jumlahnya jumlah suku sebanyak nilai bilngan yang di input (x) !

Pemanggilan procedure : execute hitung_X(5) ;

Output :

1+

2 +

3 +

4 +

5

= 15

Jawab :

1. Declare

N Integer := 1 ;

A Integer := 0 ;

Begin

Loop

S := N * 4 ;

DBMS.Output.Put_Line (To_Char(S)) ;

A := A + S ;

N := N + 1 ;

Exit when N > 10 ;

End loop ;

DBMS.Output.Put_line (To_Char(A)) ;

End ;

2. Declare

I Integer := 1 ;

N Integer ;

Begin

Loop

N := ½** I ;

DBMS.Output.Put_Line (To_Char(N)) ;

I := I + 1 ;

Exit when I > 6 ;

End Loop ;

End ;

3. Declare

N Integer := 0 ;

Begin

0 := ‘ a ‘ ;

1 := ‘ e ‘ ;

2 := ‘ I ‘ ;

3 := ‘ o ‘ ;

4 := ‘ u ‘ ;

Loop

DBMS.Output.Put_Line ( ‘ D ‘ || To_Char(N) || ‘di ‘ ) ;

Exit when N > 4 ;

End Loop ;

End ;

4. Create or replace procedure hitung_x

( x in out integer )

As

Begin

X := x + 1 ;

End ;

/

Create or replace procedure loop_x

As

N integer ;

X integer ;

Begin

For N in 1 . . . X loop ;

DBMS.Output.Put_Line ( To_Char ( N ) || ‘ + ‘ ) ;

End loop ;

X := hitung_x ( X ) ;

DBMS.Output.Put_Line ( ‘ = ‘ || To_Char ( X ) ) ;

End ;