Deret Fibbonaci

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.

Read More

Program Biodata

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.

Read More

Pengurangan Matriks

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

Read More

Penjumlahan Matriks

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

Read More

Contoh Program Looping Menggunakan For to do

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

Read More

Openwave V7 simulator

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.

Download Here

Read More

XAMPP For Windows

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

Read More