contoh data real
1.nilai uts mahasiswa angkatan 2012

2.nilai uts mahasiswa angkatan 2013

turbo paskal record

1. program kita;

uses wincrt;
type
    mahasiswa=record
    namabarang:string;
    harga:integer;
    jumlah:integer;
    total:integer;
    end;
var mhs:array[1..10] of mahasiswa;
    i,n,totalsemua:integer;
begin
     totalsemua:=0;
     writeln('masukan jumlah barang:');readln(n);
     for i:=1 to n do
     begin
     writeln('nama barang ke', i ,':');readln(mhs[i].namabarang);
     writeln('harga barang:');readln(mhs[i].harga);
     writeln('jumlah barang:');readln(mhs[i].jumlah);
     mhs[i].total:=mhs[i].harga*mhs[i].jumlah;
     writeln('total harga:', mhs[i].total);
     end;
clrscr;
writeln('no':2,'nama barang':8,'harga':8,'jumlah':8,'total':10);
for i:=1 to n do
begin
writeln(i:2,'',mhs[i].namabarang:8,mhs[i].harga:8,mhs[i].jumlah:8,mhs[i].total:10);
end;
for i:=1 to n do
begin
totalsemua:=totalsemua+mhs[i].total;
end;
writeln('total pengeluaran:',totalsemua);
end.

2.program saya;
uses wincrt;
type karyawan=record
     nama           :string;
     alamat         :string;
     gaji           :integer;
     end;
var
   kry              :array[1..10] of karyawan;
   n,i              :integer;
begin
     writeln('masukan berapa banyak karyawan:');readln(n);
     for i:=1 to n do
     begin
     writeln('nama karyawan:');readln(kry[i].nama);
     writeln('alamat:');readln(kry[i].alamat);
     writeln('gaji:');readln(kry[i].gaji);
     end;
     writeln('nama':4,'alamat':10,'gaji':10);
     for i:=1 to n do
     writeln(i,'',kry[i].nama:4,kry[i].alamat:10,kry[i].gaji:10);
end.

3. program kitabanget;

uses wincrt;

     type barang=record

          nama               :array[1..10] of string;

          jumlah,harga,total : array[1..10] of integer;

          n:array[1..10] of integer;

          end;

          mahasiswa=record

          m               :array[1..10] of integer;

          nm              :array[1..10] of string;

          brg             : barang;

          end;

var

   i,totalsemua:integer;

   mhs:mahasiswa;

   brg:barang;

             

begin

totalsemua:=0;

writeln('ada berapa banyak mahasiswa:');readln(mhs.m[i]);

for i:=1 to mhs.m[i] do

    begin

    writeln('nama mahasiswa:');readln(mhs.nm[i]);

    writeln('ada berapa barang yang dibeli:');readln(mhs.brg.n[i]);

    for i:=1 to mhs.brg.n[i] do

    begin

         writeln('masukan nama barang:');readln(mhs.brg.nama[i]);

         writeln('masukan jumlah barang:');readln(mhs.brg.jumlah[i]);

         writeln('berapa harganya:');readln(mhs.brg.harga[i]);

         mhs.brg.total[i]:=mhs.brg.jumlah[i]*mhs.brg.harga[i];

    end;

    end;

clrscr;

writeln('nama barang':4,'jumlah':8,'harga':12,'total':16);

for i:=1 to mhs.m[i] do

begin

writeln(mhs.nm[i]);

writeln(i,' ',mhs.brg.nama[i]:4,mhs.brg.jumlah[i]:8,mhs.brg.harga[i]:12,mhs.brg.total[i]:16);

totalsemua:=totalsemua+mhs.brg.total[i];

end;

writeln('total pengeluaran:',totalsemua);

end.

4. program kitabanget;

uses wincrt;

     type barang=record

          nama:array[1..10] of string;

          jumlah,harga,total : array[1..10] of integer;

     end;

var

   n,i,totalsemua:integer;

   brg: barang;

begin

totalsemua:=0;

writeln('ada berapa barang yang dibeli:');readln(n);

for i:=1 to n do

begin

writeln('masukan nama barang:');readln(brg.nama[i]);

