Skip to main content

Array Lanjutan Pascal

array pascal

ARRAY Terhadap RECORD 

Array juga bisa digunakan untuk record data dengan ketentuan sebagai berikut: 

  • Record harus merupakan tipe data yang terstruktur yang harus dideklarasikan sendiri 
  • Record harus terdiri dari beberapa field dimana pada setiap field harus dinyatakan namanya dan tipe dari field tersebut 
  • Deklarasi pada record dapat dinyatakan pada bagian isian atau blok dari TYPE dan pada blok VAR 
  • Untuk dapat melakukan pengolahan terhadap field dapat dilakukan dengan 2 cara seagai berikut : 1.perintah titik  2.statement WITH 


Dibawah ini adalah contoh pendeklarasian record pada pascal : 

TYPE   mahasiswa  =  RECORD   
Nama :  string [15] ;   
BP :  string [8] ;   
Umur :  integer ;  
END; 
VAR  mhs  :  mahasiswa; { hanya untuk 1 orang mahasiswa }

Membaca field array dengan menggunakan cara pertama yaitu dengan perintah titik : 

Write ('Nama : '); readln (mhs.nama); 
Write ('Nobp : '); readln (mhs.nobp); 
Write ('Umur : '); readln (mhs.umur);


Untuk cara kedua dapat menggunakan statement WITH seperti berikut: 

WITH mhs DO   
BEGIN Write ('Nama : '); readln (nama); 
Write ('BP : '); readln (BP);   
Write ('Umur : '); readln (umur);   
END ;


Untuk dapat menampung data Record variabel Array juga dapat digunakan, silakan kalian coba coding berikut ini :
KALIAN BISA MENCOBANYA DISINI KLIK INI

program tipe_record_array;
uses crt;
 
type
  rec_siswa =
    record
      nama: string[20];
      umur: integer;
      sekolah: string[30];
      kota: string[20];
    end;
 
var
  siswa: array [0..5] of rec_siswa;
 
begin
  clrscr;
  
  siswa[0].nama:= 'Fajar Yusuf';
  siswa[0].umur:= 17;
  siswa[0].sekolah:= 'SMK Triple J';
  siswa[0].kota:= 'Citereup';
  
  writeln('Nama : ',siswa[0].nama);
  writeln('Umur : ',siswa[0].umur);
  writeln('Sekolah : ',siswa[0].sekolah);
  writeln('Kota : ',siswa[0].kota);
  
  writeln;
  
  siswa[1].nama:= 'Nur Eka Insani';
  siswa[1].umur:= 16;
  siswa[1].sekolah:= 'SMA SEMPUR';
  siswa[1].kota:= 'Cibinong';
  
  writeln('Nama : ',siswa[1].nama);
  writeln('Umur : ',siswa[1].umur);
  writeln('Sekolah : ',siswa[1].sekolah);
  writeln('Kota : ',siswa[1].kota);

end.

Labels:

Comments

Post a Comment

Popular posts from this blog

Menambahkan Peraturan Komentar Pada Blog

Menambahkan Peraturan Komentar Pada Blog : Ngblog Menulis sebuah artikel dan dikomentari dengan link aktif/promosi produk dan kata kata spam lainnya memang tidak mengenakan anda mungkin akan sangat merasa kecewa sekali, anda mungkin seperti menulis sebuah artikel namun tidak dihargai karyanya oleh orang lain. Mungkin membuat aturan berkomentar di blog adalah salah 1 cara menetralisirnya, mungkin jika ada aturan tersebut orang berpikir 2 kali untuk meninggalkan komentar Spam, lalu bagaimana cara membuat aturan komentar tersebut? langsung saja kita praktekan Ikuti langkah berikut : Login ke bloger,masuk ke blog yang anda inginkan, Klik Setelan -> POS-KOMENTAR   Scroll kebawah dan cari menu "pesan formulir komentar" klik tambahkan , dan isi kolom sesuai keinginan kalian atau peraturan yang kalian inginkan.  Setelah selesai silakan klik simpan setelan dipojok kanan atas. Lihat hasilnya di blog kalian ,akan seperti ini : Jika ada pertanyaan...
21 comments
Baca Lebih »

Kumpulan Script Jail Batch dan VBS

Kumpulan Script Jail Batch dan VBS Hallo pembaca fajaryusuf.com. Kali ini saya akan berbagi Kumpulan Script Jail Menggunakan Notepad. Script berikut hanya untuk jahil.. Untuk membuat script ini aktif yang Anda butuhkan adalah : 1. Notepad 2. PC/Laptop 3. Nah sekarang tinggal copy paste scriptnya ke notepad,, langsung saja dicoba : MESSAGES YG NONGOL TERUS MENERUS SECARA OTOMATIS @ECHO off :Begin msg * muka lo jelek msg * ngaca dulu gih msg * hayo lo,cpu lu gw acak2 msg * ud install ulang aja msg * biar masalah nya kelar GOTO BEGIN Save nama script diatas dg ekstensi *.bat BIKIN SHUTDOWN + MESSAGES @echo off msg * apaan sih lo shutdown -s -c "Error! muka mu standar abis" Save nama script diatas dg ekstensi *.bat MAININ CAPS LOCK BUTTON Set wshShell =wscript.CreateObject ("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" loop Save nama script diatas dg ekstensi *....
3 comments
Baca Lebih »

TEKNOLOGI ADALAH

TEKNOLOGI ADALAH Pengertian Teknologi  Teknologi adalah berbagai macam keperluan serta sarana yang memiliki bentuk beraneka macam seperti peralatan atau sistem yang berfungsi untuk memberikan kenyamanan juga kemudahan bagi penggunanya. Teknologi berasal dari kata technologia yang berasal dari bahasa yunani. Techno artinya keahlian dan logia artinya pengetahuan.  Awal kemunculan kata teknologi bermakna terbatas pada benda- benda berwujud seperti peralatan-peralatan atau mesin. Dengan berjalannya waktu maka makna dari teknologi mengalami perubahan dan perluasan makna. Teknologi tidak terbatas pada benda berwujud, tetapi juga benda yang tidak berwujud. Misalnya perangkat lunak, sebuah mertode, metode pembelajaran, metode keuangan, dan lain sebagainya. Pengertian Teknologi Menurut Para Ahli Teknologi merupakan kegiatan pengembangan dan penerapan berbagai peralatan atau sistem untuk menyelesaikan masalah dan persoalan yang dihadapi manusia dalam kehidupan seha...
5 comments
Baca Lebih »