English French German Spain Italian Dutch Russian Portuguese Japanese Korean Arabic Chinese Simplified

Kamis, 16 Juni 2011

tugas k.progrm

Bahan Praktek File Pada C/C++

#include <iostream.h>
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <conio.h>
#include <string.h>

struct dataproduk{
char kode[5] ;
char nama[20] ;
long harga ;
} recproduk[10] ;
void main() {
FILE     *coba ;
char    gj[10] ;
float    atof() ;
int     i, n = 0 ;
char lagi ;
do {
clrscr() ;
gotoxy (35, 5) ; cout << “MEMASUKKAN DATA PRODUK” ;
gotoxy (35, 6) ; cout << “————————————”;
gotoxy (35, 10); cout << “————————————”;
gotoxy (35, 7) ; cout << “Kode Produk  : “;
gets(recproduk[n].kode) ;
gotoxy (35, 8) ; cout << “Nama Produk    : “;
gets(recproduk[n].nama) ;
gotoxy (35, 9) ; cout << “Harga          : “;
cin  >> recproduk[n].harga ;
gotoxy (35, 11) ; cout << “Input Data Lagi [Y/T] : “;
cin  >> lagi ;
n++ ;
}while(lagi==’Y’ || lagi==’y') ;
coba = fopen(“c:\\Produk.Dat”, “wb”) ;
for ( i=0 ; i <n  ; ++i ) {
fwrite(&recproduk[i], sizeof(recproduk[i]),1,coba) ;
}
fclose(coba) ;
gotoxy (10, 24) ; cout << “Thanks For User This Program”;
}
Jika program tersebut di jalankan maka akan menampilkan hasil seperti berikut ini :
Bagaimana bentuk data yang tersimpan di dalam file Produk.Dat, perhatikan gambar di bawah ini :

Emosi adalah "cobaan"

Berawal dari emosi.....orang bisa lupa diri yang tadinya baik jadi benar-benar jahat.....
kenapa bisa seperti itu...????
mungkin orang-orang biologi lah yang lebih tahu.....
tapi menurut yang saya alami.....emosi adalah cobaan yang benar-benar sangat sulit....bila kita tidak mampu mengendalikannya,bahkan itu bisa membuat kita drop out....seketika...,,"
mungkin solusi terbaiknya adalah dengan mendekatkan diri kepada tuhan......
melakukan hal-hal yang ber bau agama.....dan terus meningkatkan kesabaran kita....
karena "emosi bisa menimbulkan tindak kriminal".......!

Jumat, 10 Juni 2011

sukses itu sakit....

jalan menuju kesuksesan yang sebenarny sangat menyakitkan.
yang mana kita harus selalu banyak sabar dan berusaha.