pembelajaran ku di kamapus…..

Aku tidak tau mau bilang apa karna menurut aku ini terkadang aneh.mengapa aku katakana aneh karna ini kadang tidak masuk akal masa hari ini semangat belajar saya bagus tapi besoknya sudah drop lagi.ini sungguh tidak masuk akal,apa ini karena dosenya yang buat tidak semangat atau apa aku tak tau tapi aku berharap hal itu tidak akan terjadi.Ku akan coba lebih berkonsentrasi dalam belajar agar apa yang telah di berikan orang tua dan dukungan saudara-saudara saya nantinya tidak akan sia-sia karna saya tidak menekuni study ini.Ya Allah bantu lah hambamu ini dalam segala perjalanan hidup ku dan aku yakin ya allah hanya engkau lah allah yang aku sembah,allah hu akbar……

persahabatan

Orang yang aku anggap sahabat selama ini ternyata hanya lah seorang srigala yang berbulu domba….
Di depan aku dia sangat baik tapi di belakang dia hanya tau menyalahkan aku dan memburuk-burukan aku dengan orang lain.aku baru tau kalau selama ini aku telah salah memilih teman,teman yang aku anggap seperti saudara sendiri.tapi aku tak mengapa jika kamu seperti itu ku hanya memohon pada allah agar pintu hatimu dibukakan.tapi maafkan aku jika hubungan pertemanan ini akan aku akhiri sampai disini karna aku tidak mau terjadi hal yang akan membuat kita bermasalah.

persahabatan

Orang yang aku anggap sahabat selama ini ternyata hanya lah seorang srigala yang berbulu domba….
Di depan aku dia sangat baik tapi di belakang dia hanya tau menyalahkan aku dan memburuk-burukan aku dengan orang lain.aku baru tau kalau selama ini aku telah salah memilih teman,teman yang aku anggap seperti saudara sendiri.tapi aku tak mengapa jika kamu seperti itu ku hanya memohon pada allah agar pintu hatimu dibukakan.tapi maafkan aku jika hubungan pertemanan ini akan aku akhiri sampai disini karna aku tidak mau terjadi hal yang akan membuat kita b.ermasalah

Tentang kerja……

Sekolah sambil bekerja memang sangat menyenangkan disamping kita mempunyai wawasan dalam dunia usaha kita juga dapat membantu orang tua kita dalam segi materi dan hal seperti itu akan memacu kita menjadi seorang yang mandiri.saya sangat ingin sekali seperti kawan2 yang kuliah sambil kerja tapi apa yang bias saya lakukan kondiisi terkaang yang tak menjajikan.
Mungki untuk saat ini saya harus memokuskan dulu ke pendidikan saya,walaupun cara otak saya menerima pelajaran itu tak sehebat kawan2 yang lain tapi saya kan coba berusaha agar saya tidak ketingglan dari kawan2 yang lain.

kegiatan saya sehari-hari……

Kegiatan yang saya lakukan sehari-harinya bisa dibilang membosankan.
Karena setiap hari saya hanya dirumah saja,saya bangun pagi pukul 06:30,
Sehabis bangun biasanya saya mandi dan ngeteh sambil makan roti,setelah itu saya membereskan kos saya,seperti menanak nasi,mencuci kain dan merapikan kamar.dan kegiatan ini lah yang sehari-harinya saya lakukan.
Saya sudah mencoba untuk mencari pekerjaan tapi kenyataanya tidak segampang apa yang kita pikirkan.banyak sekali hal yang membuat saya sulit dalam menjalani pekerjaan,diantaranya:masukan yang saya terima terkadang tidak sesuai dengan apa yang kita kerjakan,ada juga karna lokasi kerja yang saya bekerja sangat jauh dari kos dan tempat kuliah dan yang buat sedih lagi kerjaannya pake SIP2 an tentu kalau saya kerja kuliah saya pastinya akan terganggu.

nasib……

oooooo…..
sampai kapan lah nasib ini berubah.
dari kecil ampe sekarang masa gini2 z
lom lg ujian hidup ni tk kunjung berhenti,ada2 z yg buat pikiran puyeng.

marhaban ya ramadhan……

bulan yg penuh dengan kebahagian
ingin rasa hati berbagi dengan sesama walau pun hanya doa….
sebab apa pun yg kan kita lakukan alank kah baik na jika di barngi dengan doa agar smua apa yg kan kita lakukan dapat di ridoa oleh sang halik….

Jawaban no.2

