Tanda-tanda akhir zaman

kini tanda-tanda akhir zaman telah nyata banyak terjadi kejadian yang mengarah kearah akhir zaman, salah satunya gempa bumi yang sering terjadi di indonesia, kita melihat terjadi gempa bumi diindonesia silih berganti bahkan gempa bumi tersebut adalah sebagi tanda-tanda yang begitu nyata sebagai peringatan dari Tuhan supaya umat manusia bisa bertobat dan supaya manusia diberi kesempatan sama Tuhan untuk beribadah dengan sungguh-sungguh kepadanya

jika kita mendengar kata akhir zaman mungkin kengerian dalam hidup kita semua pasti ada karena banyak orang bepikir setelah dunia ini ga ada telah hancur

film binatang yang bikin hidup saya lebih semangat lagi

saya akan menceritakan pengalaman saya ketika saya menonton film kartun yang bikin saya lebih baik lagi, selain fim kartun tersebut lucu namun dibalik kelucuan tersebut mengandung sebuah cerita yang membuat saya ingin lebih baik lagi dari pada sekarang yang saya hadapi.

sebelum saya menceritakan pengalaman saya tentang judul happy feet kalau ga salah . binatang apa sih yang membuat saya ingin menceritakan film tersebut ini gambar binatang tersebut.

saya ingin menceritakan film ini sesuai dengan pengetahuan saya saja........dalam film yang mambahas tentang sekelompok binatang pinguin yang mana di dalam kelompok pinguin tersebut memiliki kekeluargaan yang erat dan mereka saling bantu membantu satu sama lain.

pada awalnya cerita happy feet tersebut menceritakan sekelompok binatang pinguin yang mana dalam kelompok tersebut yang jumlah besar dan mereka tingal di kutub............awalnya pinguin ini hidup dengan damai dan tidak ada lagi pertengkaran dan mereka tidak kekurangan makanan dalam wilayah mereka namun sekian lama pinguin tersebut semakin banyak dan semakin banyak jumlah mereka dan di dalam sekelompok pinguin pada saat musim kawin dan mereka bertelur dan semua binatang pinguin betina saat itu betelur semua dan beberapa hari kemudian telur-telur pinguin tersebut menetas. namun dari ribuan telur pinguin ada satu telur yang pada saat itu tidak menetas dan sang indk tersebut harus menunggu beberapa hari kemudian barulah telur pingun tersebut menetas, setelah menetas pinguin yang menetas terakhir di antara beribu-ribu telur penguin memiliki perbedaan di antara pinguin2 lain.

setalah beberapa minggu anak pinguin yang memiliki perpedaan tersebut di antara temannya piguin tersebut suka melompat2kan kakinya di atas kumpulan es sehingga pinguin lain menyebutnya si tukang pelompat, dan dalam keluarga pinguin lain pinguin yang suka melompta2 tersebut setiap hari sering di kucilkan dari teman2nya yang lain .

setelah beranjak dewasa pinguin yang berbeda tersebut mendapatkan tugas pertamanya bersama pinguin yang lain, akan tetapi mereka tidak mendapatkan hasi tangkapan ikan yang begitu banyak karena ikan di daerah mereka sudah tidak banyak lagi..........karena sudah tidak banyak lagi ikan yang di tangkap seklompok pinguin lain menyalahkan pinguin yang suka melompat2 dan pinguin lain mengangap sang pelompat tersebut yang menyebabkan ikan2 didaerah mereka habis.dan selang waktu pinguin yang memiliki perpedaan tersebut di usir dari kelompoknya

walaupun pinguin yang memiliki perbedaan tersebut telah di usir dari kelompoknya pinguin terebut dia tidak lansung putus asa malahan pinguin yang di usir mencari tahu penyebab jarannganya ikan didaerah tenpat tingal mereka setelah menyelidiki beberapa lama pinguin tersebut menjalankan rencananya untuk mencari tahu apa yang telah terjadi dengan lautan yang mereka tingalin.......dengan penuh semangat pinguin tersebut mencari tahu apa yang telah terjadi dengan laut mereka dan apa yang menyebabkan para ikan tidak ada di daerah pinguin tersebut .........singkat cerita pinguin tersebut akhirnya dia menemukan penyebab terjadinya kelangkaan ikan .......kelangkaan ikan disebabkan pada saat itu tingah laku manusia yang menangkap ikan di laut dengan besar2an dan tidak menyisakan ikan di lautan. setelah pinguin tesebut mengikuti penagkap ikan dengan penuh harapan agar ikan2 hasil tangkapan ikan supaya di lepaskan namun bukannya hasil baik yang di dapatkan pinguin tersebut malahan pinguin tersebut karena beranang jauh meningalkan kelompoknya akhirnya pinguin tersebut terdapar di tepi pantai dan di temukan di pingirl laut dan pinguin tersebut di bawa ke kebun binatang khusus memlihara pinguin.

