Ridwan Einstein Blog

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

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 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

Pengembangan Sistem : Enam Fase Analisis dan Desain Sistem

#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;
}
  }
}