Program Pascal : Belajar Coding Dasar Membuat Program Pascal Hello

Pascal --- Belajar pemrograman dasar coding pascal dengan membuat program yang menggunakan syntax yang sedikit. Meskipun syntax yang digunakan sedikit tapi coding ini cocok untuk pembelajaran awal bahasa Pascal karena teratur mewakili beberapa struktur yang digunakan dalam membuat bahasa pemrograman pascal.

Program yang akan kita buat dalam artikel tentang belajar coding dasar pascal yaitu program hello. Program dasar pascal ini pertama akan menanyakan nama kita, kemudian akan menyapa kita nantinya sesuai dengan nama apa yang telah kita masukkan.

program pascal cocok digunakan dalam aplikasi yang membutuhkan login dan register.

Compiler yang saya gunakan yaitu free pascal.

Berikut codingnya:

program hello;
uses crt;
var
nama : string;
begin
writeln ('hello siapa namamu?');
write ('nama anda: ');
readln (nama);
writeln ('senang bertemu denganmu', nama);
readln;
end.

Hasil Running 

Setelah menulis coding diatas saatnya menjalankan program yang telah dibuat dengan mengklik run - run atau menekan kombinasi tombol ctrl + f9 

Nah, apabila program berjalan akan muncul seperti gambar berikut:

Saat berjalan, tampilan pertama yang muncul yaitu menyapa dan bertanya "siapa namamu?" serta diberikan tempat input untuk menuliskan nama. Silahkan tulis sesuai keinginan.

Saya menulis TekProgApp, seperti gambar berikut.

Tampilan terakhir akan seperti diatas. Muncul pesan "senang bertemu denganmu TekProgApp".

Penjelasan

Membuat program seperti ini, kita membutuhkan satu variabel dengan tipe data string yang akan berfungsi sebagai tempat penyimpanan data nama.

penulisan code variabel dalam pascal seperti berikut.

var
nama : string;

Kemudian, membuat tampilan pertama saat program dijalankan, dalam program pascal untuk menulis sebuah teks menggunakan code write serta writeln untuk menulis teks dan akan memberikan baris baru setelahnya.

Untuk memberikan inputan dalam pascal menggunakan code read. seperti saat membuat teks tampilan dalam program untuk membuat garis baru setelah penulisan hanya perlu ditambah ln setelah read sehingga code menjadi readln.

menggunakan read mempunyai aturan yaitu mempunyai tempat penyimpanan data yang dimasukkan agar nantinya bisa dipanggil.

Berikut cara penulisan codenya.

writeln ('hello siapa namamu?');
write ('nama anda: ');
readln (nama);

Terakhir, saatnya memanggil variabel yang telah mempunyai isi untuk ditampilkan dalam program. cara pemanggilan variabelnya seperti berikut.

writeln ('senang bertemu denganmu', nama);

