Home > Pascal > ARRAY DAN RECORD

ARRAY DAN RECORD

April 15th, 2009 Author Leave a comment Go to comments

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.
Bookmark and Share
Related Posts
  1. Program Bilangan Prima dengan Menggunakan Bantuan Array
  2. Aljan Array dan Record
  3. Hendra Array & Record
  4. Program Data Mahasiswa
  5. Program yang Menggunakan Record
  6. Perintah With..Do dalam Pascal
  7. Dani Array
  8. Erika Array
  9. Erika Record
  10. Contoh Program Record
Categories: Pascal Tags: ,
  1. chris
    September 16th, 2009 at 23:14 | #1
    Reply | Quote

    thanks for your help…
    ada pencerahan ne….thnks bgt

  2. iqbal umi
    April 3rd, 2010 at 09:23 | #2
    Reply | Quote

    boss bisaki bikin perogram array dalam record!!!

  3. deva
    April 21st, 2010 at 23:08 | #3
    Reply | Quote

    sorry bos masih gelap niy,, tentang record… kalo penerapannya dalam program seperti contoh diatas,, trus beda dengan tidak menggunakan record dimana??? kalo array sudah jelas tu yah.. mohon pencerahannya, makasih

  1. No trackbacks yet.