dalam keputus asaan pinguin tersebut baru pertama kali melihat orang asing dalam hidupnya dan begitu banyak orang asing yang ada di hadapannya, pinguin tersebut terus berteiak2 sampai suara pinguin tersebut habis karena orang asing bagi pinguin tersebut adalah manusia jadi walupun pinguin tersebut teriak2 manusia tidak bisa mengerti bahasa pinguin. dalam keputus asaan pinguin akhirnya pinguin tersebut mempunyai akal bagaimana caranya dia bisa membitahukan bahasa pinguin ke manusia karena pingin tersebut berbeda dengan pinguin lainya ........dan pinguin tersebut beraksi dengan beergoyang2 terus dan singkat cerita pinguin tersebut berhasil membuat penonton yang berkunjung terpana melihat goyangan pinguin singkat cerita pinguin tersebut setalh berhasil manarik penonton akhirnya pinguin tersebut di lepaskan dan di taruh kembali ke klompoknya.......setalah pinguin tersebut kembali kekelompoknya pinguin tersebut bercerita ama semua pinguin tersebut melihat orang asing selama pinguin tersebut pergi ..........................dan setelah beberapa saat pinguin tersebut kembali kekelompoknya datanglah manusia untuk melihat pinguin dan setelah orang tersebut datang untuk melihat pinguin , dan pinguin yang tersisih tersebut mengajak seluruh kelompok untuk bergoyang menghibur orang yang datang di kelompok tersebut. dan orang yang datang tersbut membawa kamera dan menganmbil gambar pinguin sedang bergoyang .......setelah ornag tersebut mengambil gambar pinguin yang sedang bergoyang dan lalu di beritakan di tv di seluruh dunia dan seluruh dunia lansung merespon bahwa mereka selam ini salah karena telah menjarah ikan sebanyak2nya dan akhirnya pemerintah sekuluruh dunia saat itu di larang menagkap ikan dengan jaring dan kapal besar demi kelanungan hidup pinguin dan setelah berita tersebut tiidak ada penangkapan ikan besar2an maka kelompok pinguin kembali bisa menikmati ikan di sekitar mereka dan usaha pinguin yang tersisih dari kelompoknya berhasil

begitu cerita tentang pinguin apa aja sih yang membuat saya berubah

1. saya malu kepada pinguin yang tersisih dari keluarganya walupun dia tersisih dan di pencomooh namun dia yang menyelamatkan kelompoknya

2. keuletan pinguin tersbut sehingga dia berhasil

3. kasih sayang kepada keluarganya walupun keluarganya membecinya

sebagai manusia ciptaan Tuhan seharusnya kita malu kepada pinguin tersebut karena kita di berikan Tuhan akal dan pikiran yang baik bukannya kita mengunakan dengan baik malah sering mengunakan dengan tidak baik

jika ada yang membaca cerita ini mohon maaf jika kata2 saya banyak yang berantakan maklum saya baru ingin belajar menulis

jawaban bahasa pemograman pas uts c++

#include
#include

void input_matrik(int matriks[3][4])
{
int baris,kolom;
float total=0;

printf(" uts pemograman tersetruktur\n");
printf(" wiji Hadi Prasetio \n");
printf(" Masukkan Isi Matriks 3 x 4\n");
printf("---------------------------\n");

for (baris=0;baris<3;baris++)
for (kolom=0;kolom<4;kolom++)

{
printf("Matrik [%d][%d] = ",baris,kolom);
scanf("%d",&matriks[baris][kolom]);
total += matriks[baris][kolom];
}
printf("Jumlah elemen matriks 1 adalah : %f\n", total);
}

void output_matrik(int matriks[3][4])
{
int baris,kolom;
/*printf("\nMatriks yang Anda Masukkan = \n");*/
for (baris=0;baris<3;baris++)
{
for (kolom=0;kolom<4;kolom++)
printf("%d ",matriks[baris][kolom]);
printf("\n");
}
}

