Minggu, 25 Mei 2014

Deret Fibbonaci

18.45  Unknown  1 comment
Deret Fibbonaci


program fibonacci;
uses crt;
var
   n:integer;
   i:integer;
   deret:array[1..100] of real;

begin
    {deret fibonacci adalah deret yang merupakan hasil penjumlahan 2 bilangan sebelumnya}
     clrscr;
     write('Masukan jumlah deret :');
     readln(n);
     writeln;
     for i := 0 to n-1 do
     begin
          if (i = 0) or (i = 1) then
             begin
                  deret[i]:=1;
                  write(deret[i]:1:0,' ');
             end
          else
              begin
                   deret[i]:=deret[i-1]+deret[i-2];
                   write(deret[i]:1:0, ' ');
              end;
     end;
     readln;
end.

Program Biodata

18.38  Unknown  No comments
Program Biodata


program Biodata;
uses crt;

var
nama_lengkap, nama_panggilan, kelas, jurusan, alamat, hobi, Tempat_Tanggal_Lahir, Email : string;
umur : integer;

begin
clrscr;
writeln('**************************************');
writeln('**************Biodata*****************');
writeln('+++++DI BUAT OLEH M. MIFTAH RIDHO+++++');
writeln('***************X TKJ A****************');
writeln('********SMK N 5 BANJARMASIN********');
write('nama lengkap         = ');readln(nama_lengkap);
write('nama panggilan       = ');readln(nama_panggilan);
write('umur                 = ');readln(umur);
write('Tempat Tanggal Lahir = ');readln(Tempat_Tanggal_Lahir);
write('kelas                = ');readln(kelas);
write('jurusan              = ');readln(jurusan);
write('alamat               = ');readln(alamat);
write('hobi                 = ');readln(hobi);
write('Email                = ');readln(Email);
writeln('++++++++++++++++++++++++++++++++++++');
writeln('Jadi Data Anda ');
writeln('Nama Lengkap Anda    = ',nama_lengkap);
writeln('Nama Panggilan       = ',nama_panggilan);
writeln('Umur                 = ',umur ,' tahun');
writeln('Tempat Tanggal Lahir = ',Tempat_Tanggal_Lahir);
writeln('Kelas                = ',kelas);
writeln('Jurusan              = ',jurusan);
writeln('Alamat               = ',alamat);
writeln('Hobi                 = ',hobi);
writeln('Email                = ',Email);
readln;
end.

Jumat, 23 Mei 2014

Pengurangan Matriks

02.34  Unknown  No comments
Pengurangan Matriks

program pengurangan_matriks;
uses wincrt;

var
a,b,c:array[1..25,1..25] of real;
d,e,f,i,j,k:byte;

begin
clrscr;
gotoxy(30,1);writeln(‘===========================’);
gotoxy(30,2);writeln(‘”Program Pengurangan Matriks”‘);
gotoxy(30,3);writeln(‘===========================’);
writeln;
write(‘jumlah baris= ‘);readln(d);
write(‘jumlah kolom= ‘);readln(e);
writeln;
writeln(‘matrik yang pertama’);
for i:=1 to d do
begin
for j:=1 to e do
begin
write(‘nilai[',i,',',j,']?’);readln(a[i,j]);
end;
writeln;
end;
writeln(‘matrik yang kedua’);
for i:=1 to d do
begin
for j:=1 to e do
begin
write(‘nilai[',i,',',j,']?’);readln(b[i,j]);
end;
writeln;
end;
for i:=1 to d do
begin
for j:=1 to e do
begin
c[i,j]:=a[i,j]-b[i,j];
end;
end;
clrscr;
writeln(‘matrik yang pertama’);
for i:=1 to d do
begin
write(‘|’);
for j:=1 to e do
begin
write(a[i,j]:9:2);
end;
write(‘|’);
writeln;
end;
writeln;
writeln(‘matrik yang kedua’);
for i:=1 to d do
begin
write(‘|’);
for j:=1 to e do
begin
write(b[i,j]:9:2);
end;
write(‘|’);
writeln;
end;
writeln;
writeln(‘hasil dari pengurangan matrik : ‘);
writeln;
for i:=1 to d do
begin
write(‘|’);
for j:=1 to e do
write(c[i,j]:9:2);
write(‘|’);
write;
readln;
end;
end.

