Pascal : Cara membuat Program Generator Tulisan Terbalik


program pascal
Kata Terbalik --- Program Pascal Kali ini, kita akan membahas tentang cara membuat program generator tulisan terbalik. Contoh kata 'kursi' menjadi 'isruk'.

Nah, seperti contoh tersebut yang akan kita buat programnya. Program tersebut akan kia gunakan dalam berbagai hal salah satunya menjadi pengaman enkripsi.

Barangkali ada teman-teman yang punya kuliah tentang membuat program membalikkan kata atau kalimat bisa menggunakan program ini.

Langsung ke intinya, berikut listing kode pascal membuat generator tulisan terbalik.

Saya menggunakan compiler free pascal.

Bagi yang belum punya compilernya bisa download dulu dengan klik link dibawah.
http://www.tekprogapp.com/2017/12/free-pascal-download-gratis.html
Listing kode generator tulisan terbalik.

program balik_kata;
uses crt;
var
i:integer;
teks,tampung_data:string;
begin
clrscr;
        write('Masukkan Teks Yang Akan Dibalik :');readln(teks);
        FOR i:=length(teks) downto 1 do
        begin
        tampung_data:=tampung_data+teks[i];
        end;
        writeln('Hasil Pembalikan : ',tampung_data);
readln;
end.

Hasil Running

Setelah menulis listing kodenya, selanjutnya program dijalankan untuk melihat hasilnya.

Tekan combinasi tombol ctrl + f9 atau klik run - run 

Dengan menekan tombol tersebut maka program generator tulisan terbalik berjalan, seperti gambar dibawah.

tekprogapp | membuat program generator tulisan terbalik

Gambar diatas merupakan hasil running program, kita diminta untuk memasukkan kata atau teks yang akan dibalik.

Saya menulis tekprogapp. untuk melihat hasil setelah kata dibalik maka akan seperti gambar berikut:

tekprogapp | membuat program generator tulisan terbalik

Generator tulisan terbalik telah selesai dibuat dan hasil dari kata tekprogapp setelah dibalik menjadi 'ppagorpket'.

Nah, seperti itu generator tulisan terbalik yang telah dbuat, untuk penjelasan setiap listng kodenya silahkan teman-teman perhatikan penjelasan berikut.

Penjelasan Listing kode

Pertama yang kita lakukan yaitu seperti pada tutorial lainnya dengan membuat variabel yang akan kita gunakan dalam membuat program pascal.

var
i:integer;
teks,tampung_data:string;

variabel yang saya gunakan yaitu

  • i dengan tipe data integer
  • teks dan tampung_data bertipe data string
teks merupakan variabel yang nantinya akan menampung tulisan atau kata yang akan dibalik

i merupakan variabel yang akan kita gunakan untuk menampung perulangan yang digunakan 

tampung_data merupakan variabel yang menjadi penyimpanan teks yang telah dibalikkan, ini berfungsi sebagai tempat proses seperti tempat menulis rumus saat kita membuat program perhitungan.

berikut beberapa program perhitungan yang tersedia di tekprogapp.

Selanjutnya, penjelasan tentang perulangan yang digunakan yaitu perulangan for downto do tentu hal ini punya alasan kenapa kita menggunakan perulangan for downto do dibanding perulangan lainnya. 

Ini lebih cocok digunakan karena perulangan ini memulai pembacaan data dari bawah keatas sesuai dengan namanya yaitu downto yang berarti bawah ke.

penulisan listingnya seperti berikut:


        FOR i:=length(teks) downto 1 do
        begin
        tampung_data:=tampung_data+teks[i];
        end;

Dari listing diatas dapat dilihat penggunaan perulangan For downto do dan variabel tampung_data sebagai tempat proses berlangsung.

Terakhir, untuk menampilkan proses yang telah dilakukan kita hanya perlu menulis listing kode seperti berikut: 
        writeln('Hasil Pembalikan : ',tampung_data);

dan jangan lupa berikan readln yang berfungsi supaya program tidak langsung keluar setelah selesai melakukan proses.

Selesai, Program generator tulisan terbalik telah kita buat.

Program ini bisa kita gunakan untuk membalik kata, teks ataupun kalimat. silahkan berkreasi sesuai keinginan masing-masing.

Sekian. Semoga Bermanfaat. Wassalam



Aplikasi Free Pascal Download Gratis disertai Cara Download dan Cara Instal Lengkap