void output_matrik4(float matriks[3][4])
{
int baris,kolom;
/*printf("\nMatriks yang Anda Masukkan = \n");*/
for (baris=0;baris<3;baris++)
{
for (kolom=0;kolom<4;kolom++)
printf("%f ",matriks[baris][kolom]);
printf("\n");
}
}

void jumlah_matriks(int matriks_1[3][4],int matriks_2[3][4],int matriks_3[3][4])
{
int baris,kolom;

for (baris=0;baris<3;baris++)
for (kolom=0;kolom<4;kolom++)
matriks_3[baris][kolom]=matriks_1[baris][kolom]+matriks_2[baris][kolom];
}

void kurang_matriks(int matriks_1[3][4],int matriks_2[3][4],int matriks_3[3][4])
{
int baris,kolom;

for (baris=0;baris<3;baris++)
for (kolom=0;kolom<4;kolom++)
matriks_3[baris][kolom]=matriks_1[baris][kolom]-matriks_2[baris][kolom];
}

void kali_matriks(int matriks_1[3][4],int matriks_2[3][4],int matriks_3[3][4])
{
int baris,kolom;

for (baris=0;baris<3;baris++)
for (kolom=0;kolom<4;kolom++)
matriks_3[baris][kolom]=matriks_1[baris][kolom]*matriks_2[baris][kolom];
}

void bagi_matriks(int matriks_1[3][4],int matriks_2[3][4],float matriks_4[3][4])
{
int baris,kolom;

for (baris=0;baris<3;baris++)
for (kolom=0;kolom<4;kolom++)
matriks_4[baris][kolom]=(float) matriks_1[baris][kolom]/matriks_2[baris][kolom];
}

void main (void)
{
int matriks_1[3][4];
int matriks_2[3][4];
int matriks_3[3][4];
float matriks_4[3][4];
int pilihan;
int selesai;
float total=0;

input_matrik(matriks_1);
printf("\nMatriks 1 : \n");
output_matrik(matriks_1);

input_matrik(matriks_2);
printf("\nMatriks 2 : \n");
output_matrik(matriks_2);

selesai=0;
while (selesai==0)
{
printf ("--------------------------\n");
printf (" menu pilihan :\n");
printf ("---------------------------\n");
printf ("1.Penjumlahan \n");
printf ("2.Pengurangan \n");
printf ("3.Perkalian \n");
printf ("4.Pembagian \n");
printf ("5.Selesai \n");

scanf("%d",&pilihan);

if (pilihan == 1)
{
jumlah_matriks(matriks_1,matriks_2,matriks_3);
printf("\n Matriks 1 + Matriks 2 = \n");
output_matrik(matriks_3);
}
else

if (pilihan == 2)
{
kurang_matriks(matriks_1,matriks_2,matriks_3);
printf("\n Matriks 1 - Matriks 2 = \n");
output_matrik(matriks_3);
}
else

if (pilihan == 3)
{
kali_matriks(matriks_1,matriks_2,matriks_3);
printf("\n Matriks 1 * Matriks 2 = \n");
output_matrik(matriks_3);
}
else

if (pilihan == 4)
{
bagi_matriks(matriks_1,matriks_2,matriks_4);
printf("\n Matriks 1 / Matriks 2 = \n");
output_matrik4(matriks_4);
}
else
selesai = 1;
}
}

jawban di atas dengan soal buatlah parameter 3 X 4 dengan mengunakan bahas pemgraman C++ serta jumlah didalamnya ada tambah, kurang,bagi dan pada saat conflie adamenu untuk menu pilihan tambah,kurang,kali,bagi

HIDUP DALAM KETIDAK PASTIAN

pernahkan kalian merasakan tidak pernah merasakan kepastian dalam hidup, atau apakah kita sudah memiliki hidup yang sudah dengan tujuan yang jelas dan mencapai kesukseskan yang kita ingikan.......................

peranan orang tua terhadap anak-anak

