Array Dengan Tipe String Dalam Pemograman Pascal

February 28, 2019 Add Comment

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:

Array Dengan Tipe String Dalam Pemograman Pascal


Array Dengan Tipe String Dalam Pemograman Pascal


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.