Visual Fox Pro  bahasa pemograman

Visual FoxPro adalah bahasa pemrograman berorientasi objek dan prosedural dari Microsoft. Awalnya bahasa pemrograman ini dikenal dengan nama FoxBASE yang diluncurkan oleh Fox Software pada awal 1984. Fox Technologies kemudian bergabung dengan Microsoft pada 1992 sehingga di depan nama FoxBASE ditambahkan awalan “Visual”.

Versi terakhir FoxPro (9.0) dapat berjalan pada sistem operasi Mac OS, DOS, Windows, dan Unix. Visual FoxPro 3.0, versi “Visual” pertama, akhirnya tersingkir karena hanya mendukung Mac OS dan Windows, dan versi berikutnya hanya mendukung Windows saja. Versi terkini Visual FoxPro adalah berdasarkan teknologi COM dan Microsoft telah menyatakan bahawa mereka tidak berniat untuk mencipta versi Microsoft .NET.

Rubi bahasa pemograman

Posted on March 31, 2011 by patriaayumarina

Ruby adalah bahasa skripting yang berorientasi obyek. Tujuan dari ruby adalah menggabungkan kelebihan dari semua bahasa-bahasa pemrograman scripting yang ada di dunia. Ruby ditulis dengan bahasa pemrograman C dengan kemampuan dasar seperti Perl dan Python.

Daftar isi
[sembunyikan]

* 1 Sejarah
* 2 Kelebihan Ruby
* 3 Sistem operasi yang didukung
* 4 Pranala luar

[sunting] Sejarah

Ruby pertama kali dibuat oleh seorang programmer Jepang bernama Yukihiro Matsumoto. Pada tahun 1993 Yukihiro ingin membuat sebuah bahasa skripting yang memiliki kemampuan orientasi obyek. Pada saat itu pemrograman berorientasi obyek sedang berkembang tetapi belum ada bahasa pemrograman scripting yang mendukung pemrograman obyek.

Penulisan Ruby dimulai pada Februari 1993 dan pada Desember 1994 dirilis versi alpha dari Ruby. Pada awal perkembangan Ruby, Yukihiro menulis Ruby sendiri sampai pada tahun 1996 sudah terbentuk komunitas Ruby yang banyak mengontribusikan perkembangan Ruby.

Saat ini Ruby telah berkembang tidak hanya di Jepang, tetapi diseluruh dunia. Bulan Agustus tahun 2006, Macintosh telah melakukan kerja sama dengan mengintegrasikan Ruby on Rails pada Mac OS X v10.5 Leopard telah diluncurkan bulan Oktober 2007.

C++bahasa pemograman

C++ adalah bahasa pemrograman komputer C++ dikembangkan di Bell Labs (Bjarne Stroustrup) pada awal tahun 1970-an, Bahasa itu diturunkan dari bahasa sebelumnya, yaitu BCL, Pada awalnya, bahasa tersebut dirancang sebagai bahasa pemrograman yang dijalankan pada sistem Unix, Pada perkembangannya, versi ANSI (American National Standart Institute) Bahasa pemrograman C menjadi versi dominan, Meskipun versi tersebut sekarang jarang dipakai dalam pengembangan sistem dan jaringan maupun untuk sistem embedded, Bjarne Stroustrup pada Bell labs pertama kali mengembangkan C++ pada awal 1980-an, Untuk mendukung fitur-fitur pada C++, dibangun efisiensi dan sistem support untuk pemrograman tingkat rendah (low level coding).^[1] Pada C++ ditambahkan konsep-konsep baru seperti class dengan sifat-sifatnya seperti inheritance dan overloading.^[rujukan?] Salah satu perbedaan yang paling mendasar dengan bahasa C adalah dukungan terhadap konsep pemrograman berorientasi objek (Object Oriented Programming).^[2]

Posted in ARTIKEL | Leave a comment

BASICbahasa pemograman

Posted on March 30, 2011 by patriaayumarina

BASIC, adalah singkatan dari Beginners’ All-purpose Symbolic Instruction Code adalah sebuah kelompok bahasa pemrograman tingkat tinggi. Secara harfiah, BASIC memiliki arti “kode instruksi simbolis semua tujuan yang dapat digunakan oleh para pemula”. Memang, istilah “Bahasa BASIC” di sini juga bisa diartikan menjadi bahasa untuk pemula, atau dengan kata lain, disebut sebagai bahasa dasar, tapi hal tersebut dirasa kurang tepat, mengingat BASIC dapat juga digunakan oleh para pemrogram ahli.

Sejarah

Sebelum pertengahan tahun 1960-an, komputer merupakan barang yang sangat mahal dan hanya digunakan untuk tugas-tugas tujuan khusus. Pada saat itu, jenis pemrosesan yang dapat dilakukan adalah batch processing, yang artinya komputer hanya dapat melakukan pemrosesan satu pekerjaan pada satu waktu, dan pekerjaan lainnya akan dilakukan setelah pekerjaan lainnya selesai. Akan tetapi, selama tahun 1960-an, muncullah komputer yang lebih cepat dan lebih terjangkau. Dengan kemampuan pemrosesan yang lebih kuat ini, komputer pun kadang-kadang “menganggur”, tanpa ada pekerjaan yang ia lakukan sama sekali. Bahasa pemrograman di dalam era batch programming pun didesain untuk tujuan-tujuan khusus, seperti halnya mesin di mana mereka berjalan, seperti halnya kalkulasi formula ilmiah atau pemrosesan data bisnis atau hanya untuk penyuntingan teks.

Posted in ARTIKEL | Leave a comment

ALGObahasa pemograman

 

Posted on March 30, 2011 by patriaayumarina

• 03:12, 26 Agustus 2009 Stephensuleeman (Bicara | kontrib) menghapus “ALGOL” ‎ (isinya hanya berupa: ‘hi,how are you??’ (dan satu-satunya penyumbang adalah ‘202.70.61.130‘))
• 08:00, 13 Februari 2009 Dragunova (Bicara | kontrib) menghapus “ALGOL” ‎ (Uji coba: isinya hanya berupa: ‘halooo. kasihan sekali kamu’ (dan satu-satunya penyumbang adalah ‘125.163.214.207‘))
• 13:14, 10 September 2008 Stephensuleeman (Bicara | kontrib) menghapus “ALGOL” ‎ (isinya hanya berupa: ‘ === ==== Subbagian2 ==== <sub> == Teks subscript == ”’Media:Teks ini akan dicetak tebal#REDIRECT<!– Artikel –> <gallery> {|…’ (dan satu-satunya penyumbang adalah ‘125.162.40.214‘))
• 02:07, 5 Agustus 2008 Kembangraps (Bicara | kontrib) menghapus “ALGOL” ‎ (isi sebelumnya: ‘{{hapus}} aku mw tanya, apakah dalam menjalankan pemograman perlu kode terntu?’)
• 19:59, 20 Maret 2008 Hayabusa future (Bicara | kontrib) menghapus “ALGOL” ‎ (isinya hanya berupa: ‘<s>Text dicoret</s><math>{{Templat}}Masukkan rumus di sini</<ref>Rujuk <gallery> Berkas:Contoh.jpg|Judul1 Berkas:Contoh.jpg|Judul2„‹…’ (dan satu-satunya penyumbang adalah ‘203.190.49.50‘))

 

 

TENTang saya

Nama :Harmoko siagian

 

Alamat Asal:Kota cane_Aceh tenggara

 Alamat sekarang:jln sm.raja gg.Rukun no.07 Medan Sumatra utara

 Agama: MUSLIM

 Status: Mahasiswa

 Di STMIK BUDIDARMA MEDAN

JENJANG:D.III M.INFORMATIKA

 NPM: 1002060

 Disini saya akan berbagi sedikit tentang kehidupan saya kepada semuanya yang ingin tahu tentang saya.

Seperti mana diatas tadi saya telah memberitahukan siapa nama saya kini saya akan  berbagi tentang hidup saya.tentunya banyak  di antara kita masing-masing mempunyai cerita tentang kehidupannya.Dan saya merupakan anak dari orang tua yang tinggal di daerah Aceh tenggara,keluarga saya Bersuku BATAK dan Marga saya SIAGIAN.saya terlahir dari keluarga sederhana,kami ada 6 bersaudara diantara saudara saya ,aku merupakan anak ke 5.Saya mempunyai 4 saudara perempuan dan 1 saudara laki-laki.

Tertkadang hidup ini bagaikan air di daun talas bawaannya selalu goyah,kadang senang dan kadang kesedihan pun menyapaku dengan tidak bersahabatnya.

Banyak hal indah terlewatkan dalam hidup Q canda tawa mengiringi langkah hidup ini.

Di medan saya  awalnya tinggal dengan saudara saya,tapi setelelah saya pikir2 tidak enak juga rasanya merepotkan mereka akhirnya saya mmemilih untuk pindah dan ngekos di jalan saudara.

Setelah setahun saya tinggal disana dan kontrak kos ku pun habis maka saya pindah ke jalan Sm.Raja Gg.Rukun.

Disini saya tinggal ber 3 sama kawan satu kos  dan kebetulan kami juga kuliah di kampus yang sama tapi tingkat study kami aja yang sudah berbeda.

Aku sangat senang tinggal di tempat baruku apa lagi teman satu kelas ku kos nya gak jauh dari kos ku jadi ku sering main ke tempatnya terkadang makan pun saya di tempat nya mereka semua sangat baik.dan saya suka sikap mereka yang tidak sombong itu.

TENTang pembelajaran saya

.Sebelum saya kuliah di STMIK Budidarma Medan ini dulu saya pernah bekerja di sebuah perusahaan di Batam menag sih tidak begitu lama hanya sekedar ingin tau saja gimana sih rasanya kerja di sebuah perusahaan layaknya orang lain dan akhirnya kesampaian juga.karna saya dulu orang nya tidak kerasan dengan tempat kerja saya itu akhirnya saya pun keluar dari sana dan memilih balik ke medan.Dan di medan saya tinggal dengan saudara saya.

Dulunya saya tidak ada niat untuk kuliah tapi saya piker-pikir kalau saya tidak kuliah dan hidup saya begini-begini saja tampa ada perubahan gimana lagi untuk kedepanya maka saya usulkan ke keluarga saya untuk kuliah lagi dan alhamdulillah mereka setuju  saya kuliah lagi.Dan saya pun memilih sekolah computer yakni STMIK Budidarma Medan.

TENTang kuliah saya

Saya memilih perkuliahan malam,tadinya saya berpikir saya ingin kuliah sambil bekerja tapi hal yang saya pikirkan tidak seperti apa yang saya bayangkan,Di medan ini tidak lah gampang mencari kerja dan jika pun ada honor yang kita terkadang tidak mencukupi.dan hingga sekarang ini saya masih tetap menganggur dan kegiatan saya hanya kuliah malam saja.

Dalam menjalani study ini banyak sekali rintangan yang menghalangi langkah terkadang Malas pasti ada dan hal itu tidak bisa saya pungkiri dan terkadang lagi kendala ke uangan yang kurang mencukupi.Tapi berkat dukungan Orangtua saya,keluarga,sahabat,teman dan para pembaca sekalian semua dapat saya lalui tampa terasa punya beban.

Kadang setelah habis pembelajaran kuliah saya dan teman-teman saya yang lainngumpul di warung seberang kampus sambil makan gorengan hitung-hitung buang suntuk atas semua masalah yang telah kami hadapi masing-masing.

Dalam kuliah ini saya tidak tahu ntah kenapa,dan mengapa terkadang cara menerima perkuliahan saya sering kali gak konsentrasi,apa ini karna system penyampaian dosen yang kurang begitu mengena di saya atau memang cara belajar Q yang sudah menurun  ku gak tau…..

Mudah-mudahan untuk kedepanya aku akan lebih rajin dan lebih giat lagi dalam belajarnya..

Motivasi

 Tujuan saya dalam pendidikan ini ingin merubah hidup menjadi lebih baik dari yang sekaran,dan saya ingin kelak menciptakan lapangan kerja untuk saya  karna saya merupakan tipekal orang yang kurang begitu suka di kekang sama siapa pun.Membahagiakan orang tua juga merupakan hal yang ingin saya lakukan karna mereka sudah sangat berjasa banyak untuk saya.

Harapan saya dalam hidup ini ingin menjadi yang terbai

jawaban no.3

program data_dosen_mahasiswa;

uses crt;

type

dosen           =record

kode            :string;

nama            :string[15];

pendidikan      :string[15];

keahlian        :string[15];

end;

mahasiswa       =record

npm             :string[7];

nama            :string[15];

jenjang         :string[15];

jurusan         :string[15];

tahun           :integer;

end;

var

rdos         :array[1..20] of dosen;

rmah         :array[1..20] of mahasiswa;

i,j          :byte;

lg,pil       :char;

procedure inputdosen;

procedure formdosen;

begin

clrscr;

gotoxy(5,3);write(‘input data dosen’);

gotoxy(5,4);write(‘———————————’);

gotoxy(5,5);write(‘kode dosen      :’);

gotoxy(5,6);write(‘nama            :’);

gotoxy(5,7);write(‘pendidikan      :’);

gotoxy(5,8);write(‘keahlian        :’);

gotoxy(5,9);write(‘———————————’);

gotoxy(5,10);write(‘inputkan data lagi[y/t]:’);

end;

begin

repeat

formdosen;

with rdos[i] do

begin

gotoxy(22,5);readln(kode);

gotoxy(22,6);readln(nama);

gotoxy(22,7);readln(pendidikan);

gotoxy(22,8);readln(keahlian);

gotoxy(29,10);readln(lg);

end;

inc(i);

until upcase(lg)=’t’;

end;

procedure outputdosen;

procedure tabeldosen;

begin

clrscr;

gotoxy(3,4);write(‘informasi data dosen’);

gotoxy(3,5);write(‘——————————-’);

gotoxy(3,6);write(‘no    kode    nama   pendidikan      keahlian’);

gotoxy(3,7);write(‘————————————————————’);

end;

begin

tabeldosen;

for j:=1 to i do

begin

with rdos[j] do

begin

gotoxy(5,7+i);write(j:2,’ ‘,kode:8,’ ‘,nama);

gotoxy(30,7+i);write(pendidikan);

gotoxy(43,7+i);write(keahlian);

end;

end;

gotoxy(3,9+i);write(‘———————————————————–’);

repeat until keypressed;

end;

procedure inputmahasiswa;

procedure formmahasiswa;

begin

clrscr;

gotoxy(5,3);write(‘input data mahasiswa’);

gotoxy(5,4);write(‘———————————’);

gotoxy(5,5);write(‘npm          :’);

gotoxy(5,6);write(‘nama          :’);

gotoxy(5,7);write(‘jenjang       :’);

gotoxy(5,8);write(‘jurusan       :’);

gotoxy(5,9);write(‘tahun         :’);

gotoxy(5,10);write(‘———————————’);

gotoxy(5,11);write(‘inputkan data lagi[y/t]):’);

end;

begin

repeat

formmahasiswa;

with rmah[i] do

begin

gotoxy(22,5);readln(npm);

gotoxy(22,6);readln(nama);

gotoxy(22,7);readln(jenjang);

gotoxy(22,8);readln(jurusan);

gotoxy(22,9);readln(tahun);

gotoxy(29,10);readln(lg);

end;

inc(i);

until upcase(lg)=’t’;

end;

procedure outputmahasiswa;

procedure tabelmahasiswa;

begin

clrscr;

gotoxy(10,4);write(‘input data mahasiswa’);

gotoxy(3,5);write(‘——————————————–’);

gotoxy(3,6);write(‘no  npm      nama          jenjang        jurusan          tahun’);

gotoxy(3,7);write(‘———————————————————————’);

end;

begin

tabelmahasiswa;

for j:=1 to i do

begin

with rmah[j] do

begin

gotoxy(5,7+j);write(j:2,’ ‘,npm:8,’ ‘,nama);

gotoxy(43,7+i);write(jenjang);

gotoxy(51,7+i);write(jurusan);

gotoxy(58,7+i);write(tahun);

end;

end;

gotoxy(3,9+j);write(‘———————————————————————-’);

repeat until keypressed;

end;

procedure menu;

begin

clrscr;

gotoxy(20,2);write(‘menu utama’);

gotoxy(10,3);write(‘——————–’);

gotoxy(10,4);write(‘[1]. input data dosen’);

gotoxy(10,5);write(‘[2]. input data mahasiswa’);

gotoxy(10,6);write(‘[3]. output data dosen’);

gotoxy(10,7);write(‘[4]. output data mahasiswa’);

gotoxy(10,8);write(‘[5]. keluar program’);

gotoxy(10,9);write(‘—————————–’);

gotoxy(10,10);write(‘pilihan  :’);

end;

begin

i:=1;

pil:=’1′;

while pil<>’5′ do

begin

menu;

pil:=readkey;

case pil of

’1′:inputdosen;

’2′:inputmahasiswa;

’3′:outputdosen;

’4′:outputmahasiswa;

end;

end;

end.

jawaban no.4

program data_dosen_mahasiswa;

uses crt;

type

dosen           =record

kode            :string;

nama            :string[15];

pendidikan      :string[15];

keahlian        :string[15];

end;

mahasiswa       =record

npm             :string[7];

nama            :string[15];

jenjang         :string[15];

jurusan         :string[15];

tahun           :integer;

end;

var

rdos         :array[1..20] of dosen;

rmah         :array[1..20] of mahasiswa;

i,j          :byte;

lg,pil       :char;

procedure inputdosen;

procedure formdosen;

begin

clrscr;

gotoxy(5,3);write(‘input data dosen’);

gotoxy(5,4);write(‘———————————’);

gotoxy(5,5);write(‘kode dosen      :’);

gotoxy(5,6);write(‘nama            :’);

gotoxy(5,7);write(‘pendidikan      :’);

gotoxy(5,8);write(‘keahlian        :’);

gotoxy(5,9);write(‘———————————’);

gotoxy(5,10);write(‘inputkan data lagi[y/t]:’);

end;

begin

repeat

formdosen;

with rdos[i] do

begin

gotoxy(22,5);readln(kode);

gotoxy(22,6);readln(nama);

gotoxy(22,7);readln(pendidikan);

gotoxy(22,8);readln(keahlian);

gotoxy(29,10);readln(lg);

end;

inc(i);

until upcase(lg)=’t’;

end;

procedure outputdosen;

procedure tabeldosen;

begin

clrscr;

gotoxy(3,4);write(‘informasi data dosen’);

gotoxy(3,5);write(‘——————————-’);

gotoxy(3,6);write(‘no    kode    nama   pendidikan      keahlian’);

gotoxy(3,7);write(‘————————————————————’);

end;

begin

tabeldosen;

for j:=1 to i do

begin

with rdos[j] do

begin

gotoxy(5,7+i);write(j:2,’ ‘,kode:8,’ ‘,nama);

gotoxy(30,7+i);write(pendidikan);

gotoxy(43,7+i);write(keahlian);

end;

end;

gotoxy(3,9+i);write(‘———————————————————–’);

repeat until keypressed;

end;

procedure inputmahasiswa;

procedure formmahasiswa;

begin

clrscr;

gotoxy(5,3);write(‘input data mahasiswa’);

gotoxy(5,4);write(‘———————————’);

gotoxy(5,5);write(‘npm          :’);

gotoxy(5,6);write(‘nama          :’);

gotoxy(5,7);write(‘jenjang       :’);

gotoxy(5,8);write(‘jurusan       :’);

gotoxy(5,9);write(‘tahun         :’);

gotoxy(5,10);write(‘———————————’);

gotoxy(5,11);write(‘inputkan data lagi[y/t]):’);

end;

begin

repeat

formmahasiswa;

with rmah[i] do

begin

gotoxy(22,5);readln(npm);

gotoxy(22,6);readln(nama);

gotoxy(22,7);readln(jenjang);

gotoxy(22,8);readln(jurusan);

gotoxy(22,9);readln(tahun);

gotoxy(29,10);readln(lg);

end;

inc(i);

until upcase(lg)=’t’;

end;

procedure outputmahasiswa;

procedure tabelmahasiswa;

begin

clrscr;

gotoxy(10,4);write(‘input data mahasiswa’);

gotoxy(3,5);write(‘——————————————–’);

gotoxy(3,6);write(‘no  npm      nama          jenjang        jurusan          tahun’);

gotoxy(3,7);write(‘———————————————————————’);

end;

begin

tabelmahasiswa;

for j:=1 to i do

begin

with rmah[j] do

begin

gotoxy(5,7+j);write(j:2,’ ‘,npm:8,’ ‘,nama);

gotoxy(43,7+i);write(jenjang);

gotoxy(51,7+i);write(jurusan);

gotoxy(58,7+i);write(tahun);

end;

end;

gotoxy(3,9+j);write(‘———————————————————————-’);

repeat until keypressed;

end;

procedure menu;

begin

clrscr;

gotoxy(20,2);write(‘menu utama’);

gotoxy(10,3);write(‘——————–’);

gotoxy(10,4);write(‘[1]. input data dosen’);

gotoxy(10,5);write(‘[2]. input data mahasiswa’);

gotoxy(10,6);write(‘[3]. output data dosen’);

gotoxy(10,7);write(‘[4]. output data mahasiswa’);

gotoxy(10,8);write(‘[5]. keluar program’);

gotoxy(10,9);write(‘—————————–’);

gotoxy(10,10);write(‘pilihan  :’);

end;

begin

i:=1;

pil:=’1′;

while pil<>’5′ do

begin

menu;

pil:=readkey;

case pil of

’1′:inputdosen;

’2′:inputmahasiswa;

’3′:outputdosen;

’4′:outputmahasiswa;

end;

end;

end.