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 »

Program Pascal : Kalkulator Mencari Nilai rata-rata contoh kode Procedure dan Array

Kalkulator Nilai Rata-Rata --- Menghitung nilai rata-rata dari kumpulan nilai merupakan hal yang membutuhkan lumayan banyak waktu untuk mencarinya secara manual. Makanya sekarang beredar berbagai aplikasi yang memberikan kemudahan dalam melakukan perhitungan nilai rata-rata. Nilai rata-rata diperlukan untuk menghitung sebuah nilai sesuatu mencapai nilai yang ditargetkan, nilai rata-rata berkaitan dengan seseorang Mahasiswa atau siswa, karena ini berhubungan dengan nilai yang didapat dari dosen atau gurunya. Kita bisa dengan mandiri mencari nilai kita dengan menghitung nilai rata-rata dengan melakukan pemrograman.

Berbagai bahasa pemrograman bisa kita gunakan untuk membuat kalkulator nilai rata-rata dengan algoritmanya masing-masing. Namun dalam artikel ini akan menggunakan Pascal, dalam membuat program pascal banyak algoritma yang bisa digunakan, saya menggunakan Procedure dan array sebagai penampungan datanya, jadi program berikut bisa menjadi contoh program pascal menggunakan Procedure dan array.

Berikut kode Program Pascal dengan Procedure dan Array membuat kalkulator nilai rata-rata.

Program rata_rata_kumpulan_nilai;
Uses wincrt;
Var
Banyak_nilai,urutan: integer;
Procedure rata2(a,b:integer);
Var
Nilai:array [1..999] of Integer;
Rata_rata:real;
Jumlah:integer;

Begin
For a:=1 to b do
Begin
Write ('Nilai ke-',a,' = ');readln (nilai[a]);
End;
Jumlah:=0;
For a:=1 to b do
Jumlah:=jumlah+nilai[a];
Rata_rata :=jumlah/5;
Write ('Rata-rata  = ', rata_rata:0:2);               
End;

Begin
writeln('            Program Menghitung Nilai Rata-Rata');
writeln('==========================================================');
Writeln;
Write ('Banyak nilai yang ingin diratakan = ');readln(banyak_nilai);
Rata2(urutan,banyak_nilai);
readln;
End.

Hasil Running

Nah, seperti itu hasil kalkulator nilai rata-rata yang sudah dibuat berdasarkan algoritma diatas, algoritma yang digunakan bisa berbeda-beda setiap pembuat program. Namun program diatas bisa digunakan sebagai contoh untuk pembelajaran program pascal dengan Procedure dan Array.

Sekian. Wassalam

Baca Selengkapnya »

Web : Cara mengatur Paragraf html code menjadi lebih teratur

HTML --- Membuat web atau website memiliki bahasa pemrograman yang perlu diketahui dari dasar seperti html. Html menjadi unsur utama yang mestinya dikuasai saat ingin belajar membuat web, membuat web juga mempunyai tahapan dalam pembuatannya. pada kesempatan kali ini, tekprogapp akan memberikan contoh penggunaan html code untuk paragraf yaitu code <p>. Pada HTML ada code untuk menambah paragraf yang sangat membantu kita dalam penulisan sebuah artikel atau tulisan lainnya.

Mengatur tampilan paragraf dalam html dipermudah dengan adanya code <p>. Tampilan paragraf akan lebih teratur dengan kemudahan dalam menyusunnya. Tampilan paragraf yang teratur akan membuat web yang kita buat menjadi lebih menarik kelihatan.

Berikut code html untuk mengatur tampilan paragraf:

<html>
<body>
<p>
Paragraf ini

mengandung    banyak spasi  dan baris
      dalam kode sumbernya,
  tetapi browser
akan mengabaikannya.
</p>
<p>
sedangkan yang ini memiliki &nbsp; &nbsp; &nbsp; &nbsp; spasi panjang.
</p>
<p align="center">
jumlah baris dalam setiap paragraf tergantung pada ukuran window browser, jumlah baris dalam paragraf akan berubah.
</p>
<p align="right">
untuk memotong <br> baris <br> dalam sebuah<br>paragraf,<br>gunakan tag br
</p>
</body>
</html>

Hasil running dari html code diatas akan seperti berikut:

Tampilan paragraf diatas diatur berdasarkan html code, sehingga tampilannya menjadi terpisah paragraf satu dengan yang lainnya. Silahkan berkreasi sesuai yang diinginkan pada paragrafnya.

Sekian. Wassalam.

Baca Selengkapnya »