untuk menampilkan data yang telah ditulis menggunakan code write karena data ingin ditampilkan. Jadi, nantinya bukan tulisan "nama" yang tampil tapi isi dari variabel nama yang telah diinput dalam latihan ini yaitu TekProgApp. Tapi, penulisannya seperti diatas menggunakan koma atas (') dan koma (,) kemudian menulis variabel yang ingin dipanggil.

Selesai, Dan jangan lupa gunakan code readln; diterakhir karena kita menggunakan compiler free pascal supaya program tidak langsung keluar setelah selesai.

Demikian Artikel ini mengenai Belajar Coding Dasar Membuat Program Pascal Hello. Semoga bermanfaat. Wassalam...

Baca Selengkapnya »

Pemrograman Pascal : Contoh Coding Pemrograman Dasar Pascal Perulangan While Do

While Do --- Perulangan merupakan suatu hal yang sangat diperlukan dalam dunia pemrograman. entah itu menggunakan bahasa pemrograman apapun membutuhkan namanya perulangan atau biasa disebut loop. 

Perulangan adalah perintah yang akan terus berulang sampai suatu pernyataan tidak lagi terpenuhi. Jadi, bisa dipahami bahwa perulangan ini akan terus berulang-ulang sampai menghasilkan suatu yang hal yang diinginkan. Ini sangat membantu untuk melakukan beberapa proses yang hasilnya sama serta codingnya juga sama.

Kurang lebih seperti itulah sedikit penjelasan tentang perulangan. Dalam artikel kali ini kita akan membahas tentang pemrograman dasar perulangan while do.

Pemrograman dasar pascal mempunyai beberapa perulangan seperti for to do, for downto do, while do dan repeat until. Setiap perulangan mempunyai algoritma pemrograman yang berbeda meskipun mempunyai sedikit persamaan.

contoh program pascal for to do : http://www.tekprogapp.com/2017/11/pascal-contoh-program-for-to-do-div-mod.html 

Untuk lebih jelasnya tentang perulangan While Do, silahkan perhatikan contoh coding berikut.

Coding

program agad;
uses wincrt;
var
i:integer;
begin
clrscr;
i:=1;
while (i<=5) do
  begin
  write(i,' ');
  i:=i+1;
  end;
readln;
end.

Setelah menulis contoh coding diatas, silahkan di run atau dijalankan.

Hasil Running

Program saat dijalankan akan tampil seperti gambar hasil running dari contoh coding yang telah dibuat.

Tampilannya berupa nomor yang diurut mulai dari 1 sampai 5. Program ini cocok digunakan untuk program yang menggunakan nomor urut seperti aplikasi edit data, tabel, absense dan lainnya.

Penjelasan

Rasanya kurang afdal kalo tidak ada penjelasannya hehe.. Berikut penjelasan tentang coding perulangan yang telah kita tulis seperti coding diatas.

Pertama, Seperti saat membuat program lainnya hal yang mendasar yang kita buat yaitu variabelnya. Namun, sebelum membuat variabel sebaiknya kita membuat nama program dan mengenalkan sistem yang digunakan yang ditulis '

'uses crt' untuk yang menggunakan compiler free pascal

'uses wincrt' untuk yang menggunakan compiler turbo pascal for windows (TPW 1.5).

Penulisan nama program ditulis sesuai syntax berikut :

program namaprogram;

Selanjutnya, penulisan variabel setelah menulis code diatas. Oh iya, Penulisan nama program hanya opsional maksudnya bisa ditulis bisa tidak. Berbeda dengan uses crt dan uses wincrt wajib ditulis dan akan error jika tidak ditulis.

Lanjut pembahasan membuat variabel, silahkan perhatikan coding pascal berikut.

var
i:integer;

kita hanya menggunakan satu variabel yang akan nantinya kita gunakan untuk penyimpanan perulangan. Jadi, tipe data yang akan digunakan untuk variabel penyimpanan perulangan yaitu integer.

Tipe data integer digunakan karena bisa saja suatu saat isi yang diinput berupa huruf atau angka.

Kedua, Syntax untuk memulai program dengan menulis

begin

Coding setelahnya yaitu

clrscr;

coding ini berfungsi untuk membersihkan tampilan program dari proses sebelumnya. Jadi, hasil program setelah dirunning akan sesuai dengan apa yang diharapkan.

Ketiga, Setelah diatas akan dibuat listing code untuk perulangan. Perulangan While Do yang digunakan dalam artikel ini. Penulisan codingnya seperti berikut.

i:=1;
while (i<=5) do
  begin
  write(i,' ');
  i:=i+1;
  end;

Disini variabel digunakan untuk mengisi nilai awal untuk memberi tahu nilai apa yang akan dipakai. Kemudian, ditulis While memberi pernyataan (i<=5) untuk memberikan maksimal nilainya. Jadi nilai 5 dan <= dapat diganti sesuai keinginannya. Lanjut, tulis do dan dimulai penulisan pernyataannya dengan begin write(i,' '); pernyataan; end;

Terakhir, Tutup program dengan code end. Jangan lupa tulis readln sebelumnya untuk yang menggunakan free pascal.

Sekian artikel kali ini tentang Contoh Coding Pemrograman Dasar Pascal Perulangan While Do. Semoga bemanfaat. Wassalam.

Baca Selengkapnya »

Pascal : Cara membuat Program Generator Tulisan Terbalik

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.

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:

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.

• http://www.tekprogapp.com/2017/12/pascal-cara-membuat-program-mencari-nilai-luas-trapesium.html
• http://www.tekprogapp.com/2017/12/program-pascal-contoh-program-pascal-array.html
• http://www.tekprogapp.com/2017/11/program-pascal-membuat-program-untuk.html
• http://www.tekprogapp.com/2017/11/pascal-kalkulator-mencari-nilai-rata-kode-procedure.html
• http://www.tekprogapp.com/2017/11/perhitungan-gaji-dengan-turbo-pascal.html
• dan lain-lain.

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

Baca Selengkapnya »

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

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.

Langkah-langkah download Free Pascal.

1. Buka Situsnya atau klik download dibawah
https://www.freepascal.org/download.var

Download Free Pascal

2. Setelah situs terbuka, maka akan muncul beranda download seperti berikut

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

4. Setelah terbuka, maka tibalah saatnya mendownload

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

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.

2. Maka akan muncul tampilan seperti berikut

Klik Next untuk selanjutnya

3. Silahkan atur tempat penyimpanan free pascal

Silahkan klik Next.

4. Klik Next sampai proses instal dilakukan dan selesai.

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

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

Baca Selengkapnya »

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..

Baca Selengkapnya »

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

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:

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..

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

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..

Sekian contoh penggunaan Procedure dan perulangan IF ELSE untuk membuat piramid Bilangan. semoga bermanfaat...

Baca Selengkapnya »

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

Baca Selengkapnya »

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.

Baca Selengkapnya »

Mempelajari Algoritma Pemrograman Berorientasi Objek dikenal OOP

OOP --- Pengertian dari OOP yaitu merupakan singkatan dari Object Oriented Programing atau dalam bahasa Indonesia yaitu Pemrograman yang berorientasi Objek. OOP sering kita dengar dalam dunia pemrograman dan IT karena Orientasi Objek ini penting dalam pemrograman, entah apapun bahasa pemrogramannya, biasanya mempunyai suatu aplikasi yang membantu dalam pembuatan aplikasi yang berorientasi objek. Nah, dalam artikel kali ini kita akan membahas tentang hal tersebut, yaitu 

• apa pengertian dari OOP? 
• seperti apa model dan contoh OOP? 
• bagaimana membuat program yang berorientasi objek?

Pertama yang kita bahas yaitu pengertian Object Oriented Programing OOP. saya kutip dari wikipedia.com yaitu :

Pengertian OOP

Pemrograman berorientasi objek merupakan paradigma pemrograman yang berorientasikan kepada objek. Semua data dan fungsi di dalam paradigma ini dibungkus dalam kelas-kelas atau objek-objek. Bandingkan dengan logika pemrograman terstruktur.

dalam pengertiannya, objek menjadi kata utama sehingga perlu kita ketahui apa itu objek? 

Objek

Secara spesifik objek adalah sesuatu paket yang merupakan kumpulan data dan method (perilaku)

Data dapat diartikan sebagai sesuatu yg menentukan karakteristik sebuah objek, sedangkan method diartikan sebagai aksi terhadap data.

Sebagai contoh, objek manusia memiliki data-data seperti: tinggi badan, berat badan, warna kulit dsb. Sedangkan perilaku yang dimiliki manusia misalnya cara berjalan, cara bicara dan sebagainya.

Baca Selengkapnya »

Program Pascal : Membuat program untuk menghitung Nilai berpangkat dengan Procedure

Nilai Berpangkat --- Menghitung nilai berpangkat membutuhkan cukup waktu untuk menghitungnya secara manual, makanya diperlukan suatu program yang akan mempermudah dalam mencari nilai bilangan yang berpangkat. contoh susahnya mencari nilai berpangkat yaitu jika ingin mencari nilai 3 pangkat 3 maka cara manualnya yaitu 3x3x3, ini jika pangkatnya masih sedikit, bagaimana jika pangkatnya sudah banyak tentu membuat kita lebih sulit mencarinya.

Program akan membantu kita dalam menghitung nilai berpangkat. Dalam program ini menggunakan code Pascal. Dalam code pascal terdapat syntax yang membantu kita menyusun program yang kita buat seperti constanta, procedure, function dan sebagainya. Program menghitung nilai berpangkat yang akan kita buat menggunakan Procedure. Procedure disini sangat membantu kita dalam membuat program yang sering diulangi atau membuat suatu proses yang selalu diulangi/dilakukan.

Berikut contoh programnya.

Menggunakan Turbo Pascal for Windows (TPW 1.5).

Code Pascal

Program pangkat_3;

Uses wincrt;

Procedure pangkat(x:integer);

Begin

X:=x*x*x;

Writeln(' = ',x);

End;

{program utama}

Var

Nilai:integer;

Begin

writeln('           Menghitung Bilangan berpangkat 3');

writeln('========================================================');

Write('masukkan nilai             = ');readln(nilai);

Writeln('--------------------------------');

Writeln('nilai yang anda masukkan   = ',nilai);

Write('nilai setelah dipangkat 3 ');

Pangkat(nilai);

End.

Hasil Running

Contoh yang kita gunakan menggunakan pangkat 3. untuk menghitung pangkat dengan pangkat yang lain, bisa diperhatikan pada bagian deklarasi Procedure bagian X:=x*x*x. untuk mengubahnya dengan menambah x sesuai keinginan.

Sekian contoh program pascal kesempatan ini. Semoga bermanfaat..

Baca Selengkapnya »

Pascal : Contoh Program menggunakan Perulangan For To Do, DIV dan MOD

Program Pascal --- Contoh program berikut menggunakan Perulangan For To Do sebagai perulangan yang digunakan untuk membuat gambar segitiga dari sebuah bintang yang diulangi secara teratur. selain For To Do, contoh program juga menggunakan MOD dan DIV.

MOD adalah Modulus yang merupakan salah satu simbol operasi aritmatika yaitu sisa hasil pembagian

DIV adalah Integer Division, merupakan Hasil pembagian yang dibulatkan.

Nah Seperti itu penjelasan tentang MOD dan DIV, untuk lebih jelasnya langsung ke contoh programnya, program mencetak gambar..

Contoh program menggunakan aplikasi TPW 1.5

Baca juga : Download Turbo Pascal for Windows

Code Pascal

Program cetak;
Uses wincrt;
Var
       a,b,c,x: integer;
Begin
writeln('                    Mencetak Gambar');
writeln('=================================================='); Write (' Masukkan angka: ');readln(x);

Writeln;
If x mod 2=0 then
For a := 1 to (x div 2) do
Begin
For b := 1 to (x div 2)-a do
Write (' ');
For c := 1 to (a*2) do
Write ('*');
Writeln;
End
Else
For a := 1 to (x div 2)+1 do
Begin
For b := 1 to (x div 2)+(1-a) do
Write (' ');
For c := 1 to (a*2)-1 do
Write ('*');
Writeln;
End;
readln;
End.

Hasil Running

Seperti itu penggunaan perulangan For To Do serta MOD dan DIV dalam pembuatan program. Jadi, untuk mempermudah perhitungan dapat menggunakan ini sebagai acuannya.

Sekian. Wassalam..

Baca Selengkapnya »