Free Pascal
Free Pascal --- Free pascal merupakan aplikasi compiler untuk membuat program dengan menggunakan bahasa pemrograman pascal.

Terdapat beberapa alternatif yang digunakan untuk menulis script kode pemrograman pascal yaitu Free Pascal atau Turbo Pascal. Namun, untuk menggunakan aplikasi compiler tersebut tentu ada hal yang harus dipenuhi pada komputer yang kita gunakan. Seperti berikut ini:

Turbo Pascal hanya bisa digunakan untuk komputer yang menggunakan system operasi dengan 32 bit atau x86. Sedangkan,

Free Pascal mempunyai persyaratan yaitu harus menggunakan 64bit. Jadi, untuk menggunakan Free Pascal harus menggunakan 64bit.

Bagi yang menggunakan System Operasi  dengan arsitektur 32bit silahkan download Turbo Pascal untuk aplikasi compiler pemrograman pascal.

Seperti artikel lainnya di tekprogapp, saya biasanya sedikit membahas pengertian dari beberapa bahasa IT yang jarang kita dengar, dalam artikel ini kita mungkin sering mendengar kata compiler.

Apa itu compiler? Compiler merupakan sebuah program komputer yang menjadi penerjemah bahasa yang kita input menjadi dimengerti komputer. compiler ini yang berfungsi agar bahasa pemrograman yang tulis dapat dimengerti oleh komputer. Seperti yang kita bahas kemarin bahwa komputer hanya mengerti 2 karakter yaitu 0 dan 1 yang dikenal dengan angka biner. Nah, compiler inilah yang berfungsi untuk mengubah dari bahasa pascal ataupun lainnya menjadi 0 dan 1. Tentunya dengan penulisan yang telah diatur dalam setiap bahasa pemrograman.

Setelah mengerti tentang pengertian compiler, Free Pascal yaitu aplikasi compiler bahasa pemrograman pascal. Otomatis fungsi free pascal seperti fungsi compiler juga yaitu untuk menulis script code pascal agar dimengerti komputer.

Aplikasi Free Pascal dapat didownload secara gratis karena sifatnya open source.

Download free pascal gratis.
Sebelum download free pascal gratis, berikut daftar Sistem Operasi (SO) yang dapat menggunakan free pascal ide.

Free Pascal IDE Berjalan di Sistem Operasi

Langkah-langkah download Free Pascal.

1. Buka Situsnya atau klik download dibawah
https://www.freepascal.org/download.var
download free pascal ide
Download Free Pascal
2. Setelah situs terbuka, maka akan muncul beranda download seperti berikut

download free pascal

silahkan klik sesuai gambar diatas untuk pengguna SO Windows. Bagi pengguna SO lain bisa sesuaikan dengan yang digunakan.

3. Selanjutnya memilih mirror download. Silahkan pilih SourceForge


select download mirror free pascal

4. Setelah terbuka, maka tibalah saatnya mendownload

mendownload compiler free pascal

Silahkan teman-teman klik seperti yang ditunjuk gambar diatas dengan size 40,2 MB.

Versi terbaru free pascal tanggal 29-12-2017 yaitu 3.0.4

Silahkan tunggu proses download sampai selesai.

5. Selesai mendownload, maka akan muncul aplikasi seperti berikut

compiler free pascal
6. Selesai

Free Pascal Selesai didownload.

proses selanjutnya yaitu menginstallnya.

Proses Instal Free Pascal

1. Double klik atau klik 2 kali pada free pascal yang telah didownload.

compiler free pascal


2. Maka akan muncul tampilan seperti berikut

instal free pascal gratis

Klik Next untuk selanjutnya

3. Silahkan atur tempat penyimpanan free pascal

tutorial instal free pascal lengkap

Silahkan klik Next.

4. Klik Next sampai proses instal dilakukan dan selesai.

5. Setelah proses instal selesai, maka akan tampil apikasi seperti icon berikut.

langkah-langkah instal free pascal lengkap
6. Selesai.

Dengan selesainya penginstalan Aplikasi Compiler Free Pascal, maka selesai juga artikel kali ini mengenai download free pascal gratis disertai cara download dan cara instal.

Untuk cara menggunakan free pascal dan pelatihan-pelatihan menulis script kode bahasa pemrograman Pascal bisa lihat-lihat di kategori Pascal di TekProgApp.

Sekian



Program Pascal : Cara Membuat Program Mencari Nilai Luas Trapesium


