Begitulah tampilan yang saya buat saat praktikum mata kuliah Algoritma dan Pemrogramman di Semester 1, sebenarnya sih saya gagal membuat tampilan ini ketika di lab saya kurang paham waktu itu hehe, dan akhirnya saya menyelesaikannya dirumah karena rasa keiingin tauan yang tinggi akhirnya saya paham juga hehe. Seharusnya saya postingkan ini sebelum artikel artikel pemrogramman yang sudah terposting, karena ini adalah program pertama yang saya buat.

        Yang harus diperhatikan dalam membuat tampilan ini adalah posisi peletakkan posisi awal untuk window (jendela) dan posisi akhir windownya. Misal untuk membuat jendela yang pertama window(2,2,38,24). Angka 2,2 di sana menunjukkan posisi awal window, yaitu pada titik koordinat x=2 dan y=2 (x horizontal dan y vertikal). Sedangkan angka 38,24 di sana menunjukkan posisi akhir window, yaitu pada titik koordinat x=38 dan y=24. Untuk lebih detailnya Anda dapat melihat codingannya.
        Berikut adalah coding untuk Membuat Tampilan Keren Di Program Console Pascal yaitu tampilan ekspresi muka :

program Hello_This_is_my_Ekspression;
uses crt;
begin
  { jendela 1 }
  window(2,2,38,24);
  textbackground(brown);
  clrscr;
  { Mata }
  window(3,3,15,7);
  textbackground(white);
  clrscr;
  window(5,5,13,6);
  textbackground(black);
  clrscr;
  window(25,3,37,7);
  textbackground(white);
  clrscr;
  window(27,5,35,6);
  textbackground(black);
  clrscr;
  { hidung }
  window(19,8,21,9);
  textbackground(5);
  clrscr;
  window(18,9,22,10);
  textbackground(5);
  clrscr;//bayubayyz.blogspot.com
  window(17,10,23,13);
  textbackground(5);
  clrscr;
  window(15,13,25,15);
  textbackground(5);
  clrscr;
  window(17,14,19,15);
  textbackground(0);
  clrscr;
  window(21,14,23,15);
  textbackground(0);
  clrscr;
  { bibir }
  window(5,17,6,18);
  textbackground(4);
  clrscr;
  window(6,18,8,19);
  textbackground(4);
  clrscr;
  window(7,19,33,20);
  textbackground(4);
  clrscr;
  window(9,20,31,21);
  textbackground(4);
  clrscr;
  window(12,21,29,23);
  textbackground(4);
  clrscr;
  window(32,18,34,19);
  textbackground(4);
  clrscr;
  window(34,17,35,18);
  textbackground(4);
  clrscr;
  { gigi }
  window(11,20,29,20);
  textbackground(7);
  { jendela 2 }
  clrscr;
  window(42,2,78,24);
  textbackground(brown);
  clrscr;
  { mata }
  window(43,3,55,7);
  textbackground(white);
  clrscr;//10113218
  window(45,5,53,6);
  textbackground(black);
  clrscr;
  window(65,3,77,7);
  textbackground(white);
  clrscr;
  window(67,5,75,6);
  textbackground(black);
  clrscr;
  { hidung }
  window(59,8,61,9);
  textbackground(black);
  clrscr;
  window(58,9,62,10);
  textbackground(black);
  clrscr;
  window(57,10,63,13);
  textbackground(black);
  clrscr; //by bayuwpp
  window(55,13,65,15);
  textbackground(black);
  clrscr;
  window(57,14,59,15);
  textbackground(white);
  clrscr;
  window(61,14,63,15);
  textbackground(white);
  clrscr;
  { bibir }
  window(53,17,67,19);
  textbackground(4);
  clrscr;
  window(51,19,69,20);
  textbackground(4);
  clrscr;
  window(49,20,71,21);
  textbackground(4);
  clrscr;
  window(48,21,50,22);
  textbackground(4);
  clrscr;
  window(47,22,48,23);
  textbackground(4);
  clrscr;
  window(70,21,72,22);
  textbackground(4);
  clrscr;
  window(72,22,73,23);
  textbackground(4);
  clrscr;
  readln;//alpro_praktikum1
