Materi Kuis Sistem Integrasi
Ridwan einsTeIn
download cepat disin baru kalian pelajari download
Category:
0
komentar
Materi Mid
Ridwan einsTeIn
Materi Mid sistem terintegrasi, silahkan download disini !!
Materi Mid Keamanan Web silahkan download disini !!
Materi Mid Keamanan Web silahkan download disini !!
Category:
0
komentar
materi jarkom ppt
Ridwan einsTeIn
bagi tman2 yg ingin mendapatkan materi jarkom dalam bentuk power point atau dalam format d windows silahkan download disini >>!!!
Category:
0
komentar
Materi jarkom
Ridwan einsTeIn
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 !!!!!!!!
By Ketua kelas yang baik hati dan tidak sombong...!!!!!!!!!!! suka lagi menabung !!!!!!!!
Category:
0
komentar
Mikroprocessor
Ridwan einsTeIn
Bagi teman2 yg mw liat tugas besar mikro silahkan download di link ini
Category:
0
komentar
TUGAS ADS
Ridwan einsTeIn
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
Klik disini for download
Fuckk YOUUUUUUUUUUU
Category:
tugas
0
komentar
contoh program pascal
Ridwan einsTeIn
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.
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)
Ridwan einsTeIn
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
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:
pascal
0
komentar
Contoh Tugas Analisis and Desain System
Ridwan einsTeIn
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)
Ridwan einsTeIn
#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;
}
}
}
#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
Langganan:
Postingan (Atom)