Pascal --- Menghitung luas trapesium menggunakan program dengan menggunakan bahasa pemrograman pascal.

Trapesium adalah bangun datar dua dimensi yang dibentuk oleh empat buah rusuk yang dua di antaranya saling sejajar namun tidak sama panjang. Trapesium yang rusuk ketiganya tegak lurus terhadap rusuk-rusuk sejajar disebut trapesium siku-siku.



Dalam mencari luas trapesium, dengan bantuan program kita dapa mempermudahnya. program sangat berguna bagi kita yang membutuhkan perhitungan trapesium dalam jumlah yang besar tanpa menghitungnya serta untuk perhitungan banyak trapesium.

Trapesium sering kita temukan dalam sebuah bangunan, dalam hal ini berkaitan dengan orang-orang yang berkecimpung dalam dunia arsitektur.

Program berikut ini tentu merupakan program dasar yang berguna untuk kita sebagai pembelajaran tingkat dasar untuk menguasai penggunaan syntax pemrograman bahasa pascal. Pelajari cara algoritma atau susunan dari program berikut.

Rumus mencari luas trapesium, yaitu:

Luas : 1/2 x (jumlah sisi sejajar) x tinggi

Langkah-langkah membuat program trapesium bahasa pascal, sebagai berikut :

1.Buka aplikasi FreePascal. Dalam listing kodenya saya menggunakan freepascal. teman-teman juga bisa menggunakan turbo pascal for windows atau TPW 1.5 tapi dengan mengubah sedikit listing kodenya seperti uses crt menjadi uses wincrt, ' menjadi ". kalau menggunakan tpw perhatikan yang diubah itu karena akan error jika tidak diubah.

2. Setelah Aplikasi freepascal terbuka, silahkan buat file baru dengan klik file - new . nanti akan ada jendela baru tempat menulis listing kode pascal.

3. Selanjutnya silahkan teman-teman tulis listing kode berikut.

Berikut listing kode mencari luas trapesium dengan pascal:

program Luas_Trapesium;
uses crt;
var
alas1,alas2,tinggi,luas:real;
begin
clrscr;
writeln('==============================');
writeln('Program Mencari Luas Trapesium');
writeln('==============================');
writeln(' ');
write('masukkan nilai alas1   :');readln(alas1);
write('masukkan nilai alas2   :');readln(alas2);
write('masukkan nilai tinggi  :');readln(tinggi);
luas:=(1/2*(alas1+alas2)*tinggi);
writeln('luas Trapesium          :',luas:4:2);
readln;
end.

4. Setelah menulis kode diatas, saatnya program dijalankan dengan mengklik run - run atau tekan kombinasi tombol ctrl + f9.

Berikut hasil running programnya.


Tampilan pertama yang muncul seperti tampilan diatas, kita akan diminta untuk memasukkan nilai, silahkan masukkan nilai sesuai keinginannya.

Saya masukkan nilai 15. Kemudian tekan enter , maka akan muncul tampilan seperti berikut.


Kemudian kita disuruh memasukkan nilai untuk alas yang kedua. Silahkan masukkan nilainya sesuai keingannya.

Saya masukkan nilai 17. kemudian tekan enter maka akan muncul tampilan seperti gambar berikut:


Terakhir kita akan diminta untuk memasukkan nilai tinggi dari trapesium. 

Saya Masukkan nilai 20. Kemudian tekan enter . maka akan muncul hasil perhitungan untuk mencari nilai luas trapesium. seperti gambar berikut.


Jadi, hasil luas trapesium yang kita peroleh dengan memasukkan nilai

nilai alas 1 : 15
nilai alas 2 : 17
nilai tinggi trpesium : 20

Mempunyai luas yaitu 320


Penjelasan tentang Kode pascal yang kita gunakan. yaitu sebagai berikut :

Pertama buat varibel untuk menghitung luas trapesium. variabel yang kita perlukan ada 4, yaitu

Nilai sisi pertama, nilai sisi kedua, nilai tinggi dan variabel yang menjadi penyimpanan dari hasil proses.

berikut kode yang saya gunakan

var
alas1,alas2,tinggi,luas:real;

kita menggunakan tipe data "real" karena dalam prosesnya menggunakan angka atau nilai yang akan dihitung.

Kedua, masukkan input atau masukan data yang akan diproses, dengan memberikan syntax kode inputan. Perhatikan kode yang kita gunakan dari contoh diatas