end.

        Nah bagaimana sobat ? Cukup  mudahkan hehe, semoga bermanfaat !
Bila Anda belum mempunyai program pascalnya Anda dapat mendownloadnya secara free lengkap dengan penjelasan serta tipsnya disini !
Alhamdulillah Artikel mengenai Membuat Tampilan Keren di Program Pascal sudah selesai !







Belum updol bila temen-temen sering menjelajah di Internet tetapi Anda belum mengisi survei singkat online ini ! Klik disini untuk mengisi surveinya !
Tolong bantu ya untuk mengisi survei ini ! Semoga bantuan temen temen mendapat balasan yg berlipat ganda dari Allah SWT, Amin. Tolong yaa!

Contoh Program Pascal - Data Nilai Mahasiswa

Penggunaan array pada program dapat membuat data menjadi dapat di olah secara tersusun berurutan dari 1 sampai nilai yang kita tentukan atau sebuah nilai pada konstanta. Sedangkan record itu sendiri merupakan kumpulan variabel data yang disimpan dalam sebuah wadah menjadi satu. Record dapat kita misalkan sebuah lemari yang di dalamnya dapat menyimpan berbagai macam bagian untuk pakaian seperti bagian baju, bagian celana, bagian surat surat penting dsb yang di simpan dalam lemari tersebut.

Berikut adalah coding progam membuat daftar nilai mahasiswa dalam pascal dan telah menggunakan array of record :

program Data_Nilai_MAhasiswa;
{I.S : User memasukkan banyaknya data (N) dan record Mahasiswa}
{F.S : Menampilkan Daftar Nilai Mahasiswa (1:N)}
//bayubayyz.blogspot.com
uses crt;
{Nama Konstanta}
const
    Maks_Mhs = 50; {Jumlah Maksimum Mahasiswa}
{Nama Tipe}
type
    Data_Mhs = record {Data Mahasiswa}
               NIM,Nama : string;
               Nilai    : integer;
               Indeks   : char;
               end;
    Mahasiswa = array [1..Maks_Mhs] of Data_Mhs; {array of record data mahasiswa}
var
    Mhs : Mahasiswa;
    N,i,IndeksA,IndeksB,IndeksC,IndeksD,IndeksE,Tertinggi,Terendah,TotalNilai       : integer;
    rata_rata : real;

