Laman

Categories

My Class

I studied at Gunadarma University - Informatics Engineering

Buka APPWORLD Tanpa Full Service

I studied at Gunadarma University - Informatics Engineering

Contoh CV dalam Bahasa Inggris

I studied at Gunadarma University - Informatics Engineering

Cara Membuat Makro Excel

I studied at Gunadarma University - Informatics Engineering

Daftar Klasemen Terbaru

I studied at Gunadarma University - Informatics Engineering

Selasa, 22 Januari 2013

Program Postfix ke Infix pada Delphi 7


Ini adalah tampilan programnya.

Program ini juga dilengkapi dengan music player buatan sendiri.

ketika program sudah di download.. Extract file RAR ke drive D (D:), jika bukan di D maka program tidak akan berjalan optimal. :D

Untuk yang ingin mendownload program ini : http://www.4shared.com/rar/y2cweRma/Yongki_Mayongga.html

Pass : www.yongkimayongga.blogspot.com 


Program Penggunaan Database Pada Bahasa C

#include <stdio.h>

#include <conio.h>

#include <stdlib.h>

int main()

{ int N;

FILE *ABC;

FILE *frs;

printf("\t|=============================================|\n");

printf("\t| 1. Menghitung Akar Dari Suatu Bilangan |\n");

printf("\t| 2. Menghitung Faktor Pesekutuan Terbesar |\n");

printf("\t| 3. Menghitung Pesekutuan Kelipatan Terkecil |\n");

printf("\t| 4. Program Pemesanan Pembelian Rumah |\n");

printf("\t|=============================================|\n");

printf("\n Masukkan Pilihan : ");

scanf(" %i", &N);

printf("\n");




if (N==1)

{ int z;

ABC = fopen("yyy.txt","a+");

printf(" Masukkan Angka : ");

scanf("%i", &z);

printf(" Akar Bilangan Ini Adalah : ");

printf(" %f\n\n", sqrt(z));

fprintf(ABC," Akar Bilangan Ini Adalah : ");

fprintf(ABC," %f\n\n", sqrt(z));

fclose (ABC);

getch();

}




if (N==2)

{ int N1,N2,x,Sisa;

ABC = fopen("yyy.txt","w+");

printf(" Masukkan 2 Bilangan Yang Ingin Diketahui FPB-nya : ");

printf(" \n Bilangan Pertama : ");scanf(" %i", &N1);

printf(" Bilangan Kedua : ");scanf(" %i", &N2);

if(N1<N2)

{ x = N1; N1=N2; N2=x; }

while(N2 !=0 )

{ Sisa = N1%N2;

N1=N2;

N2=Sisa;

}

printf(" \n Jadi Faktor Persekutuan Terbesar(FPB) \n");

printf(" dari kedua bilangan tersebut adalah : \n");

printf(" %i\n",N1);

fprintf(ABC," \n Jadi Faktor Persekutuan Terbesar(FPB) \n");

fprintf(ABC," dari kedua bilangan tersebut adalah : \n");

fprintf(ABC," %i\n",N1);

fclose (ABC);

getch();

}




if (N==3)

{ int N1,N2,x,y;

ABC = fopen("yyy.txt","w+");

printf(" Masukkan 2 Bilangan Yang Ingin Diketahui KPK-nya : ");

printf(" \n Bilangan Pertama : ");scanf(" %i", &N1);

printf(" Bilangan Kedua : ");scanf(" %i", &N2);

x=N1; y=N2;

while(x != y)

{ if (x < y)

x = x + N1;

else

y = y + N2;

}

printf(" \n Jadi Pesekutuan Kelipatan Terkecil \n");

printf(" dari kedua bilangan tersebut adalah : \n");

printf(" %i\n",x);

fprintf(ABC," \n Jadi Pesekutuan Kelipatan Terkecil \n");

fprintf(ABC," dari kedua bilangan tersebut adalah : \n");

fprintf(ABC," %i\n",x);

fclose (ABC);

getch();

}




if (N == 4)

{

char namadpn[10],namablk[12], kota[20];

int nmr[20];

int rumah;

long int total;

char lagi;

int kelas1=4, kelas2=3, kelas3=2;

int hari;

char setuju;







system("cls");

printf("=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=\n");

printf("=+ Program Pemesanan Pembelian Rumah +=\n");

printf("=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=\n");

printf("\n\nMasukkan Identitas Anda \n");

printf("\nNama Depan : ");

scanf("%s",&namadpn);

printf("Nama Belakang : ");

scanf("%s",&namablk);

printf("Nomor Telepon : ");

scanf("%d",&nmr);

printf("Kota : ");

scanf("%s",&kota);

printf("Tekan Tombol Apa Saja Untuk Melanjutkan..... ");

getch();




system("cls");




printf("\n\n");

printf("\n>>Pemesanan Rumah\n");

printf("Anda ingin memesan kamar : \n");

printf("\n1. Rumah 1200 meter persegi \n2. Rumah 600 meter persegi\n3. Rumah 300 meter persegi\n\n");

printf("Masukkan pilihan Anda : ");

rumah = getch();




switch (rumah)

{

case '1':

printf("\nAnda telah memilih Rumah 1200 meter persegi\n");

printf("Harga jual rumah Rp 140.000.000,00 \n");

printf("Apakah Anda setuju? (Y/N) :");

scanf("%s",&setuju);

switch (setuju)

{

case 'Y':

frs = fopen("yyy.txt","a+");

printf("\nBiaya Surat - Surat Tanah : 1.000.000 \n");

total=141000000;

printf("\nTotal Biaya Yang harus dibayar : %d juta",total);

fprintf(frs,"\nAnda telah memilih Rumah kelas 1\n Dengan Luas 1200 meter persegi \ndengan biaya %d juta rupiah\n",total);

fclose (frs);

getch();

return 0;

break;




case 'N':

printf("Terima Kasih Atas Kunjungan Anda ");

printf("\n\n");

break;

};

break;




case '2':

printf("\nAnda telah memilih Rumah 600 meter persegi\n");

printf("Harga jual rumah Rp 70.000.000,00 \n");

printf("Apakah Anda setuju? (Y/N) :");

scanf("%s",&setuju);

switch (setuju)

{

case 'Y':

frs = fopen("yyy.txt","a+");

printf("\nBiaya Surat - Surat Tanah : 800.000 \n");

total=70800000;

printf("\nTotal Biaya Yang harus dibayar : %d juta",total);

fprintf(frs,"\nAnda telah memilih Rumah kelas 1\n Dengan Luas 600 meter persegi \ndengan biaya %d juta rupiah\n",total);

fclose (frs);

getch();

return 0;

break;




case 'N':

printf("Terima Kasih Atas Kunjungan Anda ");

printf("\n\n");

break;

};

break;




case '3':

printf("\nAnda telah memilih Rumah 300 meter persegi\n");

printf("Harga jual rumah Rp 35.000.000,00 \n");

printf("Apakah Anda setuju? (Y/N) :");

scanf("%s",&setuju);

switch (setuju)

{

case 'Y':

frs = fopen("yyy.txt","a+");

printf("\nBiaya Surat - Surat Tanah : 700.000 \n");

total=35700000;

printf("\nTotal Biaya Yang harus dibayar : %d juta",total);

fprintf(frs,"\nAnda telah memilih Rumah kelas 1\n Dengan Luas 300 meter persegi \ndengan biaya %d juta rupiah\n",total);

fclose (frs);

getch();

return 0;

break;




case 'N':

printf("Terima Kasih Atas Kunjungan Anda ");

printf("\n\n");

break;

};

break;




}

printf("\n\n");

getch();

}

}


Berikut tampilan Output programnya :


^^