write('masukkan nilai alas1   :');readln(alas1);
write('masukkan nilai alas2   :');readln(alas2);
write('masukkan nilai tinggi  :');readln(tinggi);

dari kode tersebut "readln" yang berfungsi sebagai syntax untuk membaca data yang kita masukkan atau input.

kemudian didalam "readln" ditulis variabel yang akan menjadi penyimpanan data yang nantinya akan diproses.

kode "write" untuk menampilkan teks di program. seperti arti dari write yaitu tulis, maka kode itu berfungsi untuk menulis di program utnuk ditampilkan.

catatan : "ln" berfungsi untuk membuat baris baru dapat ditambahkan ke belakang "read" dan "write" sehingga dapat menjadi "readln" atau "writeln"

Ketiga, Bagian Proses, dibagian ini merupakan tempat kita menyimpan rumus trapesium. cara penulisannya seperti berikut.

luas:=(1/2*(alas1+alas2)*tinggi);

Hal yang pertama ditulis yaitu nama variabel yang akan berfungsi menyimpan nilai dari proses yang ada dalam rumus. variabel yang saya gunakan yaitu "luas"

Terakhir, Bagian menampilkan hasil proses. pada bagian ini berfungsi untuk menampilkan hasil yang telah diperoleh dari rumus yang ditulis dibagian proses. Berikut cara penulisan kodenya.

writeln('luas Trapesium          :',luas:4:2);

kode yang kita gunakan yaitu "write" karena digunakan untuk menampilkan data, kemudian memasukkan nama variabel dengan cara memberikan batas antara tulisan yang tampil dengan nama variabel yang tadi digunakan sebagai tempat hasil proses. 

Fungsi dari kode " :4:2" yaitu untuk mengatur tampilan dari nilai menjadi 4 angka setelah koma, 2 angka setelah koma.

Program ini bisa kita praktekkan untuk menulis rumus matematika lain untuk membantu kita dalam melakukan perhitungan dengan memanfaatkan program demi pekerjaan yang cepat dan tepat.

Sekian Program pada kesempatan ini tentang membuat program perhitungan untuk mencari nilai luas trapesium menggunakan bahasa pemrograman pascal.

Semoga Penjelasannya bisa dimengerti yah. Semoga bermanfaat. Wassalam..


Program Pascal : Contoh penggunaan PROCEDURE dan perulangan IF ELSE membuat piramid Bilangan


programer writing program use language pascal with procedure
Procedure --- Dalam melakukan pemrograman dengan bahasa apapun tentu biasanya kita memasukkan sebuah pernyataan atau statement maupun sebuah rumus matematika yang akan menjadi bagian yang akan nantinya diproses didalam program.

Seperti itulah gambaran fungsi utama dari procedure. Procedure sangat membantu kita dalam penulisan rumus matematika tanpa perlu menulisnya berkali-kali, hanya dengan memanggil nama procedure rumus matematika ataupun pernyataan dapat dipenggil dengan mudah. tentu ini sangat memudahkan kita dalam penulisan listing kode yang ingin kita panggil berulang-ulang tanpa menulis prosesnya setiap membuat pernyataan baru. Kali ini saya menggunakan procedure dalam bahasa pemrograman pascal
baca juga : Mengenal Pemrograman Pemrograman Bahasa Pascal.

Program yang besar menggunakan procedure, makanya perlu menguasai penggunaan procedure untuk membuat proyek program yang besar. Procedure ini kita gunakan dalam pemrograman berbasis objek seperti dalam menggunakan delphi, listing kode yang digunakan setiap properti menggunakan procedure sebagai tempat menulis listing kode pascal.

Untuk lebih jelasnya tentang penggunaan procedure, bisa lihat contoh berikut:

Program Pascal : Contoh penggunaan PROCEDURE dan perulangan IF ELSE membuat piramid Bilangan

Aplikasi yang saya gunakan dalam contoh ini yaitu free pascal.

Listing kode pascal procedure, perulangan if else dan for down to do.


Program piramid_angka_tekprograpp;
Uses crt;

Procedure piramid(n:integer);
Var
A,b,c:integer;{a=baris,b=spasi,c=angka yang muncul di layar}

Begin
If n<=10 then

Begin
For a:=1 to n do

Begin
For b:=n downto a+1 do write(' ');
For c:=1 to (a*2)-1 do write(c);
Writeln;
End;
End;
Writeln;
If n>10 then write('Anda hanya boleh memasukkan nilai<=10');
End;

{program utama}
Var
Nilai:integer;