{unikom 2013}
begin

    {Memasukkan Banyak Data}
    textcolor(15);
    write('Banyaknya Data : ');readln(N);
    {Validasi Banyaknya Data}
    while (N < 1) or (N > Maks_Mhs) do
      begin
         textcolor(red);
         writeln('Banyak Data Hanya 1-50, Ulangi !');
         write('Tekan Enter untuk melanjutkan !');
         readln;
         gotoxy(1,2);clreol;
         gotoxy(1,3);clreol;
         gotoxy(18,1);clreol;textcolor(15);readln(N);
      end;
    {Membuat Judul Tabel dan Header}
    clrscr;
    gotoxy(28,1);textcolor(15);
    write('Daftar Nilai Mahasiswa');
    gotoxy(28,2);
    write('======================');
    gotoxy(4,3);
    write('======================================================================');
    gotoxy(4,4);
    write('! No !    NIM    !       Nama Mahasiswa       ! Nilai ! Indeks Nilai !');
    gotoxy(4,5);
    write('======================================================================');

    {Jumlah Mula - Mula Indeks A - Indeks E}
    IndeksA := 0;
    IndeksB := 0;
    IndeksC := 0;
    IndeksD := 0;
    IndeksE := 0;
    {Nilai Tertinggi dan Terendah Mula Mula}
    Tertinggi := -999;
    Terendah  := 999;
    {Mula - Mula Total Nilai}
    TotalNilai := 0;

    {Mengolah Data Mahasiswa}
    for i := 1 to N do
       begin
         {Menampilkan No}

           gotoxy(4,i+5);
           write('!    !           !                            !       !              !');
           gotoxy(6,i+5);
           write(i);

         {Memasukkan NIM, Nama Mahasiswa dan Nilai}
         gotoxy(11,i+5);
         readln(Mhs[i].NIM);
         gotoxy(23,i+5);
         readln(Mhs[i].Nama);
         gotoxy(53,i+5);
         readln(Mhs[i].Nilai);

         {Menentukan Indeks Nilai dan Menghitung Banyaknya IndeksA, IndeksB, IndeksC, IndeksD & IndeksE}
         case (Mhs[i].Nilai) of
            80..100 : begin
                      Mhs[i].Indeks := 'A';
                      IndeksA := IndeksA + 1;
                      end;
            70..79  : begin Mhs[i].Indeks := 'B';
                      IndeksB := IndeksB + 1; end;
            60..69  : begin Mhs[i].Indeks := 'C';
                      IndeksC := IndeksC + 1; end;
            50..59  : begin Mhs[i].Indeks := 'D';
                      IndeksD := IndeksD + 1; end;
            0..49   : begin Mhs[i].Indeks := 'E';
                      IndeksE := IndeksE + 1; end;
         end;{endcase}
         {Menentukan Nilai Rata-rata}
         TotalNilai := TotalNilai + Mhs[i].Nilai;
         rata_rata  := TotalNilai div N;
         {Menentukan Nilai Tertinggi}
         if (Mhs[i].Nilai > Tertinggi)
         then
             Tertinggi := Mhs[i].Nilai;
         {Menentukan Nilai Terendah}
         if (Mhs[i].Nilai < Terendah)
         then
             Terendah := Mhs[i].Nilai;
         {Menampilkan Indeks Nilai}
         gotoxy(66,i+5);
         write(Mhs[i].Indeks);

      end;{endfor}
    {Penutup Tabel}
    gotoxy(4,i+6);
    write('======================================================================');

    {Menampilkan Nilai Rata-rata, Nilai Tertinggi, Nilai Terendah}
    gotoxy(4,i+7);
    write('Nilai Rata rata : ',rata_rata:0:2);
    gotoxy(4,i+8);
    write('Nilai Tertinggi : ',Tertinggi);
    gotoxy(4,i+9);//by bayuwpp
    write('Nilai Terendah  : ',Terendah);

    {Menampilkan Jumlah IndeksA, IndeksB, IndeksC, IndeksD & IndeksE}
    gotoxy(4,i+10);
    write('Jumlah Indeks A : ',IndeksA,' Mahasiswa');
    gotoxy(4,i+11);
    write('Jumlah Indeks B : ',IndeksB,' Mahasiswa');
    gotoxy(4,i+12);
    write('Jumlah Indeks C : ',IndeksC,' Mahasiswa');
    gotoxy(4,i+13);
    write('Jumlah Indeks D : ',IndeksD,' Mahasiswa');
    gotoxy(4,i+14);
    write('Jumlah Indeks E : ',IndeksE,' Mahasiswa');

    gotoxy(23,i+16);textcolor(red);//by bayuwpp
    write('Tekan Enter Untuk Menutup Program !');
    readln;
end. 

Semoga bermanfaat sob



Saya membutuhkan bantuan anda untuk mengisi survei singkat ini. Tolong bantu ya untuk mengisi, gampang ko hanya mengisi nama, email sama 5 pertanyaan saja kawan. Bantu isi ya surveinya disini !!!.
Terimakasih. Semoga bantuan temen temen mendapat balasan yang berlipat ganda dari Allah SWT, Amin