Archive

Posts Tagged ‘array’

Program dengan Array of String

December 28th, 2009 Nu No comments

Menjawab pertanyaan mas/mbak takirey lagi nih tentang cara membuat program dengan menggunakan array of string. Dengan asumsi program user dapat melakukan input data ke dalam array, kemudian seluruh array akan ditampilkan.

Kira-kira begini penyelesaiannya :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

uses wincrt;
 
var x : array[1..3] of string;
    a : integer;
begin
  for a := 1 to 3 do begin
    write('input ', a, ' : ');
    readln(x[a]);
  end;
 
  writeln;
  write('output : ');
  for a := 1 to 3 do
    write(x[a],' ');
end.
Categories: Pascal Tags: , ,

Program Bilangan Genap

December 26th, 2009 Nu No comments

Sesuai dengan pertanyaan mas/mbak takirey tentang bagaimana menyimpan bilangan genap ke dalam suatu array sebanyak input user.

Kira-kira begini penyelesaiannya :

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

uses wincrt;
var genap : array[1..100] of integer;
    a, b, jum : integer;
begin
  a := 0;
  b := 2;
  write('Jumlah bilangan genap : ');readln(jum);
 
  while a <> jum do begin
    inc(a);
    genap[a] := b;
    b := b + 2;
  end;
 
  writeln;
  writeln('Hasil yang disimpan di array : ');
  for b := 1 to jum do
    writeln('Bilangan genap ke-',b,' : ',genap[b]);
end.
Categories: Pascal Tags: , , , ,

Tipe Data

April 27th, 2009 Author No comments

Dalam algoritma, kita harus bias menentukan tipe-tipe data yang sesuai digunakan dalam penyelesaian masalah. Sehingga computer dapat mengolah dan mendapatkan hasil yang sesuai menurut kebutuhan data.

Ada beberapa tipe data yang harus kita ketahui antara lain :
1. Tipe data Char dan String
Ini merupakan tipe data dasar, tipe data ini didefinisikan pada deklarsi var dibagian algoritma/program.
Example :

  Var Nama : String
  Nilai : Char

Keterangan :

  • Nama merupakan sebuah variabel didefinisikan sebagai variabel bertipe string, maksudnya pada variabel tersebut digunakan untuk menerima masukan sebuah nama yang terdiri dari sekumpulan huruf, dapat berupa huruf besar, kecil, atau campuran kedua-duanya.
  • Nilai, didefinisikan sebagai variabel yang bertipe data char, maksudnya variabel tersebut hanya dapat digunakan untuk memasukkan sebuah huruf dari huruf besar, seperti A, B, C,.. atau huruf kecil, a, b, c, ….

2. Tipe data Boolean
Tipe data ini digunakan untuk pengambilan keputusan dalam operasi logika. Terdiri dari true disimbolkan ‘T’ dan False yang disimbolkan ‘F’. Ketika kita ingin mendapatklan hasil yang valid/pasti, kita menggunakan tipe data boolean untuk memperoleh keputusan dalam suatu penyelesaian yang pasti.

3. Tipe Data Integer
Merupakan tipe data bilangan bulat.

Tipe Data Rentang nilai Memori
Byte 0…255 1 byte
Word 0…65.555 1 byte
Integer -32.768 s.d 32.767 2 byte
Long Integer -2.147.483.648 4 byte

4. Tipe Data Real
Merupakan tipe data bilangan pecahan seperti real, single, double, comp, extend.

5. Tipe Data Subrange
Merupakan tipe data bilangan yang punya jangkauan nilai tertentu sesuai dengan definisi pada pemrogram.
Example:
Type Variabel=Nilai_awal…Nilai_akhir

6. Tipe Data Enumerasi
Merupakan tipe data yang memiliki elemen-elemen tertentu yang disebut satu/satu dari bernilai konstanta integer sesuai dengan urutannya. Pada tipe data ini elemen masukan diwakili oleh suatu nama variable yang ditlis di dalam kurung.
Example :
Indeks_Hari = (Nol, Minggu, Senin, Selasa, Rabu, Kamis, Jumat, Sabtu)

7. Tipe Data Array (Larik)
Tipe data ini sudah terstruktur dengan baik, walaupun masih sederhana. Tipe data ini menampung sejumlah data dengan tipe data sama (homogen) dalam sebuah variabel.

  • Cara mendefinisikan tipe data array

