Rizki Oktavia

Halo - Beyonce   Lyric Remember those walls I built Well, baby they're tumbling down And they didn't even put up a fight They didn't even make up a sound I found a way to let you in But I never really had a doubt Standing in the light of your halo I got my angel now It's like I've been awakened Every rule I had you breakin' It's the risk that I'm takin' I ain't never gonna shut you out Everywhere I'm looking now I'm surrounded by your embrace Baby I can see your halo You know you're my saving grace You're everything I need and more It's written all over your face Baby I can feel your halo Pray it won't fade away I can feel your halo halo halo I can see your halo halo halo I can feel your halo halo halo I can see your halo halo halo Hit me like a ray of sun Burning through my darkest night You're the only one that I want Think I'm a

Program Membalik_Angka; uses   SysUtils; const maxElemen = 255;   type angka = string [maxElemen]; tumpukan = record   isi: angka;   atas: 0..maxElemen;   end; var t: tumpukan; number: angka; i: Integer; procedure AWAL (var t:tumpukan); begin   t.atas :=0; end; procedure PUSH (var t:tumpukan; x:char); begin   t.atas := t.atas+1;   t.isi [t.atas] := x;   end; function POP (var t: tumpukan): char; begin   POP := t.isi[t.atas];   t.atas := t.atas-1;   end; begin   AWAL (t);   writeln('     --------------------------');   writeln('     | PROGRAM MEMBALIK ANGKA |');   writeln('     --------------------------');   writeln;   write('Masukan angka: ');   readln(number);   writeln;   writeln('Angka sebelum dibalik: ');   writeln(number);   writeln;   writeln('Angka sesudah dibalik: ');   for i := 1 to Length(number) do   push (t, number[i]);   for i := 1 to length (number) do   write(POP (t));  

Udah lama sebenarnya pengen ngeposting coding-coding program yang di pelajari di kampus tapi baru kesampean haha. Bagi para mahasiswa teknik informatika khususnya nih aku share ya coding mencari bilangan bilangan fibonaci menggunakan aplikasi Delphi Console tapi juga dapat digunakan di program Java. Program Fibonaci; uses   SysUtils;  function fib (bil:integer): Integer; begin   if (bil = 1) or (bil=2) then   fib:=1   else   fib:=fib(bil-1)+fib(bil-2)   end;   var n: Integer;   begin     write('Masukan bilangan: ');     Readln(n);     Writeln('Hasil fibonacci: ',fib(n));     Readln; end. Nah, trus hasil tampilannya gini aja deh, gampang kan? selamat mencoba ya, semoga bermanfaat :)