writeln('masukan jumlah barang:');readln(brg.jumlah[i]);

writeln('berapa harganya:');readln(brg.harga[i]);

brg.total[i]:=brg.jumlah[i]*brg.harga[i];

end;

clrscr;

writeln('nama barang':4,'jumlah':8,'harga':12,'total':16);

for i:=1 to n do

begin

writeln(i,' ', brg.nama[i]:4,brg.jumlah[i]:8,brg.harga[i]:12,brg.total[i]:16);

totalsemua:=totalsemua+brg.total[i];

end;

writeln('total pengeluaran:',totalsemua);

end.

end.

5.program saya;

Uses wincrt ;

type mahasiswa=record

      Nama : string ;

      Tugas, uts, uas, absen : integer ;

      Nilai_akhir : real ;

      end;

Var

mhs:array[1..30] of mahasiswa; 

x,i,j,jd : byte;

BEGIN

CLRSCR ;

Write ('Masukan Banyaknya Mahasiswa :'); readln ( jd ) ;

For x:= 1 to jd do

begin

Write ('Input Nama :'); readln (mhs[x].nama );

Write ('Input Nilai Tugas :');readln (mhs[x].tugas) ;

Write ('Input Nilai Absen :'); readln (mhs[x].absen) ;

Write ('Input Nilai UTS :'); readln (mhs[x].uts) ;

Write ('Input Nilai UAS :'); readln (mhs[x].uas) ;

writeln;

mhs[x].Nilai_Akhir:=(0.1*mhs[x].tugas)+(0.2*mhs[x].absen)+(0.3*mhs[x].uts)+(0.4*mhs[x].uas);

End ;

Writeln ('*****************************');

Writeln ('PENILAIAN UJIAN MAHASISWA MATEMATIKA');

Writeln ('*****************************');

                    

For i:= 1 to jd do

Begin

writeln('nama':2,'tugas':6,'absen':10,'UTS':14,'UAS':18,'Nilai Akhir':22);

Writeln (mhs[i].nama:2, mhs[i].tugas:6, mhs[i].absen:10, mhs[i].uts:14, mhs[i].uas:18, mhs[i].nilai_akhir:22:2) ;

End;

Writeln ('****************************') ;

writeln;

END.

6. program saya;

Uses wincrt ;

type mahasiswa=record

      Nama : array [1..30 ] of string ;

      Tugas, uts, uas, absen : array [1..30] of integer ;

      Nilai_akhir : array [1..30] of real ;

      end;

Var

mhs:mahasiswa; 

x,i,j,jd : byte;

BEGIN

CLRSCR ;

Write ('Masukan Banyaknya Mahasiswa :'); readln ( jd ) ;

For x:= 1 to jd do

begin

Write ('Input Nama :'); readln (mhs.nama[x] );

Write ('Input Nilai Tugas :');readln (mhs.tugas[x] ) ;

Write ('Input Nilai Absen :'); readln (mhs.absen[x] ) ;

Write ('Input Nilai UTS :'); readln (mhs.uts[x] ) ;

Write ('Input Nilai UAS :'); readln (mhs.uas[x]) ;

writeln;

mhs.Nilai_Akhir[x]:=(0.1*mhs.tugas[x])+(0.2*mhs.absen[x])+(0.3*mhs.uts[x])+(0.4*mhs.uas[x]);

End ;

Writeln ('*****************************');

Writeln ('PENILAIAN UJIAN MAHASISWA MATEMATIKA');

Writeln ('*****************************');

                    

For i:= 1 to jd do

Begin

writeln('nama':2,'tugas':6,'absen':10,'UTS':14,'UAS':18,'Nilai Akhir':22);

Writeln (mhs.nama[i]:2, mhs.tugas[i]:6, mhs.absen[i]:10, mhs.uts[i]:14, mhs.uas[i]:18, mhs.nilai_akhir[x]:22:2) ;

End;

Writeln ('****************************') ;

writeln;

END.

7.program nilai;

Uses wincrt ;

type