semua manusia pasti punya keluarga, jika kita mempunyai keluarga yang rukun, bahagia , tentaran pasti kita akan senang dan betah tingal di rumah, saya akan cerita sedikit dengan pengalaman saya dalam keluarga saya, saya dari kecil di besarkan oleh keluarga kristen yang sangat bahagia, ga ada pertengkaran, peranan kedua orang tua saya dalam mendidik saya dan adik2 saya sangat bagus bagi saya mereka mengajarkan kepada anak2nya untuk bagun pagi, belajar menghormati orang yang lebih tua, ga boleh berkelahi pokoknya semua didikan ortu saya saya awalnya adalah seorang anak yang rajin belajar dari kelas TK,sampai SD saya adalah yang rajin belajar itu semua ga luput sari perhatian ortu saya yang perhatian dan sayang ama saya saya dulu masih SD sangat senang tingal di rumah ya walupun Rumah kami dulu sangat kecil maklum Rumah Tranmigarsi tapi aq sangat senang memliki rumah yang kecil itu dan sangat senang dengan keluarga saya.


akan tetapi ketika saya masuk kelas 2 SLTP keluarga saya jadi berantakan ortu saya yang saya banga-bangakan sekarang dah ga ada lagi mereka sering ribut ga tahu apa yang jadi pokok persoalanya walupun kedua orang tua saya bertengkar waktunya di tengah malam supaya kami para anak2 ga tahu pertengkaran mereka akan tetapi saya ada lah orang yang paling dewasa di antara kedua saudara saya, ketika saya sering mendengar mereka bertengakr sifat saya jadi berubah yang tadinya ank rajin belajar sekarang dah ga pernah lagi karena melihat kedua orang tua saya sering bertengkar, bahkan saya pernah ga tidur di rumah selama satu tahun saya ga pernah tidur di rumah saya sendiri ya walaupun saya pagi2 pulang, tetapi saya pulang kerumah hanya numpang makan dan numpang ganti baju saja begitu selama satu tahun dan saya jarang banget melihat kedua orang tua saya nah selama saya satu tahun ga pernah tidur di rumah saya jadi anak yang bodoh dan jadi anak yang nakal akan tetapi nakal saya ga sampai merokok dan ikut minum2 namun kenakalan saya hanya sering mencuri tanaman orang, nah karena saya berlebihan kecewa terhadap orang tua saya, saya dulu pernah bilang pada diri sendiri bahwa saya ga pernah akan menikah, bagi saya pernikahan itu ga ada gunanya pernikahan itu hanya bikin rasa sakit hati, pernikahan itu hanya menimbulkan pertengkaran dan aq berpikir begitu selama saya melihat ortu saya bertengkar, dan saya mengalamin kekecewaan terhqadap orang tua bagi saya lumayan cukup lama kira-kira 3-4 tahun saya mengalamin kebencian terhadap ortu saya, akan tetapi ketika saya meneruskan masuk SMU sekitar kelas 3 saya baru bisa menerima ortu saya akan tetapi untuk menerima seorang wanita untuk jadiin pacar aq ga mau karena masih trauma dengan keadaan ortu saya.
ketika saya sudah menerima kedua orang tua saya lagi ketika saya kelas 3 SMU ketika itu saya mau menghadapin UAN saya harus di hadapin kenyataan yang begitu pahit kedua ortu saya bertengkar lagi ketika itu saya ,ya walupn ga begitu parah namun membuat saya walupun saya berusaha belajar untuk sekolah tapi pertengkaran ortu masih terasa terdengar di telinga saya, namun akhirnya saya dapat menyelesaikan skul juga, setalah saya selesai skul saya, saya lansung di pangil kerja dikota kembang yaitu kota BANDUNG.
Nah setelah saya kerja di kota bandung saya sangat senang karena saya berkumpul dengan teman2 sekerja yang baik2, yang ramah, pokoknya kebahagian di bandung yang saya rasakan ini persis saya pernah alamin ketika saya waktu kecil, ketika saya di bandung akhirnya saya mau meniram seorang cew untuk jadi pacar dan bentar lagi akan menjadi pendamping hidup saya dan selama di bandung juga saya pernah tedengar lagi pertengkaran.
akhirnya saya sadar bahwa didikan ortu ketika saya masih kecil bener2 berguna bagi saya dan bermamfaat bagi saya.
saya menarik kesimpulan bahwa peranan orang tua itu sangat penting dalam mendidik anak2nya, apapun yang di perbuat orang tua itu sangat berpengaruh besar terhadap anak2nya dan demi kelansungan masa depan anak2 bagi calon orang tua nanti supaya mendidik anaknya dengan baik dan didalam rumah tangga kalau bisa ga perlu bertengkar kalau ada maslah lebih baik di selesaikan dengan baik dan tidak harus bertengkar karena jika bertengkar akan mengakibatkan masa depan akan lebih buruk

