Contoh Program Array Dalam Pascal

Uses Wincrt;
Var
  I         :Longint;
  Nm        :Array[1..100]Of String[25];
  Hk,Subt   :Array[1..100]Of Real;
  Lm        :Array[1..100]Of Integer;
  Tot       :Real;
                                                           
Begin
  I:=1;
  While(I<=3) Do
      Begin
        Writeln('Data Ke :',I);
        Writeln('===========');
        Write('Inputkan Nama Tamu :');Readln(Nm[I]);
        Write('Inputkan Lama Menginap :');Readln(Lm[I]);
        Write('Inputkan Harga Kamar :');Readln(Hk[I]);
        Subt[I] :=Lm[I] * Hk[I];
        Writeln;
        Tot :=Tot + Subt[I];
        I:=I +1;
      End;
  Writeln('--------------------------------------------------');
  Writeln('No            Nama   Lama        Harga   Sub      ');
  Writeln('              Tamu   Menginap    Kamar   Total    ');
  Writeln('--------------------------------------------------');
      For I:=1 To 3 Do
        Begin
          Writeln(I:3,Nm[I]:15,Lm[I]:10,Hk[I]:10:0,Subt[I]:8:0);
        End;
  Writeln('--------------------------------------------------');
  Writeln('Total :',Tot:12:0);

End.  

Array Entri Data Program Pascal

Uses Wincrt;

Var
Name :Array[1..100] Of String[25];
Age :Array[1..100] Of String[25];
Job :Array[1..100] Of String[25];
Addres:Array[1..100] Of String[25];
I,Jd :Integer;


Begin
Write('How Must Data You Want : ');Readln(Jd);
For I := 1 To Jd Do
Begin
Write('Name : ');Readln(Name[I]);
Write('Age : ');Readln(Age[I]);
Write('Job : ');Readln(Job[I]);
Write('Addres : ');Readln(Addres[I]);
End;

Writeln('Data Member Teater Club');
Writeln('=============================================');
Writeln('No Name Age Job Addres ');
For I:= 1 To Jd Do
Begin
Writeln(I:2,Name[I]:7,Age[I]:10,Job[I]:7,Addres[I]:15 );
End;
Writeln('=============================================');


End.

Suara Tidak Muncul

Tidak munculnya suara dapat disebabkan beberapa alasan dibawah ini mungkin salah satunya beserta solusinya, sebagai berikut :

1.       Jika pada awalnya speaker kalian baik-baik saja dan kemudian tiba-tiba tidak muncul suara tersebut pastikan dulu settingan suara tidak dalam keadaan kondisi mute.

Untuk mengetahui mute atau tidakna kalian dapat melihatna pada taskbar dikanan bawah desktop computer kalian terdapat ikon

 

Bisa saja speaker tersebut dalam keadaan mute yang akibatnya suara pada waktu menyalakan MP3 tidak muncul. Bagaimana mengubah setting mute menjadi normal, agar suara bisa keluar kembali ? Kalian dapat melakukan langkah-lanhkah sebagai berikut :

a.       Klik pada ikon speaker tersebut kanan bawah computer kalian.

b.      Hilangkan tanda centang/tanda merah pada mute.

                              

2.       Jika speaker kalian sudah mengeluarkan suara tetapi masih pelan, mungkin ada baiknya melakukanna pengaturan volume. Langkah-langkah yangt dapat kalian lakukan adalah sebagai berikut  :

a.       Klik dua kali pada ikon speaker kanan bawah tersebut.

b.      Muncul Volume Contro. Atur setting suara terutama pada bagian Volume Control dan Wave untuk mendapatkan kualitas suara yang kalian inginkan.

3.       Instal ulang soundcard kalian, jika memang soundcard kalian telah rusak mungkin  memang harus diganti. Mengenai kualitas suara jika suara yang keluar pecah, kalian juga dapat menginstal ulang driver soundcard kalian untuk mendapatkan kualitas suara yang kalian inginkan.

Mengosongkan Recycle Bin

Ketia menghapus sebuah file (selain menekan tombol Shif + Del), file tersebut akan terkirim ke sebuah tempat yang bernama Recycle Bin. Recycle Bin merupakan tempat penyimpanan file-file yang kalian buang secara sementara, sebelum akhirnya kalian buang secara permanen. File-file yang yang kalian buang ke Recycle Bin masih dapat kalian kembalian ke folder asalnya dengan melakukan langkah-langkah sebagai berikut :

1.       Buka Recycle Bin.

2.       Klik kanan pada file yang akan kalian kembalikan → Restore.

Selama file-file ada di Recycle Bin, sisa harddisk kalian belum berubah. Tentu saja hal tersebut masih membebani harddisk kalian. Semakin penuh harddisk, kinerja laptop akan semakin lambat. Supaya kapasitas harddisk lebih longgar, kalian harus menghapus secara permanen file-file tersebut. Namun, sebelum menghapus secara permanen, pastikan file tersebut sudah tidak kalian butuhkan (atau kalian sudah mempunya backupnya).

Langkah-langkah yang dapat  kalian lakukan adalah sebagai berikut :

1.       Klik kanan ikon Recycle Bin yang terdapat didesktop kemudian klik Empy Recycle Bin.

2.       Klik Yes.