Berdimensi satu

Var

Nama_Variabel_Array[1...N]of tipe_data

1 Nomor Indeks

  • Berdimensi dua

Var

Nama_Variabel_Array=Array[1...N,1...M]of tipe_data

2 buah Nomor Indeks

8. Tipe Data Record
Tipe data komposit yang sudah terstruktur denagn baik. Tipe data ini digunakan untuk menampung data suatu obyek. Datanya berupa campuran dari tipe data seperti string, numerik, char, boolean, atau tipe data lainnya. Tipe data ini merupakan struktur dasar dari suatu sistem database.

9. Tipe Data Array Record
Tipe data array yang dibangun dari tipe data record.

10. Tipe Data Citra
Berisi grafik/gambar yang banyak digunakan pada aplikasi video.

Example :
Grafik perkembangan jumlah penduduk.

Perbedaan variabel dengan konstanta
Variabel adalah peubah, suatu nama lokasi yang diinginkan untuk menampung tipe data tertentu yang akan diolah komputer. Sedangkan konstanta adalah suatu harga yang diberikan pada sebuah variabel dengan harga/nilai tidak berubah/selalu tetap.

Categories: Pascal, Programming Algorithms Tags: , , , , , , , , , , , , , ,

Aljan Array dan Record

April 15th, 2009 Author No comments

ARRAY
Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama.
LISTING PROGRAM:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

program aljan;
 
Uses winCrt;
Var
  nil1 : Array[1..100] of Integer;
  n,i,j,dum : Integer;
Begin
  ClrScr;
  Write('mau isi berapa data acak (integer) ='); readln(n);
  For i := 1 to n Do
  Begin
    Write('Data Ke ',i,':');Readln(nil1[i]);
  End;
 
  {* penyapuan proses}
  for i:= 1 to n-1 do
  begin
    for j:= i to n do
      begin
        if nil1[j]
          begin
            dum:=nil1[j];
            nil1[j]:=nil1[i];
            nil1[i]:=dum;
          end;
      end;
  end;
  writeln;
  writeln('Hasil Sortir');
  for i := 1 to n do
    write(nil1[i]:3);
  readln;
end.

RECORD

Record adalah kumpulan elemen-elemen data yang digabungkan menjadi satu kesatuan.
LISTING PROGRAM :

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

uses wincrt;
type
  Mahasiswa = Record
  Nama :string[30];
  NIM :string[10];
  Alamat :string[50];
end;
var
  mhs:Mahasiswa;
Begin
  clrscr;
  write('Nama : ');readln(Mhs.Nama);
  write('NIM : ');readln(Mhs.NIM);
  write('Alamat : ');readln(Mhs.Alamat);
  writeln;
  writeln('Nama Anda : ',Mhs.Nama);
  writeln('NIM Anda : ',Mhs.NIM);
  writeln('Alamat Anda : ',Mhs.Alamat);
end.
Categories: Pascal Tags: ,

Hendra Array & Record

April 15th, 2009 Author No comments 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

USES WINCRT;
TYPE DATA = RECORD
  NAMA : STRING[25];
  ALAMAT : STRING[30];
  JK : STRING ;
  TELP : STRING [10];
  TANGGALLAHIR : STRING[20] ;
END;
VAR
  a : data;
  JAWABAN : CHAR;
BEGIN
  REPEAT
    CLRSCR;
    BEGIN
      WRITE ('NAMA :');READLN(a.NAMA);
      WRITE ('ALAMAT :');READLN (a.ALAMAT);
      WRITE ('JK ;');READLN (a.JK);
      WRITE ('TELP :');READLN (a.TELP);
      WRITE ('TANGGAL LAHIR :');READLN (a.TANGGALLAHIR);
      WRITELN;
      WRITELN('NAMA ANDA :',a.NAMA);
      WRITELN ('ALAMAT ANDA : ',a.ALAMAT);
      WRITELN ('JK :',a.JK);
      WRITELN ('TELP :',a.TELP);
      WRITELN ('TANGGAL LAHIR :', a.TANGGALLAHIR);
      WRITELN ('APAKAH ANDA AKAN ENTRI DATA LAGI(Y/T):');
      READLN(JAWABAN);
    end;
  UNTIL (JAWABAN='T');