mahasiswa=record

     Nama : array [1..30 ] of string ;

     Tugas, uts, uas, absen : array [1..30] of integer ;

     Nilai_akhir : array [1..30] of real ;

end;

Var

mhs:mahasiswa;

x,i,j,jd : byte;

BEGIN

CLRSCR ;

Write ('Masukan Banyaknya Mahasiswa :'); readln ( jd ) ;

For x:= 1 to jd do

begin

Write ('Input Nama :'); readln (mhs.nama[x] );

Write ('Input Nilai Tugas :');readln (mhs.tugas[x] ) ;

Write ('Input Nilai Absen :'); readln (mhs.absen[x] ) ;

Write ('Input Nilai UTS :'); readln (mhs.uts[x] ) ;

Write ('Input Nilai UAS :'); readln (mhs.uas[x]) ;

writeln;

mhs.Nilai_Akhir[x]:=(0.1*mhs.tugas[x])+(0.2*mhs.absen[x])+(0.3*mhs.uts[x])+(0.4*mhs.uas[x]);

End ;

Writeln ('*****************************');

Writeln ('PENILAIAN UJIAN MAHASISWA MATEMATIKA');

Writeln ('*****************************');

                      

For i:= 1 to jd do

Begin

writeln('nama        tugas       absen        UTS         UAS       Nilai Akhir');

Writeln (mhs.nama[i]:2, mhs.tugas[i]:9, mhs.absen[i]:14,mhs.uts[i]:10, mhs.uas[i]:13, mhs.nilai_akhir[x]:14:2) ;

End;

Writeln ('****************************') ;

writeln;

END.

8. program kita;

uses wincrt;

type

    mahasiswa=record

    namabarang:string;

    harga:longint;

    jumlah:longint;

    total:longint;

    diskon:real;

    end;

var mhs:array[1..10] of mahasiswa;

    i,n:integer;totalsemua:real;

begin

     totalsemua:=0;

     writeln('masukan jumlah barang:');readln(n);

     for i:=1 to n do

     begin

     writeln('nama barang ke', i ,':');readln(mhs[i].namabarang);

     writeln('harga barang:');readln(mhs[i].harga);

     writeln('jumlah barang:');readln(mhs[i].jumlah);

     mhs[i].total:=mhs[i].harga*mhs[i].jumlah;

     if mhs[i].total>50000 then 

     mhs[i].diskon:=0.05*mhs[i].total else mhs[i].diskon:=0;

     writeln('total harga:', mhs[i].total);

     writeln('diskon:',mhs[i].diskon:0:2);

     end;

clrscr;

writeln('no':2,'nama barang':8,'harga':8,'jumlah':8,'total':10,'diskon':8);

for i:=1 to n do

begin

writeln(i:2,'',mhs[i].namabarang:8,mhs[i].harga:8,mhs[i].jumlah:8,mhs[i].total:10,mhs[i].diskon:8);

end;

for i:=1 to n do

begin

totalsemua:=totalsemua+(mhs[i].total-mhs[i].diskon);

end;

writeln('total pengeluaran:',totalsemua);

end.

KEUTAMAAN MALAM LAILATUL QADAR

Dalam Firman Allah SWT telah dijelaskan sebagai berikut, yang artinya:

  خَيْرٌ الْقَدْرِ لَيْلَةُ ( ) الْقَدْرِ لَيْلَةُ مَا أَدْرَاكَ وَمَا ( )الْقَدْرِ لَيْلَةِ فِي أَنزَلْنَاهُ إِنَّا

( )أَمْرٍ كُلِّ مِّن رَبِّهِم بِإِذْنِ فِيهَا وَالرُّوحُ الْمَلَائِكَةُ تَنَزَّلُ ( )شَهْرٍ أَلْفِ مِّن

                                             ( ) الْفَجْرِ مَطْلَعِ حَتَّىٰ هِيَ سَلَامٌ

“Sesungguhnya Kami telah menurunkannya (Al Qur’an) pada malam kemuliaan (Lailatul Qadr). Dan tahukah kamu apakah malam kemuliaan (Lailatul Qadr) itu? Malam kemuliaan itu (Lailatul Qadr) lebih baik dari seribu bulan. Pada malam itu turun malaikat-malaikat dan malaikat Jibril dengan izin Rabbnya untuk mengatur segala urusan. Malam itu penuh kesejahteraan sampai terbit fajar”. (Al-Qadr: 1-5)