demikian yang saya sampaikan maaf kalau kata2nya banyak yang ga bisa di mengerti jika ada yang mau kasih kritik dan saran boleh2 saja. (prasetia)

makna pohon Natal

POHON NATAL

Sebagai orang kristen, apa artinya pohon NATAL itu? Apakah cuma sebagai perhiasan di setiap tempat pada bulan december?Sebagai orang kristen yang setia percaya bahwa sesuatu itu terjadi tidak hanya secara spontan tetapi sudah termasuk kehendakNYA.
Pohon (asli atau buatan) tersebut adalah tubuh Kristus, tubuh dari Kerajaan ALLAH. Kenapa pohon pinus atau pohon cemara? Karena hidup di mana saja, tahan lama dan bentuknya. Bentuknya menandakan bahwa semua orang percaya, dari kebesaran dunia akan menuju ke sudut, atap pohon cemara sebagai pintu gerbang yang menuju ke Kerajaan ALLAH, tubuh Kristus.
Pohon yang di hiasi dengan lampu-lampu; yang di artikan bahwa itu adalah keterangan di dunia dari Kerajaan ALLAH, tubuh Kristus. Bahwa jalan menuju pintu gerbang Kerajaan ALLAH akan penuh keterangan bagi mereka yang hidup di dalam tubuh Kristus bersama firman-Nya.
Perhiasan bola-bola, appel, rose, hiasan berwarna lainnya adalah jema'at, semua umat manusia yang bergantungan (pemegang firmanNYA) kepada tubuh Kristus, Kerajaan ALLAH.
Walaupun itu hanya penghias setiap rumah-rumah di waktu NATAL. Beginilah arti makna pohon NATAL bagi saya.Jadikanlah sesuatu itu bermakna di hadapan-Nya.
Apabila hanya menghiasi pohon NATAL dengan tidak tau artinya atau maknanya, sama dengan membangun lembu dari emas untuk di sembah.Pohon NATAL itu adalah tubuh keterangan Kerajaan ALLAH, Kristus Tuhan bagi semua umat manusia

BELAJAR PROGRAM c++ dan paskal Turbo

saya adalah mahasiswa stmik ganesa yang berada di bandung, berikut ini adalah saya akan memberikan sedikit contoh tentang program bahasa C yang pernah saya pelajarin selama saya masih kul sebelum uts berikut ini adalah contohnya programnya kiranya bisa membantu yang akan belajar program C dan kalau ada yang mau melengkapi atu kasih saran boleh2 aja atau kasih kritikan ke saya setiap kriktik dan saran akan saya tanggapin

#include

void main (void)
{

char kode_jur;
printf("masukan kode jurusan anda :");
scanf("%c",&kode_jur);
switch(kode_jur)
{
case 'T':
printf("Teknik informatika");
break;
case 'S':
printf("Sistem informatika");
break;
case 'M':
printf("Manajemen informatika");
break;
default :
printf("kode yang anda masukan salah");
}
}



#include

void main (void)
{
int bil;
char huruf;
bil=2;
huruf='g';

printf("bilangan =%d\n",bil);
printf("huruf=%c",huruf);
}

#include
void main (void)
{
int bil;
char huruf;
char kalimat[15];
printf("huruf=");
scanf("%c",&huruf);
printf("bilangan=");
scanf("%d",&bil);
printf("kalimat=");
scanf("%s",&kalimat);
printf("bilangan =%d\n",bil);
printf("huruf=%c\n",huruf);
printf("kalimat=%s\n",kalimat);
}



inilah adalah program array dinamis dalam pascal Turbo

Program Array_Dinamis_Data_Penduduk;
uses wincrt;
type

pointer_pnddk = ^pnddk;
pnddk = record
nomor_ktp : longint;
nama : string;
umur : integer;
penghasilan : longint;
berikutnya : pointer_pnddk;
end;
var
penunjuk : pointer_pnddk;
penduduk : pointer_pnddk;
terus : char;
i : integer;
begin
penunjuk := nil;

writeln('Data Penduduk');
writeln('-------------');
writeln; i:=1;
repeat
writeln('No. ',i);
i:=i+1;
new(penduduk);
write('Nomor KTP : ' );
readln(penduduk^.nomor_ktp);
write('Nama : ' );
readln(penduduk^.nama);
write('Umur : ' );
readln(penduduk^.umur);
write('Penghasilan : ' );
readln(penduduk^.penghasilan);

penduduk^.berikutnya := penunjuk;
penunjuk := penduduk;

