Lomba Blog

LOMBA BLOG DPTALK

Pengikut

Labels

Pages

Statistik Blog

Widgets for Blogger

Statistik

Ayat Alquran

Calender

Bagamana pendapat anda mengenai blog ini,,>>>

support

top 100 gadget blog Top 100 Gadget Blogs Free Automatic Backlink

Materi Kuis Sistem Integrasi

download cepat disin baru kalian pelajari  download
Category: 0 komentar

Materi Mid

Materi Mid  sistem terintegrasi, silahkan download disini !!

Materi Mid Keamanan Web silahkan download disini !!
Category: 0 komentar

SMANSARIO: SMANSARIO SEKOLAH MODEL SKM-PBKL-PSB 2010

SMANSARIO: SMANSARIO SEKOLAH MODEL SKM-PBKL-PSB 2010
Category: 0 komentar

materi jarkom ppt

bagi tman2 yg ingin mendapatkan materi jarkom dalam bentuk power point atau dalam format d windows silahkan download disini >>!!!
Category: 0 komentar

Materi jarkom

Hai sobat - sobat ku yg genit dan imut2...!!!! bagi yg malas kopy materi sama dosen silahkan download disini

By Ketua kelas yang baik hati dan tidak sombong...!!!!!!!!!!! suka lagi menabung !!!!!!!!
Category: 0 komentar

Mikroprocessor

Bagi teman2 yg mw liat tugas besar mikro silahkan download di link ini
Category: 0 komentar

TUGAS ADS

Haii broo... bagi yang ingin melihat contohh tugas adsku yang salah dan amburadul.. bisa kalian download disini atau kopy langsung bzk di laptopku,, up to yuuu ,,!!!

Klik disini for download

Fuckk YOUUUUUUUUUUU
Category: 0 komentar

contoh program pascal

program rumah;
uses crt;
var t,k:longint;
    r,j:char;
procedure pl;
          begin
               repeat
                     clrscr;
                     write('Tipe Rumah  [A/B/C/D]  = ');readln(r);
               until r in ['A','a','B','b','C','c','D','d'];
               write('Kode Pembayaran = ');writeln(' T= TUNAI  K= KREDIT');
               repeat
                     gotoxy(1,5);write('Input Kode Pembayaran  = ');gotoxy(28,5);readln(j);
               until j in ['t','T','k','K'];
          end;
procedure rmh(a,b:longint);
          begin
               if (r='A')or(r='a') then
               begin
                    a:=50000000;
                    b:=500000;
               end
               else if (r='B')or(r='b') then
               begin
                    a:=75000000;
                    b:=750000;
               end
               else if (r='C')or(r='c') then
               begin
                    a:=85000000;
                    b:=850000;
               end
               else if (r='D')or(r='d') then
               begin
                    a:=100000000;
                    b:=1000000;
               end;

               if (j='T')or(j='t') then
                  writeln('Harga Rumah Tipe ',r,' : Rp.',a)
               else if (j='k')or(j='K') then
                  writeln('Angsuran Kredit Rumah Tipe ',r,' Per Bulan Rp.',b);
          end;
begin
    clrscr;
    pl;writeln;
    rmh(t,k);
    readln;
end.
Category: 0 komentar

Contoh program pascal (mencarri nilai mahasiswa)

uses crt;
var nm:string[25];
    tgs,mid,f,na:real;
    tan,nim:char;
    jml,a,b,c,d,e:byte;
begin
     clrscr;
     gotoxy(20,1);writeln('Menghitung nilai Akhir');
     write('Input No.Pokok : ');readln(nim);
     a:=0;b:=0;c:=0;d:=0;e:=0;
     jml:=0;
     nim:=nim;
     while (nim= nim)and(nim <> 'x')and(nim <> 'X') do
       begin
Category: 0 komentar

Contoh Tugas Analisis and Desain System

Pengembangan Sistem : Enam Fase Analisis dan Desain Sistem
*Apa saja fase siklus hidup pengembangan system?
Tidak semua kesalahan sama besarnya. Tingkat kesalahan computer bisa beragam dari kecil hingga yang paling menyedihkan. Contoh ini menunjukkan betapa pentingnya perencanaan, khususnya ketika organisasi mencoba meluncurkan system baru. Cara terbaik untuk menghindari kesalahan tertentu adalah dengan menerapkan analisis dan desain system.
Category: 0 komentar