OUTPUT

Penjumlahan Matriks

02.05  Unknown  1 comment
Contoh Program Penjumlahan Matriks Mengunakan Array

Program Penjumlahan_Matrik;
Uses Crt;
Var
Matrik1,Matrik2, Hasil : Array[1..3,1..2] of Integer;
i,j : Integer;
Begin
ClrScr;
{ input matrik ke satu }
Writeln(' Elemen matrik satu');
For i := 1 to 3 Do
Begin
For j := 1 to 2 Do
Begin
Write('Elemen baris -',i,' Kolom -',j,'= ');
Readln(matrik1[i,j]);
End;
End;
{input matrik ke dua}
Writeln('input elemen matrik dua');
For i:= 1 to 3 Do
Begin
For j:= 1 to 2 Do
Begin
Write('Elemen baris -',i,' kolom -',j,'= ');
Readln(matrik2[i,j]);
End;
End;
{proses penjumlahan tiap elemen}
For i := 1 to 3 Do
Begin
For j:= 1 to 2 Do
Begin
Hasil[i,j]:=Matrik1[i,j]+Matrik2[i,j];
End;
End;
{proses cetak hasil}
For i:= 1 to 3 Do
Begin
For j:= 1 to 2 Do
Begin
Write(Hasil[i,j]:6);
End;
Writeln;
End;
Readln;
End.

OUTPUT


Contoh Program Looping Menggunakan For to do

01.34  Unknown  1 comment
Contoh Program Looping Menggunakan For to do

program segitiga_angka;
Uses crt;
const
akhir = 5;

var
baris,kolom, k : integer;
m           : char;

begin
clrscr;
begin
repeat
writeln ('Segitiga Angka');
writeln ('~~~~~~~~~~~~~~');
write ('Masukan Angka : ');readln(kolom);
for baris := 1 to kolom do
begin
for k := 1 to baris do
write(baris, ' ');
writeln;
end;
write ('Mau Ulang Lagi (Y/N) : ');readln(m)
until upcase (m) <> 'Y';
end;
end.

OUTPUT

Download .PAS nya dibawah ini :
Tusfiles

Kamis, 22 Mei 2014

Openwave V7 simulator

06.54  Unknown  1 comment
Openwave V7 simulator memungkinkan pengembang untuk meniru WAP atau XHTML-MP halaman pada perangkat iDEN dengan versi V7 dari browser Openwave. Versi ini termasuk dalam model Falcon dengan layar persegi panjang dari 176x220 piksel. 

Simulator ini juga menyediakan emulasi untuk transfer pesan MMS menggunakan MM & gateway pada perangkat berkemampuan MMS.

XAMPP For Windows

06.37  Unknown  No comments

Xampp adalah sebuah sebuah software bagi anda yang sedang belajar membuat dan mendasain atau menguji sebuah website pastinya sangat mahal biayanya karena kita butuh sewa hosting dan memiliki akses internet.
tapi dengan adanya Software xampp ini anda tidak perlu memiliki akses internet dan hosting karena semua file kita simpan di komputer sendiri.

Download Here 51 MB

AURORA 3D PRESENTATION 13.04.18 FINAL

03.07  Unknown  1 comment
AURORA 3D PRESENTATION 13.04.18 FINAL..Hmm.. siapa sih yang tidak kenal dengan product Aurora, software pembuat Efect 3 DIMENSI Mudah, tidak ribet. dan menghasilkan EFECT yang keren.. nah.. TEntu kalo di kombinasiakn dengan PRESENTASI anda.. Akan sangat lebih baik.. 