writeln;
write('Masih ada data lagi(y/t) ?');
readln(terus);
writeln;

until (terus = 't') OR (terus = 'T');

if penduduk^.penghasilan >= 1000000 then

begin
writeln;
writeln('Data Penduduk');
writeln('-------------');
writeln;
i:=1;
penduduk := penunjuk;
repeat writeln('No. ',i);
i:=i+1;
writeln('Nomor KTP : ' , penduduk^.nomor_ktp);
writeln('Nama : ' , penduduk^.nama);
writeln('Umur : ' , penduduk^.umur);
writeln('Penghasilan : ' , penduduk^.penghasilan);
writeln;
penduduk := penduduk^.berikutnya;
until penduduk = nil;
end;
end.


2. (program penilaian )

program membaca_sebuah_nilai;
uses wincrt;
var

nilai: real;
begin
write('masukan sebuah nilai :');readln(nilai);
if (nilai <60)then>60)then
begin
writeln(' lulus');
writeln('selamat atas keberhasilan anda :');
end;
end.

(contoh pembelian barang)

program pembelian_barang;
uses wincrt;
type
kasir = record
kode :string;
nama : string;
harga : longint;
banyak : integer;
end;
var
ksr :array[1..3] of kasir;
i :integer;

begin
writeln('input data pembelian barang');
writeln('...........................');
for i := 1 to 3 do
begin
writeln('NO ',',');
write('kode :');readln(ksr[i].kode);
write('nama :');readln(ksr[i].nama);
write('harga :');readln(ksr[i].harga);
write('banyak:');readln(ksr[i].banyak);
writeln;
end;
writeln('data pemebelian barang');
writeln('......................');
for i := 1 to 3 do
begin
writeln('kode :',ksr[i].kode);
writeln('nama :',ksr[i].nama);
writeln('harga :',ksr[i].harga);
writeln('banyak :',ksr[i].banyak);
writeln;
end;
end.


(berikut adalah perulangan dalam pascal turbo dimana perulangan tersebut mengentri data 1 sampai 10 jika dalam pengentrian datanya lebih dari 10 maka data tersebut akan trus berulang tapi jika mengentri datanya di bawah 10 maka datanya akan selesai berikut contohnya)

program membaca_sebuah_nilai;
uses wincrt;
var
bilangan :integer;
begin
writeln('menentukan bilangan antara 0 sampai dnegan 10 ');
write('bilangan =');readln(bilangan);
while bilangan >10 do
begin
('masukan bilangan salah');
write('bilangan =');readln(bilangan);
end;
end.

2. program array

program coba_aray;
uses wincrt;
var
matrik : array [1..3] of integer;
begin
matrik[1] :=2;
matrik[2] :=5;
matrik[3] :=9;
writeln('array 3 elemen');
writeln('..............');
writeln('matrik(1):=; matrik(1)');
writeln('matrik(2):=; matrik(2)');
writeln('matrik(3):=; matrik(3)');
end.


program simpan_data;
uses wincrt;
type
mahasiswa= record
nim:longint;
nama : string;
prodi : string;
jenjang: string;
end;
var
fmahasiswa: file of mahasiswa;
mhs : mahasiswa;
begin
assign(fmahasiswa,'d:\data_mahasiswa.date');
rewrite(fmahasiswa);
writeln('data nama mahaiswa');
writeln('.....................');
write('nim :');readln(mhs.nim);
write('nama :');readln(mhs.nama);
write('prodi :');readln(mhs.prodi);
write('jenjang :');readln(mhs.jenjang); write(fmahasiswa,mhs);
close(fmahasiswa);
end.


program tambah_data;
uses wincrt;
type
mahasiswa= record
nim : longint;
nama : string;
prodi : string;
jenjang : string;
end;
var
fmahasiswa: file of mahasiswa;
mhs :mahasiswa;
jum_data :integer;
begin
assign(fmahasiswa,'d:\data_mahasiswa.date');
reset(fmahasiswa);
jum_data:=filesize(fmahasiswa);
seek(fmahasiswa,jum_data);
writeln('data nama mahaiswa');
writeln('.....................');
write('nim :');readln(mhs.nim);
write('nama :');readln(mhs.nama);
write('prodi :');readln(mhs.prodi);
write('jenjang :');readln(mhs.jenjang);
write(fmahasiswa,mhs);
close(fmahasiswa);
end.


SELAMAT MENCOBA SEMOGA BERMAMFAAT