Pernyataan Array dalam Peemograman Pascal

Range

Array

Diagram Alir Pernyataan Array Dalam Pemograman Pascal

Array dengan tipe integer

a. tipe indek integer.

1. program Array_tipe_integer_tipe_index_integer;
2. uses crt;
3. var A :array[1..10] of integer;
4.     n,i:integer;
5. begin
6.     clrscr;n:=0;
7.     for i:=1 to 10 do
8.     begin
9.         a(i):=n;
10.         n:=n+1
11.     end;
12.  
13.     writeln('   I   A[I]');
14.     for i:=1 to 10 do
15.         writeln('   ',i:2,' ',a[i]);
16.     readln
17. end.

Program Array dengan tipe integer dan tipe index integer.

Program menggunakan tipe index integer dengan jangkauan 1 sampai dengan 10.

Jalankan program ini ! Perhatikan hasilnya! Kemudian ubahlah program tersebut menjadi:

1. program Array_tipe_integer_tipe_index_integer;
2. uses crt;
3. var A :array[1..10] of integer;
4.     n,i:integer;
5. begin
6.     clrscr;n:=0;
7.     for i:=10 downto 1 do
8.     begin
9.         a[i]:=n;
10.         n:=n+1
11.     end,
12.     writeln(' I A[I] ');
13.     for i:=1 to 10 do
14.         writeln('   ,i:2,",a[i]);
15.     readln
16. end.

Jalankan program ini ! Perhatikan hasilnya! Kemudian ubahlah program tersebut menjadi:

1. program Array_tipe_integer_tipe_index_integer;
2. uses crt;
3. var A :array[shortInt) of integer;
4.     n,i:integer;
5. begin
6.     clrscr;n:=0;
7.     for i:=1 to 10 do
8.     begin
9.         a[i] :=n;
10.         n:=n+1
11.     end;
12.     writeln(' I A[I] ');
13.     for i:=1 to 10 do
14.         writeln('   ,i:2,",a[i]);
15.     readln
16. end.

Array

Program ini menggunakan tipe index shortlnt (ingat jangkauan nilainya!). Jalankan program 8.1. ini ! Perhatikan hasilnya! Kemudian ubahlah program tersebut

1. program Array_tipe_integer_tipe_index_integer;
2. uses crt;
3. var A :array[byte] of integer;
4. n,i:integer;
5. begin
6.     clrscr;n:=0;
7.     for i:=1 to 10 do
8.     begin
9.         a[i] :=n;
10.         n:=n+1
11.     end;
12.     writeln('   I A[I] ');
13.     for i:=1 to 10 do
14.         writeln('   ',i:2,'
15.     readln
16. end.

Program ini menggunakan tipe index byte (ingat jangkauari
nilainya!). Jalankan program 8.1. ini Perhatikan hasilnya!.

tipe indek char.

1. program Array_tipe_integer_tipe_index_char;
2. U502 crt;
3. var A:array['A'..'E'] of integer;
4.     n:integer;
5.     i:char;
6. begin
7.     clrscr;n:=0;
8.     for i:='A' to 'E' do
9.     begin
10.         a[i]:=n;
11.         n:=n+1
12.     end;
13.     writeln('   I AM ');
14.     for i:='A' to 'E' do
15.         writeln(' ',i:2,' ',a[i]);
16.     readln
17. end.

Program 8.2. Array dengan tipe integer tipe index char.
Jalankan program 8.2. ini ! Perhatikan hasilnya! Kemudian ubahlah program tersebut menjadi:

1. program Array_tipe_integer_tipe_index_char;
2. uses crt;
3. var A:array[char) of integer;
4.     n:integer;
5.     i :char;
6. begin
7.     clrscr;n:=0;
8.     for i:='E' downto 'A' do
9.     begin
10.         a[i) :=n;
11.         n:=n+1
12.     end;
13.     writeln('   I   ');
14.     for i:='A' to 'E' do
15.         writeln('   ',i:2,",a[i]);
16.     readln
17. end.

Jalankan program 8.2. ini ! Perhatikan hasilnya! Kembang-kan program tersebut dengan tipe index char lainnya! Kemudian ubahlah program tersebut menjadi:

1. program Array_tipe_integer_tipe_index_char;
2. uses crt;
3. var A:array['1'..'5'] of integer;
4.     n:integer;
5.     i:char;
6. begin
7.     clrscr;n:=0;
8.     for i:='1' to '5' do
9.     begin
10.         a[i):=n;
11.         n:=n+1
12.     end;
13.     writeln(' I A[I] ');
14.     for i:='1' to '5' do
15.         writeln('   ,i:2,",a[i]);
16.     readln
17. end.

Jalankan program 8.2. ini ! Perhatikan hasilnya! coba dengan huruf kecil 'a'..'h' dan coba karakter lain.

tipe indek boolean. 

1. program Array_tipe_integer_tipe_index_boolean;
2. uses crt;
3. var A:array[false..true] of integer;
4.     n:integer;
5.     i:boolean;
6. begin
7.     clrscr;n:=0;
8.     for i:=false to true do
9.     begin
10.         a[i]:=n;
11.         n:=n+1
12.     end;
13.     writeln(' I   A[I]');
14.     for i:=false to true do
15.         writeln('   ,i:6,' ',a[i]);
16.     readin
17. end.

Program 8.3. Array dengan tipe integer tipe index boolean.
Jalankan program 8.3. ini ! Perhatikan hasilnya' Kemudian ubahlah program tersebut menjadi:

1. program Array_tipe_integer_tipe_index_boolean
2. uses crt;
3. var A:array[boolean] of integer:
4.     n:integer:
5.     i:boolean;
6. begin
7.     clrscr;n:=0;
8.     for 1:=true downto false do
9.     begin
10.         a[i::=n;
11.         n:=n+1
12.     end;
13.     writeln('   I   A[I]    ');
14.     for i:=false to true do
15.         writeln,    ,1:6 '  .a[i]);
16.     readln
17. end.

Jalankan program 8.3. ini ! Perhatikan hasilnya' (ingat nilai ordinalitas true=1 dan false=0).

tipe indek subrange.

1. program Array_tipe_integer_tipe_index_subrange_integer;
2. uses crt:
3. var A:array [1..5] of integer;
4.     n:integer;
5.     i:integer;
6. begin
7.     clrscr;n:=0;
8.     for i:=5 downto 1 do
9.     begin
10.         a[i]:=n;
11.         n:=n+1
12.     end;
13.     writeln(    I A[1]');
14.     for i:=1 to 5 do
15.         writeln(' ',i:2,' ',a[i]);
16.     readln
17. end.

Program Array dengan tipe integer tipe index subrange. Jalankan program 8.4. ini ! Perhatikan hasilnya! Kemudian ubahlah program tersebut menjadi:

1. program Array_tipe_integer_tipe_index_subrange_integer;
2. uses crt:
3. var A:array [1..5] of integer;
4.     n:integer;
5.     i:integer;
6. begin
7.     clrscr;n:=0;
8.     for i:=5 downto 1 do
9.     begin
10.         a[i]:=n;
11.         n:=n+1
12.     end;
13.     writeln(    I A[1]');
14.     for i:=1 to 5 do
15.         writeln(' ',i:2,' ',a[i]);
16.     readln
17. end.

Program Array dengan tipe char dan tipe index integer.
Program menggunakan tipe index integer dengan jangkauan 1 sampai dengan 10.
Jalankan program 8.6. ini ! Perhatikan hasilnya! Kemudian ubahlah program tersebut menjadi:

1. program Array_tipe_char_tipe_index_integer;
2. uses crt;
3. var A:array[byte] of char;
4.     i,k:integer;
5.     n:char;
6. begin
7.     clrscr;k:=1,
8.     for i:=100 downto 85 do
9.     begin
10.         a[i]:=chr(96+k);
11.         k:=k+1
12.     end;
13.     writeln(' I MI) ');
14.     for i:=100 downto 85 do
15.         writeln(' ',i:3,' ',a[i]);
16.     readln
17. end.

Jalankan program 8.6. ini ! Perhatikan hasilnya! Kemudian ubahlah program tersebut menjadi:

tipe indek char. 

1. program Array tipe char tipe index  char;
2. uses crt;
3. var A:array['A'..'E'] of char;
4.     n:integer;
5.     i:char;
6. begin
7.     clrscr;n:=1;
8.     for i:='A' to 'E' do
9.     begin
10.         a[i]:=chr(64+n);
11.         n:=n+1
12.     end;
13.     writeln(' I AFT] ');
14.     for i:='A' to 'E' do
15.         writeln(' ',i,' ',a[i]);
16.     readln
17. end.
18.  

Program 8.7. Array dengan tipe char tipe index char.
Jalankan program 8.7. ini ! Perhatikan hasilnya!
coba dengan range index huruf kecil dan coba karakte
lain.

tipe indek boolean. 

1. program Array_tipe_char_tipe_index_boolean;
2. uses crt;
3. var A:array[boolean] of char;
4.     n:integer;
5.     i:boolean;
6. boffin
7.     clrscr;n:=1;
8.     for i:=true downto false do
9.     begin
10.         a[i]:=chr(97+n);
11.         n:=n+1
12.     end;
13.     writeln('   i   A[I]');
14.     for i:=false to true do
15.         writeln('   ,i:6,'  ',a(il);
16.     readln
17. end.

Program 8.8. Array dengan tipe char tipe index boolean.
Jalankan program 8.8. ini ! Perhatikan hasilnya!

tipe indek subrange. 

1. program Array_tipe_char_tipe_index_subrange_char;
2. uses crt;
3. var A:array['5'..'9') of char;
4.     n:integer;
5.     i:char;
6. begin
7.     clrscr;n:=1;
8.     for i:='5' to '9' do
9.     begin
10.         a[i]:=chr(64+n);
11.         n:=n+1
12.     end:
13.     writeln(' I A[I] ');
14.     for i:='9' downto '5' do
15.         writeln('   ,i:2,'  ',a[i]);
16.     readln
17. end.

Program Array dengan tipe char tipe index subrange• Jalankan program 8.9. ini ! Perhatikan hasilnya!

tipe indek terbilang.

1. program Array_tipe_char_tipe_index_terbilang;
2. uses crt;
3. type t=(macan,kucing,harimau,leo,gajah);
4. var A:array[macan..leo] of char;
5.     n:integer;
6.     i:t;
7. begin
8.     clrscr;n:=0;
9.     for i:=macan to leo do
10.     begin
11.         a(i):=chr(97+n);
12.         n:=n+1
13.     end;
14.     writeln(' A[i]  ');
15.     for i:=leo downto macan do
16.         writeln('   ',a[i]);
17.     readln
18. end.

Program Array dengan tipe char tipe index terbilang. Jalankan program 8.9. ini ! Perhatikan hasilnya!

 

 

 

Share this

Author : admin

Related Posts