Dari Firman Allah SWT diatas, menjelaskan keutamaan dari 1 malam lailatul qadar itu ialah 1000 bulan atau sekitar 83 tahun 3 bulan lebih. Itu artinya dengan mendapatkan satu malam lailatul qadar, maka pahalanya setara dengan 83 tahun lebih kita melakukan kebaikan. Bila kita hitung kembali usia rata-rata orang saat ini berkisar antara 80 tahunan. Itu pun masih dipotong dengan banyak hal diantaranya:

1.      Tidur sekitar 8 jam perhari, dengan rincian :

Ø  8 jam x 365 hari=2920 jam

Ø  2920 jam x 80 tahun =233600 jam = 9734 hari = 324 bulan =27 tahun

Jadi kesimpulannya dari hidup kita selama 80 tahun kita menghabiskan 27 tahun untuk tidur.

2.      Dan juga dipotong usia sebelum kita baliqh yang berkisar antara 13 tahun.

Jadi usia yang di habiskan untuk tidur dan sebelum baliqh adalah sebagai berikut:

Ø  27 tahun + 13 tahun = 40 tahun.

Dengan demikian, berarti hanya 40 tahun waktu yang kita habiskan untuk mengejar pahala dan beraktifitas selama kita hidup 80 tahun. Itupun bila kita diberikan anugrah hidup selama itu. Karena umat Nabi Muhammad saw hanya di beri waktu hidup selama 60-70 tahun, kalaupun lebih dari itu adalah sebuah bonus dari Allah SWT. Hal ini tidak sebanding dengan keutamaan yang telah Allah SWT janjikan kepada kita di malam lailatul qadar.

Oleh Karena itu, kita sebagai hamba yang ingin mendapatkan ridho dan surga-Nya. Marilah mulai Ramadhan tahun ini, kita mengejar keutamaan malam lailatul qadar. Karena, malam lailatul qodar sangan sayang untuk dilewatkan, karena belum tentu kita dapat berjumpa pada Ramadhan berikutnya. Yang artinya kembali lagi pada waktu yang Allah SWT berikan pada kita. Pergunakan hidup kita dengan sebaik mungkin.

Resep membuat Tempoyak

            Hai sobat, karena kemarin saya telah membahas masalah aksara jawa, kali ini saya akan membahas masalah masakan tradisional dari daerah sumatra. Kenapa saya membahas masakan, karena indonesia itu juga terkenal dengan beragaman kulinernya, kali ini saya akan membahas tentang tempoyak.

            Kalian mungkin sedikit asing dengan masakan satu ini. Tempoyak adalah masakan hasil permentasi dari daging durian. Biasanya tempoyak diolah dengan ikan air tawar.

Ø  Cara membuat tempoyak

1.      Pisahkan daging durian dengan biji,

2.      Daging durian yang telah terpisah dengan biji di berikan sedikit garam lalu di aduk hingga rata,

3.      Setelah diaduk rata daging durian di simpan pada wadah tertutup rapat, jangan terlalu penuh,

4.      Diamkan selama satu minggu, daging durian akan mengembang di dalam wadah, dan gas dari daging durian sudah berkurang,

5.      Tempoyak telah siap diolah.

Ø  Salah satu cara mengolah tempoyak menjadi sambal

1.      Bumbu halus

·         2 siung bawang putih

·         4 butir bawang merah

·         3 buah cabe merah

·         5 buah cabe rawit

·         Kunyit 2cm

·         1 batang serai

2.      Bahan

·         Tempoyak secukupnya

·         Gula pasir secukupnya

·         Garam secukupnya

·         Minyak goreng secukupnya

·         Air secukupnya

3.      Cara memasak

·         Tumis bumbu halus hingga harum

·         Masukkan tempoyak (sesuai selera), tambahkan garam, dan gula, masukan air sesuai selera (ingin banyak kuah, tambahkan agak banyak)