end.
1
2
3
4
5
6
7
8
9
10
11
12
13
14

program arrayku;
uses wincrt;
var angka:array[1..100] of integer;
  i,n:integer;
begin
  clrscr;
  writeln('Jumlah data : ');readln(n);
  for i:=1 to n do
  begin
    writeln('Masukkan angka ke-',i,':');readln(angka[i]);
  end;
  writeln;
  for i:=1 to n do writeln('Angka ke-',i,':',angka[i]);
End.
Categories: Pascal Tags: ,

Program Bilangan Prima dengan Menggunakan Bantuan Array

April 15th, 2009 Author 10 comments

Contoh program :

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 Crt;
Var
  Prima : Array[1..100] of Integer;
  i,j : Integer;
  bil : Integer;
Begin
  ClrScr;
  For i := 2 to 100 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.
Categories: Pascal Tags:

ARRAY DAN RECORD

April 15th, 2009 Author 1 comment

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.
Categories: Pascal Tags: ,

Program Bulan

April 15th, 2009 Author No comments 
1
2
3
4
5
6
7
8
9
10
11
12
13
14

program bulan;
 
uses Wincrt;
 
conts Bulan : array[1..12] of string = ('Januari','Februari','Maret','April','Mei','Juni','Juli','Agustus','September','Oktober','November','Desember');
 
var
     noBulan :integer;
 
begin
     write('Masukkan nomor bulan : '); readln(noBulan);
     write('Nama bulan ke-', noBulan, 'adalah',Bulan[noBulan]);
     readln;
end.

Yogi Priyo Prayogo
yogipriyo@ymail.com

Categories: Pascal Tags:

Program Menghitung Bulan

April 15th, 2009 Author No comments 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

Program Menghitungbulan;
uses wincrt;
var matriks : array [1..2, 1..12] of integer;
A,B :integer;
Begin
  clrscr;
  matriks [1,1] := 1;
  matriks [1,2] := 2;
  matriks [1,3] := 3;
  matriks [1,4] := 4;
  matriks [1,5] := 5;
  matriks [1,6] := 6;
  matriks [1,7] := 7;
  matriks [1,8] := 8;
  matriks [1,9] := 9;
  matriks [1,10]:= 10;
  matriks [1,11]:= 11;
  matriks [1,12]:= 12;
  matriks [2,1] := 31;
  matriks [2,2] := 28;
  matriks [2,3] := 31;
  matriks [2,4] := 30;
  matriks [2,5] := 31;
  matriks [2,6] := 30;
  matriks [2,7] := 31;
  matriks [2,8] := 31;
  matriks [2,9] := 30;
  matriks [2,10]:= 31;
  matriks [2,11]:= 30;
  matriks [2,12]:= 31;
 
  for A:=1 to 2 do
  begin
    for B:=1 to 12 do
    begin
      write(matriks [A,B]);
      write('  ');
    end;
    readln;
  end;
end.

Sudirman
sudirman_tf07@yahoo.co.id

Categories: Pascal Tags:

Intan Array

April 15th, 2009 Author No comments 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

uses wincrt;
var baris, kolom,i,j : integer;
a : array [1..50,1..50] of integer;
Begin
  Clrscr;
  Write('Masukkan Jumlah Baris : ');Readln(baris);
  Write('Masukkan Jumlah Kolom : ');Readln(kolom);
  Writeln;
  Gotoxy(1,5);Write('A= '); {gotoxy = mengarahkan cursor ke x,y}
  for i := 1 to baris do
    for j := 1 to kolom do
    begin
      Gotoxy(j*5,i*2+3); {gotoxy = mengarahkan cursor ke x,y}
      Readln(A[i,j]);
    end;
  Gotoxy(30,5);Write('AT='); {gotoxy = mengarahkan cursor ke x,y}
  for i := 1 to kolom do
    for j := 1 to baris do
    begin
      Gotoxy(j*5+30,i*2+3); {gotoxy = mengarahkan cursor ke x,y}
      Write(A[j,i]);
    end;
End.

Made Intan Dwipayani
bc_intan@yahoo.co.id

Categories: Pascal Tags: