Array Dengan Tipe String Dalam Pemograman Pascal

Array dengan tipe string 

a. tipe indek integer.

1. program Array_tipe_string_tipe_index_integer;
2. uses crt;
3. var A:array[1..10] of string[20];
4.     i:integer;
5. begin
6.     clrscr;
7.     writeln('Masukkan 5 nama mahasiswa ' ) ;
8.     for i : =1 to 5 do
9.     begin
10.         write( 'Masukkan Nama mahas i swa ' , i , ' ' ) ;
11.     readln(a[i]);
12.     end;
13.     writeln;
14.     writeln('Nama mahasiswa yang anda masukkan adalah:');
15.     for i:=1 to 5 do
16.         writeln('   ',i:2,' ',a[i]);
17.     readln
18. end.

Program Array dengan tipe string dan tipe index integer.
Program menggunakan tipe index integer dengan jang-kauan 1 sampai dengan 5.
Jalankan program ini ! Perhatikan hasilnya! Kemudian ubahlah program tersebut menjadi:

1. program Array_tipe_string_tipe_index_integer;
2. uses crt;
3. var A:array[shortInt] of string(20];
4.     i:integer;
5. begin
6.     clrscr;
7.     writeln('Masukkan 5 nama mahasiswa ');
8.     for i:=-2 to 2 do
9.     begin
10.         write ( 'Masukkan Nama mahasiswa ' ,i,' ') ;
11.     readln (a i ) ;
12.     end;
13.     writeln;
14.     writeln('Nama mahasiswa yang anda masukkan adalah:
15.     for i:=-2 to 2 do
16.         writeln('   ',i:2,
17.     readln
18. end.

Program ini menggunakan tipe index shortInt (ingat jangkauan nilainya!) yang indeknya berupa bilangan negatif dan posotif. Jalankan program ini! Perhatikan hasilnya! kemudian cobalah dengan tipe index byte dan tentukan sendiri
jangkauannya, lalu jalankan !

b. tipe indek char. 

1. program Array_tipe_string_tipe_index_char;
2. uses crt;
3. var A:array[char] of string[20];
4.     i:char;
5. begin
6.     clrscr;
7.     writeln('Masukkan 5 nama mahasiswa ');
8.     for i:='a' to 'e' do
9.     begin
10.         write('Masukkan Nama mahasiswa ',i,' ');
11.     readln(a[i]);
12.     end;
13.     writeln;
14.     writeln('Nama mahasiswa yang anda masukkan adalah:');
15.     for i:='a' to 'e' do
16.         writeln('   ,i:2,",a[i]);
17.     readln
18. end.

Program Array dengan tipe string tipe index char.
Jalankan program ini ! Perhatikan hasilnya! Cobalah dengan karakter lain dengan jangkauan yang berbeda, ke-mudian jalankan!

c. tipe indek boolean. 

1. program Array_tipe_string_tipe_index_boolean;
2. uaea crt;
3. var A:array(boolean] of string[20];
4.     i:boolean;
5.     n:integer;
6. begin
7.     clrscr;
8.     Gotoxy(10,5);writeln('Masukkan nama dan alamat anda '):
9.     Gotoxy(10,7);writeln('Nama  : ');
10.     Gotoxy(10,8);writeln('Alamat    : ');
11.     n:=1;
12.     for i:=false to true do
13.         bogie
14.             Gotoxy(25,6+n);readln(a[i]);n:=n+1;
15.         end;
16.     writeln;
17.     writeln('Nama anda  : ',a[false]);
18.     writeln('Alamat anda : ',a[true]);
19.     readln
20. end.

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

d. tipe indek subrange. 

1. program Array_tipe_string_tipe_index_subrange_char;
2. uses crt;
3. var A:array('D'..'H') of string[20];
4.     i:char;
5. begin
6.     clrscr;
7.     writeln('Masukkan 5 nama mahasiswa ');
8.     for i:='H' downTo 'D' do
9.     begin
10.         write('Masukkan Nama mahasiswa ',i,' ');
11.         readln(a[i]);
12.     end;
13.     writeln;
14.     writeln('Nama mahasiswa yang anda masukkan adalah:');
15.     for i:='H' downTo 'D' do
16.         writeln('   ',i:2,' ',a[i]);
17.     readln
18. end.

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

1. program Array_tipe_string_tipe_index_subrange_integer:
2. uses crt;
3. var A:array[20..25) of string[20];
4.     i:integer;
5. begin
6.     clrscr;
7.     writeln('Masukkan 5 nama mahasiswa ');
8.     for i:=25 downto 20 do
9.     begin
10.         write('Masukkan Nama mahasiswa ',i,'  ');
11.         readln(a[i]);
12.     end;
13.     writeln;
14.     writeln(Tama mahasiswa yang anda masukkan adalah
15.     for i:=25 downto 20 do
16.         writeln('   ',1:2,",a[i]);
17.     readln
18. end.

Jalankan program ini Perhatikan hasilnya!

e. tipe indek terbilang.

1. program Array_tipe_string_tipe_index_terbilang;
2. uses crt;
3. type t=(merah,kuning,hijau,biru);
4. var A:array[t] of string[20];
5.     n:integer;
6.     i:t;
7. begin
8.     clrscr;n:=1;
9.     writeln('Masukkan 4 kota di Indonesia');
10.     for i:=merah to biru do
11.     begin
12.         write('Kota : ',n);readln(a[I]);n:=n+1
13.     ends
14.     writeln;
15.     writeln('Kota yang anda masukkan, urut dari yang
16.     terakhir dimasukkan adalah: ');
17.     n:=1;
18.     for i:=biru downto merah do
19.     begin
20.         writeln('   ,n:2,",a[i]);n:=n+1
21.     end;
22.         readln
23. end.

Program Array dengan tipe integer tipe index terbilang. Jalankan. program ini ! Perhatikan hasijnya! Kern udian
ubahlah program tersebut menjadi:

1. program Array_tipe_string_tipe_index_subrange_ferbilang;
2. uses crt;
3. type t=(merah,kuning,hijau,biru);
4. var A:array[merah..hijau] of string[20];
5.     n:integer;
6.     i:t;
7. begin
8.     clrscr;n:=1;
9.     writeln('Masukkan 3 kota di Indonesia');.'
10.     for i:=merah to hijau do
11.     begin
12.         write('Kota : ',n);readln(a[I]);n:n+1
13.     end;
14.     writeln;
15.     writeln ( 'Kota yang anda masukkan adalah: ) ;
16.     n:=1;
17.     for i:=merah to hijau do
18.     begin
19.         writeln('   ',n:2, '  ',a[i]);n:=n+1
20.     end;
21.         readln
22. end.

Jalankan program ini ! Perhatikan hasilnya!

String sebagai array dari char;

1. Program merubah_ke_huruf_besar_dengan_length;
2. Uses crt;
3. Type s80= string[80];
4. Var s: s80;
5.     Indek : integer;
6. Begin
7.     Clrscr;
8.     Writeln(' Merubah ke huruf besar ');
9.     Repeat
10.         Writeln;
11.         Writeln(' Masukkan sembarang string (<enter>= keluar ');
12.     Readln(s);
13.     {proses merubah ke huruf besar)
14.     for indek :=1 to length(s) do
15.     s[indek]:=upcase(s[indek]);
16.     Writeln(' Hasilnya ');
17.     Writeln(s); readln
18.     Until length(s)=0;
19. End.

Program Mengetahui pangjang string dengan length°.
Jalankan program ini ! Perhatikan hasilnya! Kemudian ubahlah program tersebut menjadi:

1. Program mengetahui_panjang_string;
2. Uses crt;
3. Var s: string[80];
4. Begin
5.     Clrscr;
6.         Write (' Masukkan nama anda: ');readln(s);
7.         Writeln;
8.         Write(' Panjang nama anda = ',length(s),' karakter')
9.     Readln;
10. End.

Jalankan program ini ! Perhatikan hasilnya! Kemudian ganti lenth(s) dengan s[0], bagaimana hasilnya!

Array dengan dimensi banyak (lebih dari satu).

1. program Array_tipe_string_tipe_index_integer
2. uses crt;
3. var A:array[1..2,1..3] of string:
4.     i,k,n:integer;
5. begin
6.     clrscr;n:=1;
7.     writeln('Masukkan 6 nama mahasiswa');
8.     for i:=1 to 2 do
9.     for k:=1 to 3 do
10.     begin
11.         write('Masukkan Nama mahasiswa ',n,' ');
12.         readln(a[i,k]);n:=n+1
13.     end;
14.         writeln;n:=1;
15.         writeln('Nama mahasiswa yang anda masukkan adalah:')
16.         for i:=1 to 2 do
17.         for k:=1 to 3 do
18.     begin
19.         writeln(' ',n:2,' ',a[i,k]);
20.     end;
21.         readln
22. end.

Program Array dengan tipe string dan tipe index integer 2 dimensi.
Jalankan program ini!. Perhatikan hasilnya! Dengan ber-dasarkan analogi program-program tersebut di atas cobalah array 2 dimensi dengan beberapa tipe array dan tipe index.


Saatnya untuk mempraktekkannya... kita akan mengetahui kemampuan anda.

Buat program dengan array satu dimensi, tampilan program sebagai betikut:

Program dijalankan akan menampilkan Menu Utama, kemudian jika memilih 1 maka akan menampilkan isi data nilai mahasiswa setelah selesai kembali ke menu utama, jika pilih 2 akan melaporkan daftar nilai mahasiswa (nilai mahasiswa harus diinput dahulu) setelah selesai kembali ke menu utama, dan jika memilih 3 maka akan keluar dari program.

Share this

Author : admin

Related Posts