·         Diamkan hingga agak mengental, angkat

·         Tempoyak siap disajikan

*bisa ditambah dengan isi ikan, tahu atau lainnya

AKSARA JAWA

            Yuk belajar aksara jawa, jangan karena sibuk belajar bahasa asing jadi lupa dengan salah satu bahasa tradisional yang ada Indonesia yang mulai dilupakan. Kita harus tetap melestarikannyakan, kalau bukan kita siapa lagi yang akan melestarikan bahasa ini.

            Atu harus menunggu bahasa ini di klam bangsa lain baru kita akan memperjuangkannya?

selamat mencoba, dan semoga bermanfaat...

Penyebab dan Penanganan terhadap Gangguan Makan

kali ini saya akan melanjutkan pembahas posting kemarin, yaitu mengenai penybab gangguan makan serta cara menanganinya.

1.     Penyebab gangguan makan

Selain tekanan sosial kultural faktor-faktor kausal lainnya adalah :

                                  i.            kerentanan biologis dan genetik (gangguan ini cenderung mengalir dalam keluarga).

                                ii.            Faktor-faktor psikologis (self-esteem yang rendah), kecemasan sosial (takut ditolak), dan

                              iii.            citra tumbuh yang terdistorsi (individu yang berat badannya relatif normal merasa dirinya gemuk dan jelek).

2.      Penanganan gangguan makan

Beberapa penanganan psikososial berupa pendekatan-pendekatan kognitif-behavioral yang dikombinasikan dengan terapi keluarga dan psikoterapi interpersonal. Penangan dengan obat kurang efektif. Karena biasanya akan menimbulkan efek samping

Gangguan Makan

Gangguan  makan merupakan masalah kesehatan yang sering dianggap bukan suatu masalah yang penting. Padahal, gangguan makan pada diri seseorang harus diatasi. Gangguan makan merupakan masalah kesehatan pada remaja muda (adolescence) dan merupakan respon merusak diri sendiri secara tidak langsung.

Makan adalah kebutuhan manusia untuk bertahan hidup. Manusia perlu melakukannya dengan benar agar tetap sehat. Sebagian besar dari kita mengatasi gangguan makan dengan santai karena terlihat tidak fatal,  namun gangguan ini cukup serius sebagaimana penyakit psikosomatis lainnya.

Ada beberapa jenis gangguan makan yang pada akhirnya menyebabkan masalah kesehatan yang serius, seperti obesitas, masalah lambung, tekanan darah rendah, dan sebagainya. Seringkali remaja menderita gangguan makan selama bertahun-tahun dan bahkan tidak menyadarinya. Berikut beberapa jenis gangguan makan yang paling sering dialami, sebagaimana di lansir Boldsky :

1.     Bulimia nervosa

Ini merupakan gangguan makan yang membuat penderita berpesta pada makanan-makanan, lalu setelahnya penderita segera mengeluarkan makanan tersebut dengan berbagai cara. Penderita  bisa saja memuntahkan makanan-makanan tersebut karena merasa berdosa telah menyantap makanan-makanan yang dikonsumsi. Ini merupakan prinsip dosa dan pembersihan

2.     Anorexia

Anorexia merupakan gangguan makan yang seringkali terjadi pada gadis remaja. Mereka seringkali terobsesi memiliki tubuh yang ramping bagaikan model fashion sehingga dia selalu menolak mengasup berbagai macam makanan. Singkat kata, mereka terlalu takut untuk menjadi gemuk. Penderita anorexia seringkali olahraga berlebihan, menghilangkan banyak kalori dan membiarkan diri mereka kelaparan. Banyak remaja menderita anorexia dan akhirnya merusak sistem pencernaan mereka.

3.     Gangguan makan kompulsif

Penderita  gangguan kompulsif tidak bisa berhenti makan. Dengan kata lain, penderita memiliki kecanduan makanan, bahkan ketika tidak lapar penderita tidak bisa berhenti makan apa yang di suka.

4.     Sindrom makan malam