Fungsi yang mirip seperti MS POWER POINT, AURORA 3D PRESENTATION sangat terkesan dengan pendukung untuk membuat gaya SLIDESHOW Gaya 3D, dan Fiture penambahan Music serta Video akan menjadikan nya lebih hidup dan Lengkap.


Langkah Install. [ Apabila di anggap VIRUS, Di INGORE SAJA , Saya Test Normal ]

  1. install AURORA Presentasi 3D 
  2. MATIKAN ANTI VIRUS, lalu jalankan KEYGEN ( yang jelas ini bukan virus.. saya sudah tested)
  3. Pilih sesuai VErsi AURORA, lalu klik PATCH, lalu GENERATE
  4. isikan nama dan serial number ke register AURORA 3D TEXT LOGO MAKER

Turbo Pascal 7.1

02.24  Unknown  1 comment
Mulai dari Turbo Pascal versi 1.0 sampai dengan 5.0, Borland (pembuat Turbo Pascal) merupakan pencetus kompiler kecepatan tinggi di komputer mikro. Tidak cukup sampai disini, Turbo Pascal 7.0 merupakan hasil dari pengembangan Turbo Pascal sebelumnya dengan revolusi yang cukup drastis. Banyak pemakai pascal terkejut dan sekaligus kagum dengan kecepatan (baik kecepatan kompilasi maupun kecepatan penerjaan program) dan fasilitas-fasilitas di Turbo Pascal 7.0. Turbo Pascal 7.0. mampu mengkompilasisebanyak +- 27000 baris per-menit dan langsung didapatkan hasil excutable program, tanpa lewat proseslinkage lagi dan yang lebih mengagumkan lagiadalah hasil dari excutable program (dengan extention .EXE) dapat menjadi sangat kecil.

Download Here

Daemon Tools Full Crack

02.12  Unknown  1 comment

Bagi sobat yang suka download game dengan ukuran besar, tentu sudah sering menemukan file yang ber-ekstensi .iso bukan? File .iso adalah salah satu bentuk file image. Nah, untuk membuka file image tersebut diperlukan sebuah software Virtual Device, seperti Daemon Tools. Tidak hanya dapat membuka file image saja, namun software Daemon Tools ini juga mampu men-convert file image ke ekstensi lainnya, membuat file image, dan memproteksi file image dengan password. Pada versi terbaru ini, Daemon Tools sudah support dengan Windows 8.1, beberapa bug sudah diperbaiki, dan SPTD versi 1.86.


Download Here

Rabu, 21 Mei 2014

Power ISO

22.49  Unknown  1 comment

PowerISO adalah sebuah software yang dapat kita gunakan untuk membuka file Image atau sebagai Virtual Device seperti ISO, DAA,BIN, CUE, NRG, IMG, MDF, MDS, BWI, B5I, CDI, PDI, NCD, C2D, CIF, dan lain-lain. Selain dapat membuka file Image, sobat juga dapat membuat, mengedit, dan split file Image dengan software PowerISO ini. Tidak hanya itu, sobat pun juga dapat mem-burning file Image tersebut ke dalam CD atau DVD. Kali ini, saya akan membagikan versi terbaru dari software ini


Kode Wi-fi Speedy Instan (SPIN)

22.05  Unknown  1 comment
Speedy



username : 89302477648
password : 97291477694635

username : 89302477623
password : 78279446463817

username : 89302477624
password : 53168786956656

Username : 89302024051
Password : 75506146029436

Username : 89302024052
Password: 15881732328643

Username: 89302024053
Password : 87280686935224

Username : 89302024054
Password : 92399352005445

Username : 89302024059
Password : 93613297527468

Username : 89302024057
Password : 10018272780846

Username : 89302024060
Password : 22761962376817
Langganan: Komentar (Atom)