Gambar Gokil

Anda ingin melihat yang gokil-gokil silahkan download gambarnya disini

record

Record
Kumpulan elemen-elemen data yang digabungkan menjadi satu kesatuan. Masing-masing elemen data tersebut dikenal dengan sebutan field. Field data tersebut memiliki data yang sama atapun berbeda.

Field-field tersebut digabungkan menjadi satu dengan tujuan untuk memudahkan. Misalnya ingin mencatat data-data pegawai atau mahasiswa atau pelajar dalam sebuah program. Record mahasiswa terdiri dari field-field NIM,Nama, alamat,IPK.Record Pelajar terdiri dari field-field nama, nomorurut,alamat,jumlahnilai.

Bentuk umum:
    type
    <namarecord>=record
                <datafield1>:<tipe1>;
                <datafield2>:<tipe2>;
End;
Contoh:
    type     mahasiswa = record
            Nim : string[10];
            nama:string[20];
            alamat:string[30];
            IPK : real;
    end;
    var
        mhs:mahasiswa;           
       

Untuk lebih jelasnya saya akan menampilkan contoh sederhana scrtip program penggunaan record dalam pascal yang mana untuk menampilkan table biodata.

program record;
uses wincrt;
type
    isi=record
              nama:string[30];
              nip:string[10];
              umur:integer;
     end;
var data:array[1..10] of isi;
   k,l:integer;
    m,n:byte;
   ulang:char;

begin
k:=0;
while ulang<>'t' do
      begin
      k:=k+1;

writeln('       form identitas ');
writeln('       ============== ');
      write('Nama : ');readln(data[k].nama);
      write('Nip : ');readln(data[k].nip);
      write('Umur : ');readln(data[k].umur);
      writeln;writeln;
      write('ulangi! y/t: ');readln(ulang);
       clrscr;
      end;
gotoxy(10,1);writeln('TABEL BIODATA');
gotoxy(1,2);write('+==========+=======+========+');
gotoxy(1,3);write('| Nama');
gotoxy(12,3);write('| NIP');
gotoxy(20,3);write('| Umur');
gotoxy(29,3);write('|');
gotoxy(1,4);write('+==========+=======+========+');
for l:=1 to k do
begin
gotoxy(1,4+l);write('| ',data[l].nama);
gotoxy(12,4+l);write('| ',data[l].nip);
gotoxy(20,4+l);write('| ',data[l].umur);
gotoxy(29,4+l);write('|');
end;
gotoxy(1,5+l);write('===========+=======+========+');
end.

bentuk run:

membuat grafik dengan array

Array:
    Merupakan suatu tipe data terstruktur yang terdiri dari sejumlah elemen (tempat) yang mempunyai  data yang sama.
Nama lain array adalah larik,tabel atau vektor.
Array dapat berupa satu dimensi, dua dimensi, tiga dimensi ataupun banyak dimensi
contoh penggunaan array

Membuat grafik dengan pascal
    Diini saya akan membuat sebuah grafik, yang mana dari grafik tsb menggunakan type array. alasan digunakannay array karena dalam sbuah grafik tentunya
yang di data adalah jenis data yang sama, dari data pertama hingga berikutnya dengan ini data yang berbeda. contohnya grafik tingkat penduduk. dari thn 1 hingga selanjutnya tentunya tidak mesti nilainya sama.


program grafik1;
uses wincrt;
var data               :array[1..10]of integer;
    a,pnddk            :integer;
    b,c,x              :byte;
begin
writeln('Tingkat Kependudukan');
gotoxy(20,3);writeln('Skala 1:100');
gotoxy(3,4);write('Y');
for b:=0 to 10 do
begin
gotoxy(0,15-b);
write(b);
end;
for a:=1 to 10 do
begin
gotoxy(3,15-a);
write('|');
end;
for c:=1 to 9 do
begin
gotoxy(4*c,15);
write('========');
end;
write('X');writeln;writeln;
gotoxy(25,17);writeln('tahun');
writeln;writeln;writeln('PERINGATAN!!');
write(' Bila input >10 maka grafik tidak membacanya');
for c:=1 to 8 do
begin
gotoxy(4*c,16);
write('0',c);
end;
for pnddk:=1 to 8 do
begin
    
gotoxy(45,4+pnddk);write(pnddk,'.Tingkat penduduk pd thn ke',pnddk,':');
readln(data[pnddk]);
if (data[pnddk]>10) then
   begin
   data[pnddk]:=0;
   end;

     {batang grafik}
     for x:=1 to data[pnddk] do
     begin
     gotoxy(4*pnddk,15-x);write('|',x,'|');
     end;
end;
end.

dari program diatas Maka didapat run seperti ini.

membuat segitiga dengan pascal

kali ini saya akan menampilkan script program segi tiga yang mana segitiga tsb hanya menampilkan  sisi miringnya saja.

uses wincrt;
var d:integer;
    a,b,c:byte;
    ulang:string;
begin
while ulang<>'t' do
begin
write('panjang sisi miring :');readln(a);
d:=a*2;
if a>=1 then
begin
write('Alas pada segi3 sama kaki : ',d);
b:=0;
gotoxy(10,10);
write('*');
repeat
b:=b+1;
       begin
       gotoxy(10+2*b,10);write('*');
       gotoxy(10+2*b,10-b);write('*');
       end;
until b=a;
c:=0;
repeat
c:=c+1;
      begin
      gotoxy(10+a*2+c*2,10);
      write('*');
      gotoxy(10+a*4-c*2,10-c);
      write('*');
      end;
until c=a;
end
else
begin
write('alas pada segi3 sama kaki : ',a);
end;
gotoxy(0,25);readln(ulang);
clrscr;
end;
end.

contoh hasil dari programnya seperti ini

program ascii dengan pascal

program ascii;
uses wincrt;
var karakter : char ;
    askii: integer;
begin
writeln('program menentukan ASCII');
write('masukan karakter = ');
readln(karakter);
writeln('');
writeln('');
writeln('karakter yang dimasukan : ',karakter);
askii:= ord(karakter);
writeln('ascci karakter tersebut adl : ',askii);
end.