Listing progam Linked List (penyewaan MObil)

#include "iostream.h"
#include "stdio.h"
#include "conio.h"

struct data_penyewa
{
  char NAMA[30],tujuan[10],jns_penyewaan;
  int jenis_mobil,lama;
  long biaya;
}DATA;
struct SIMPUL
{
  data_penyewa ISI;
  SIMPUL *NEXT;
}*KEPALA, *PENUNJUK, *TEMP;

void sisip_awal();
void sisip_akhir();

void main()
{ char lagi='y';
  KEPALA=NULL;
  while (lagi=='y'||lagi=='Y')
  { TEMP=new SIMPUL;
cout<<"Jenis Penyewaan mobil "<<endl;
cout<<" 1. avansa & xenia 200 ribu perhari, 20 ribu perjam"<<endl;
cout<<" 2. Kijang & Panter 300 ribu perhari, 30 ribu perjam "<<endl;
cout<<" 3. Sedan 400 ribu perhari, 40 ribu perjam "<<endl;

cout<<"Masukkan data Penyewa :\n";
cout<<"Nama \t: ";cin>>DATA.NAMA;
cout<<"Jenis Mobil [1/2/3]\t: ";cin>>DATA.jenis_mobil;
cout<<"Jenis penyewaan [hari/jam] \t: ";cin>>DATA.jns_penyewaan;
cout<<"Lama penyewaan \t: ";cin>>DATA.lama;
cout<<"Tujuan [kota\daerah] \t:";cin>.DATA.tujuan;
long tambahan;
if (DATA.jenis_mobil==1)
{
if ((strcmp(DATA.jns_penyewaan,"hari")=0)&&(strcmp(DATA.tujuan,"daerah")=0))
{
 tambahan=0.1*(DATA.lama*200000);
 DATA.biaya=tambahan+(DATA.lama*200000);
}
else
DATA.biaya=DATA.lama*20000;
}
else if (DATA.jenis_mobil==2)
{
 if ((strcmp(DATA.jns_penyewaan,"hari")=0)&&(strcmp(DATA.tujua,"dareah")=0))
{
 tambahan=0.1*(DATA.lama*300000);
 DATA.biaya=tambahan+(DATA.lama*300000);
}
else
DATA.biaya=DATA.lama*30000;
}
 else if (DATA.jenis_mobil==3)
 {
 if ((strcmp(DATA.jns_penyewaan,"hari")=0)&&(strcmp(DATA.tujua,"dareah")=0))
{
 tambahan=0.1*(DATA.lama*400000);
 DATA.biaya=tambahan+(DATA.lama*400000);
}
else
DATA.biaya=DATA.lama*40000;
}
 else
 cout<<"MAAF ANDA SALAH INPUT ";

TEMP->ISI=DATA;
if (KEPALA==NULL)
sisip_awal();
else
{  PENUNJUK=KEPALA;
if (TEMP->ISI.NILAI>PENUNJUK->ISI.NILAI)
sisip_awal();
else
sisip_akhir();

}
cout<<"Masih Ada Data [y/t]?? ";cin>>lagi;
  }
cetak();
}
void sisip_awal()
{ struct SIMPUL *p;
  p=new SIMPUL;
  p=TEMP;
  if (KEPALA!=NULL)
  { p->NEXT=KEPALA;
KEPALA=p;}
  else
  { p->NEXT=NULL;
KEPALA=p;}
}

}
void sisip_akhir()
{ struct SIMPUL *p;
  p=new SIMPUL;
  p=TEMP;
  if (KEPALA!=NULL)
  { p->NEXT=NULL;
KEPALA->NEXT=p;}
}
void cetak()
{ struct SIMPUL *p;
  if (KEPALA!=NULL)
  { p=KEPALA;
while (p!=NULL)
{ cout<<"\nNama \t: "<<p->ISI.NAMA;
cout<<"\njenis mobil \t: "<<p->ISI.jenis_mobil;
cout<<"\njenis penyewaan \t: "<<p->ISI.jns_penyewaan;
cout<<"\nbiaya penyewaan \t :"<<p->ISI.biaya;
p=p->NEXT;
}
  }
}
Category: 0 komentar

sms gratis

bola cinta

search

Blog List

Entri Populer

atau pilih code animasi berikut;