Home > Pascal > Contoh Array

Contoh Array

April 2nd, 2009 Nu Leave a comment Go to comments

Pada source array berikut ini, dibuat suatu program untuk menyimpan array sebanyak 100 (max), pada awalnya program akan meminta jumlah data yang akan di masukkan. Dalam memberikan nilai pada array, akan dilakukan pengacak-an serta pengecekan nilai yang dihasilkan. Nilai yang dihasilkan kemudian ditampilkan.

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

uses wincrt;
 
var X : array[1..100] of integer;
a,b,n,r : integer;
beda : boolean;
begin
  write('Banyaknya data : ');readln(n);
  if n > 100 then begin
    writeln('Melebihi batas, (tidak boleh lebih dari 100)');
    exit;
  end;
  for a:=1 to n do begin
    repeat
      r:=random(100)+1;
      b:=1;beda:=true;
      repeat
        if r=x[b] then beda:=false else inc(b);
      until (b>a-1) or (beda=false);
    until (beda);
    x[a]:=r;
  end;
  writeln;
  for a:=1 to n do write(X[a],' ');
end.
Bookmark and Share
Related Posts
  1. Hendra Array & Record
  2. ARRAY PADA PASCAL
  3. Program dengan Array of String
  4. Dani Array
  5. Aljan Array dan Record
  6. ARRAY DAN RECORD
  7. Contoh Looping
  8. Pengertian If..Else dan Contoh Programnya
  9. Konsep IF .. ELSE ..
  10. Program Input Nilai Mahasiswa
Categories: Pascal Tags:
  1. takirey
    December 27th, 2009 at 22:27 | #1
    Reply | Quote

    Mmm..
    saya pnah dsuruuh mmbuat proram seperti ini :
    input 1 : array
    input 2 : tidak
    input 3 : susah

    output : susah tidak array

    disuruuh mnggunakan array of string..

    bgaimnaa mmbwt prgramnyaa,, mhon pnjelasan,,

    terimaa kasiih

  2. Nu
    December 28th, 2009 at 01:15 | #2
    Reply | Quote
  3. Nu
    February 23rd, 2010 at 12:21 | #3
    Reply | Quote

    @takirey
    untuk membaliknya perlu sedikit perubahan pada Program dengan Array of String, yaitu pada baris 13 :
    for a := 1 to 3 do
    menjadi
    for a := 3 downto 1 do

    semoga membantu… :)

  1. December 28th, 2009 at 01:13 | #1
    Program dengan Array of String | Pascal | NuSinau