Penderita gangguan makan ini, akan menunda makan sampai malam hari dan mengatakan kepada diri sendiri bahwa dia sedang diet, ketika dia benar-benar lapar di malam hari   akan banyak makan, tetapi kemudian penderita sulit tidur. Pola ini berulang dan menjadi rutinitas, sebagai hasil dari kebiasaan makan yang tidak seimbang dan tidak sehat, serta akan menambah berat badan yang selanjutnya akan menimbulkan masalah yang lain.

5.     Pica

Orang dengan gangguan ini memiliki keinginan kompulsif untuk makan, menjilat, atau mengunyah hal yang benar-benar tidak layak disebut makanan. Mungkin kita sering mendengar ada orang yang suka mengkonsumsi kapur tulis di sekolah atau juga ada yang suka sekali memakan tisu atau kertas, bisa juga yang lain seperti lem, cat, lilin, sabun, dan lain-lain. Dalam beberapa kasus pica dapat dihubungkan dengan kekurangan mineral tertentu, selain itu penderita pica disertai dengan masalah perkembangan.

Gangguan-gangguan  makan ini terjadi dalam kehidupan manusia dalam konteks biologis, atau karena masalah psikologis dan bisa terjadi karena fenomena perkembangan manusia dan kebiasaan aneh menurut pendapat masyarakat awam di kalangan masyarakat.

6.     Obesitas

Kegemukan atau obesitas adalah suatu kondisi medis berupa kelebihan lemak tubuh yang terakumulasi sedemikian rupa sehingga menimbulkan dampak merugikan bagi kesehatan, yang kemudian menurunkan harapan hidup dan/atau meningkatkan masalah kesehatan.Seseorang dianggap menderita kegemukan (obese) bila indeks massa tubuh (IMT), yaitu ukuran yang diperoleh dari hasil pembagian berat badan dalam kilogram dengan kuadrat tinggi badan dalam meter, lebih dari 30 kg/m2.

Kegemukan meningkatkan peluang terjadinya berbagai macam penyakit, khususnya penyakitjantung, diabetes tipe 2,apnea tidur obstruktif, kanker tertentu, osteoartritis dan asma. Kegemukan sangat sering disebabkan oleh kombinasi antara asupan energi makanan yang berlebihan, kurangnya aktivitas fisik, dan kerentanan genetik, meskipun sebagian kecil kasus terutama disebabkan oleh gen, gangguan endokrin, obat-obatan atau penyakit psikiatri. Hanya sedikit bukti yang mendukung pandangan bahwa orang yang gemuk makan sedikit namun berat badannya bertambah karena metabolisme tubuh yang lambat; rata-rata orang gemuk mengeluarkan energi yang lebih besar dibandingkan orang yang kurus karena dibutuhkan energi untuk menjaga massa tubuh yang lebih besar. Pengaturan diet dan aktivitas fisik masih menjadi tata laksana utama kegemukan.

Kualitas asupan dapat diperbaiki dengan mengurangi konsumsi makanan padat energi contohnya makanan yang tinggi lemak dan gula, serta dengan meningkatkan asupan serat. Obat-obatan anti-kegemukan dapat dikonsumsi untuk mengurangi selera makan atau menghambat penyerapan lemak, disertai dengan asupan diet yang tepat. Apabila diet, olahraga, dan obat-obatan belum efektif, maka balon lambung dapat membantu mengurangi berat badan, atau operasi dapat dilakukan untuk mengurangi volume lambung dan/atau panjang usus sehingga dapat memberikan rasa kenyang yang lebih dini dan menurunkan kemampuan penyerapan nutrisi dari makanan.

Kegemukan adalah penyebab kematian yang dapat dicegah paling utama di dunia, dengan prevalensi pada orang dewasa dan anak yang semakin meningkat, sehingga pihak berwenang menganggap kegemukan sebagai salah satu masalah kesehatan masyarakat paling serius pada abad 21. Kegemukan umumnya merupakan stigma di dunia modern (khususnya di Dunia barat), meskipun pada suatu waktu dalam sejarah, kegemukan secara luas dianggap sebagai simbol kekayaan dan kesuburan, dan masih dianggap demikian di beberapa bagian di dunia hingga sekarang.

semoga bermanfaat..