ARRAY DAN RECORD

http://www.nusinau.com/array-dan-record/

ARRAY

Suatu hari karena melihat kemajuan teknologi seorang guru ingin mengetahui bilangan prima yang ada pada bilangan antara 1 sampai dengan 200 tanpa harus menghitung manual,maka guru tersebut menyuruh anaknya yang seorang programmer untuk membuatkan program mencari bilangan prima antara 1 sampai 200, si programmer membuat program tersebut dengan turbo pascal,program tersebut dibuat dengan bagian dari pascal yaitu array, maka dibuatlah program tersebut :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Program Mencari_Bilangan_Prima_Dengan_Array; Uses winCrt; Var   Prima : Array[1..200] of Integer;   i,j : Integer;   bil : Integer; Begin   ClrScr;   For i := 2 to 200 Do   Begin     Prima[i]:=i;     For j:= 2 to i-1 Do     Begin       bil := (i mod j); {* i dibagi j dicek apakah 0*}       If bil = 0 then Prima[i]:=0; {*jika habis dibagi,berarti bkn prima*}     End;     If Prima[i] 0 Then Write(Prima[i],' '); {*cetak array yg prima*}   End;   Readln; End.

Program tersebut mencari bilangan prima cara kerja dari program tersebut adalah mengecek apakah bilangan yang ada dapat dibagi dan habis atau tidak,jika bilangan tersebut habis dibagi maka bukan bilangan prima,tapi jika tidak habis dibagi berarti prima,terus berulangan sampai dengan angka 200.

RECORD

Pada kasus ini ada seorang kasir sebuah penginapan membutuhkan sebuah program untuk merecord data seorang wisatawan yang akan menginap pada sebuah hotel.Record tentang nama,Jenis Kelamin,Alamat,Umur.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Uses wincrt; Type   wisatawan = Record   Nama              : string[30];   JenisKelamin     : string[20];   Alamat            : string[20];   Umur              : real; end; Var   Wstw:Wisatawan; Begin   ClrScr;   write ('Nama:');ReadLn(Wstw.Nama);   write ('Alamat:');Readln(Wstw.Alamat);   write ('Jenis Kelamin:');Readln(Wstw.JenisKelamin);   write ('Umur:');Readln(Wstw.Umur);   Writeln;   Writeln('Nama Anda:',Wstw.Nama);   Writeln('Alamat Anda:',Wstw.Alamat);   Writeln('Jenis Kelamin Anda:',Wstw.JenisKelamin);   Writeln('Umur Anda:',Wstw.Umur:0:0); End.

1. Assignment operator (operator pengerjaan) menggunakan simbol titik dua diikuti oleh tanda sama dengan (:=). Contoh –> A:=B;
2. Binary operator digunakan untuk mengoperasikan dua buah operand yang berbentuk konstanta ataupun variable. Operator ini digunakan untuk operasi arithmatika yang berhubungan dgn nilai tipe data Integer dan Real. Operasi yang dilakukan adalah : Pertambahan (+), Pengurangan (-), Perkalian (*), Pembagian Bulat (DIV), Pembagian Real (/) dan Modulus atau Sisa Pembagian (MOD)
3. Unary operator, operator ini menggunakan sebuah operand saja dapat berupa unary minus dan unary plus. Contoh : +2.5, a+(+b) dll
4. Bitwise operator digunakan untuk operasi bit per bit pada nilai integer.
Operator yang digunakan (NOT, AND, OR, XOR, Shl, Shr)

Posted in: Program Komputer