Begin
clrscr;
writeln(' Program Membuat Piramid Nilai');
writeln('=====================================================');
Writeln;
Write('Masukkan jumlah baris piramid yang ingin Anda buat = ');readln(nilai);
Piramid(nilai);
readln;

End.

Setelah menulis listing kode pascal yang menggunakan procedure, silahkan run atau tekan kombinasi tombol ctrl+f9. Hasil tampilan setelah di run akan seperti berikut..

Program Pascal : Contoh penggunaan PROCEDURE dan perulangan IF ELSE membuat piramid Bilangan

Silahkan isi sesuai berapa tingkat piramid angka ingin dibuat. berikut saya tulis 7 tingkat

Program Pascal : Contoh penggunaan PROCEDURE dan perulangan IF ELSE membuat piramid Bilangan

Hasil Running membuat sebagian dari kita mungkin kebingungan untuk melihatnya saja karena pikiran seorang programer akan mencari algoritma pembuatannya jika melihat sebuah program. 
baca juga : Pengertian Algoritma

Dari contohnya kita menggunakan If Else dan For downto do sebagai perulangan yang menulis bilangan setiap barisnya. 

Kenapa posisiya teratur ditengah? Biasanya program yang kita buat otomatis memulai penulisan dibagian paling kiri, namun program procedure yang kita posisi teratur membentuk piramid. perhatikan kode dibawah

For a:=1 to n do

Begin
For b:=n downto a+1 do write(' ');
For c:=1 to (a*2)-1 do write(c);
Writeln;
End;


Listing tersebut yang membuat spasi teratur menjadi terbentuk piramid, menggunakan perulangan for downto do yang akan terulang setiap pembuatan spasi.

Dari hasil running diatas semoga bias dimengerti yah. Untuk selengkapnya tentang caranya bisa tulis di komentar yah..






Program Pascal : Contoh program pascal menggunakan Array



Program Array --- Kali ini kita akan membahas tentang contoh array kemarin sudah membahas tentang pengertian dan fungsi utama dari array pada artikel kali ini akan bergeser maju sedikit untuk memberikan contoh penggunaan array dalam sebuah program.

Sedikit penjelasan tentang array yaitu penyimpanan sementara data yang diproses dalam sebuah program. Array ini sangat membantu kita dalam pembuatan program yang membutuhkan inputan yang banyak tanpa menuliskan satu persatu variabel untuk menjadi penyimpanan data. array ini digunakan untuk membantu menyimpan data setelah di input, daripada setiap ingin menginput menggunakan variabel berbeda-beda kan lebih ribet, jika data yang ingin diinput sedikit mungkin tidak masalah, namun bagaimana jika data yang ingin diinput mencapai ratusan bahkan ribuan tentu suatu hal sangat merepotkan tanpa bantuan array.

Berikut contoh program yang menggunakan array. Contoh Program array ini tentang memasukkan nilai, program yang sederhana yang dapat menjadi acuan kita dalam membuat program yang lebih besar tentunya. 

Program Array_1_dimensi;
uses crt;
var
    nilaiprak    : array[1..20] of real;
    I,jumlahdata : Byte;
begin
    clrscr;
    write ('masukkan banyaknya data : ');
    Readln(jumlahdata);
    For I :=1 to jumlahdata do
    Begin
          write ('Nilai ke,I,2:');
          readln(Nilaiprak[I]);
          End;
          Readln;
End.

Hasil Runningnya

Dari hasil running program array diatas dapat dilihat, hal pertama muncul yaitu kita diminta untuk "memasukkan banyaknya data". isi sesuai dengan banyak data yang ingin kita input dengan memperhatikan batasan maksimal pada array seperti yang telah kita tulis dalam kode pascal.

nilaiprak    : array[1..20] of real;

Kode pascal yang masukkan hanya maksimal 20 dari kode "[1..20]". Jika menginginkan masukkan data yang lebih banyak silahkan ganti 20 menjadi nilai sesuai keinginan kita.

Untuk memanggil variabel array yang telah dibuat, tulis nama variabel arraynya. Di contoh menggunakan "nilaiprak" sebagai nama variabel. berikut contoh pemanggilan array.

readln(Nilaiprak[I]);

huruf  'i' setelahnya merupakan tempat menginput nilai yang menjadi banyaknya data yang akan diproses, kemudian array sebagai tempatnya. Jadi, setiap menggunakan array diperlukan variabel lain berfungsi sebagai tempat menginput nilai untuk proses array.

Array juga berjalan bersamaan dengan looping atau perulangan, perulangan yang digunakan tergantung kesukaan kita masing-masing. Dalam contoh program array diatas menggunakan perulangan 'for to do' 

For I :=1 to jumlahdata do
    Begin
          write ('Nilai ke,I,2:');
          readln(Nilaiprak[I]);
    End;

Demikian artikel kali ini tentang contoh program array lengkap dengan hasil running dan penjelasan tentang kode pascal. Sekian


Mempelajari Array Penyimpanan data dalam Pemrograman dunia IT


ARRAY --- Pengertian Array adalah media penyimpanan data sementara pada bahasa pemrograman, media penyimpanan ini berfungsi seperti halnya database, tapi yang membedakannya dengan database yaitu array ini sifatnya sementara dan akan digantikan atau direplace oleh data yang baru. Array diperlukan programer untuk menyimpan data yang akan diproses. dengan array sebagai tempatnya.

Array merupakan hal dasar yang mesti dikuasai programer, entah menggunakan bahasa pemrograman apapun array ini diperlukan. Meskipun pengaplikasian dalam pemrograman berbeda-beda tapi tetap fungsi array yang menjadi dasarnya. Artikel ini untuk semua pemrograman yang menggunakan array, karena membahas secara umum penjelasan tentang array.

Array adalah kumpulan / urutan elemen-elemen data yang bertipe sama dan bentuk syntax-nya adalah tipe_array nama_array [konstanta]; kemudian struct adalah kumpulan nilai data yang boleh untuk berbeda tipe data dan syntax-nya adalah struct nama_struct;(sumber:wikipedia).

Seperti penjelasan dari wikipedia mengenai penjelasannya array ini menggunakan tipe yang sama dengan struct yang boleh berbeda tipe datanya. Dengan demikian, array ini dapat menjadi penyimpanan data sesuai kapasitas tipe datanya dan isinya dapat mencakup berbagai tipe data, seperti string, integer, character ataupun lainnya.

Contoh penggunaan array dalam bahasa pemrograman pascal.

program array_tekprogapp;
uses crt;
var
nm:array[1..3] of string[20];
nl:array[1..3] of real;
i,k:integer;
  begin
clrscr;
  for i:=1 to 3 do
    begin
    write('Nama   :');readln(nm[i]);
    write('Nilai  :');readln(nl[i]);
    end;
writeln('Tampilkan nama dengan nomor urut ' );readln(k);
writeln('Nama Siswa  :', nm[k]);
writeln('Nilai Siswa :', nl[k]:40:0);
readln;
end.

Dari contohnya bisa dilihat posisi array berada dimana. yah, array berada dalam variabel, array termasuk variabel dengan menggunakan tipe data.

nm:array[1..3] of string[20];
nl:array[1..3] of real;

untuk pemanggilan array nantinya hanya akan memanggil nama array seperti dari contoh yaitu nm atau nl.

    write('Nama   :');readln(nm[i]);
    write('Nilai  :');readln(nl[i]);

setelah code pascal ditulis silahkan run. Maka hasil dari running akan seperti contoh dibawah.


Contoh diatas sudah saya isi data.

Perulangan penulisan nama dan nilai itu menggunakan array sebagai penyimpanan datanya. Kemudian dapat dipanggil dengan menggunakan panggilan dengan nomor urutnya.

Dari contoh diatas saya menggunakan perulangan array sebanyak 3 kali. teman-teman dapat memodifikasinya sesuai keinginannya masing-masing. yang penting konsep penggunaan array sudah dimengerti.

nm:array[1..3] of string[20];
nl:array[1..3] of real;
i,k:integer;
  begin
clrscr;
  for i:=1 to 3 do

dan jangan lupa bahwa saya menggunakan perulangan for to do, silahkan pilih perulangan yang disuka gunakan. yang paling penting untuk dimengerti tentang penulisan listing array yaitu

nm:array[1..3] of string[20];
nl:array[1..3] of real;

Dalam array, jenis array terdapat 2 yaitu array 1 dimensi dan 2 dimensi. Perbedaan array 1 dimensi dan 2 dimensi adalah pada bagian deklarasinya. contoh diatas menggunakan array 1 dimensi untuk 2 dimensi menggunakan array dalam array. maksudnya dalam sebuah array terdapat array dibagian deklarasi array tersebut.

Sekian penjelasan mengenai array. semoga bermanfaat.