TekProgApp

Program Pascal : Belajar Coding Dasar Membuat Program Pascal Hello

2018-01-06T21:34:00.001-08:00

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

Pemrograman Pascal : Contoh Coding Pemrograman Dasar Pascal Perulangan While Do

2018-01-04T10:12:00.001-08:00

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.

Pascal : Cara membuat Program Generator Tulisan Terbalik

2017-12-31T18:00:00.000-08:00

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.

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

2017-12-28T10:27:00.000-08:00

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

Program Pascal : Cara Membuat Program Mencari Nilai Luas Trapesium

2017-12-22T20:47:00.001-08:00

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

2017-12-15T17:23:00.000-08:00

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

Program Pascal : Contoh program pascal menggunakan Array

2017-12-15T01:45:00.000-08:00

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

2017-12-10T19:54:00.000-08:00

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.

Mempelajari Algoritma Pemrograman Berorientasi Objek dikenal OOP

2017-11-27T19:08:00.001-08:00

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.

Object Oriented Programing

Dalam pemrograman, data-data di dalam objek akan direpresentasikan dengan variabel atau konstanta, sedangkan perilaku akan direpresentasikan dengan prosedur atau fungsi, yang kemudian disebut dengan method.

Ilustrasi tersebut digambarkan sebagai berikut:

Istilah yg masih berkaitan erat dengan objek adalah kelas. Kelas merupakan struktur umum dari objek-objek tertentu. Misal saya, anda dan yangg lainnya adalah objek, yg termasuk dalam kelas manusia.

Istilah objek dan kelas adalah dua hal yg berbeda.

Dalam bahasa pemrograman, sering dikatakan bahwa objek merupakan instansiasi dari sebuah kelas.

Instansiasi merupakan wujud nyata dari suatu objek.

Sebagai contoh: jika terdapat objek manusia, maka udin, amir dan ali adalah instance dari objek manusia. dianalogikan juga bahwa tipe data adalah kelas, sedangkan var yg didefinisikan berdasarkan tipe data tersbt adalah objek.sebagai contoh jika:

x : integer;

berarti objek x adalah instance dari kelas integer.

Menciptakan Kelas dan Objek

Untuk mendeklarasikan kelas digunakan kata kunci objek, dgn sintaks sebagai berikut:

Parameter nama kelas adalah nama yg diberikan untuk kelas.Aturan pemberian nama kelas sama dgn aturan pemberian identifier.

Diketahui bahwa data dlm kelas adalah var, sedangkan metod dlm kelas adalah prosedur atau fungsi. Maka deklarasi data dan method dpt dilakukan sama seperti deklarasi var, prosedu da function biasa. Contoh deklarasi kelas untuk menyimpan kordinat titik di layar.

Anda bisa menginstansiasi objek dari kelas titik dgn :

pengaksesan data dari objek A dilakukan melalui operator dot (.), sebagai contoh:

Kalau ditambahkan beberapa metod pada kelas titik diatas menjadi sebagai berikut:

Kelas titik mempunyai 2 data yaitu (x dan y) serta 2 metod yaitu (setx dan getx). Metod setx digunakan untuk mengeset nilai dari data x, sedangkan metod getx mengambil nilai dari data x.

Pendefinisian metod setx dan getx, biasanya dituliskan sebelum program utama. Contoh:

Cara memanggil metod suatu kelas sama seperti mengakses data dari suatu kelas, yaitu menggunakan operator dot (.), contoh:

A.setx (1);

writeln (A.getx);

Konsep Dasar OOP

Untuk memahami konsep dasar OOP, ada beberapa konsep dan ciri-ciri atau karakteristik dari OOP, yaitu: Abstraksi, Pembungkusan, Pewarisan dan Polimorfisme.

1. Abstraksi (Abstraction)

Abstraksi merupakan ciri yang paling mendasar dari OOP. Konsep abstraksi merupakan suatu proses penyembunyian kerumitan (pengabstrakan) yang terjadi dalam suatu objek, sehingga pengguna objek tidak perlu untuk mengetahui detil proses yang dilakukan.

Contoh :

Pada pemrograman, ciri abstraksi ini diimplementasikan dengan adanya objek abstrak atau kelas abtsrak. Objek abstrak adalah objek yang tidak dapat di instansiasi sehingga objek ini tidak memiliki instance.

2. Pembungkusan (Encapsulation)

Pembungkusan berarti data-data dan method dibungkus menjadi paket objek menjadi satu kesatuan sehingga dapat berkerja sama dalam melaksanakan tugas-tugas pemrograman tertentu.

Dalam bahasa pemrograman yang tidak mendukung OOP (misal bahasa C), variabel dan konstanta tidak dapat dikumpulkan dengan fungsi/tugas tertentu, sehingga dalam bahasa C tidak dikenal adanya objek. Ilustrasi tersebut digambarkan sebagai berikut:

3. Pewarisan (inheritance)

Sebuah objek dapat diturunkan menjadi objek baru lainnya sehingga objek baru tersebut akan mewarisi sifat dan objek induknya, Konsep inilah yang dinamakan pewarisan (inheritance).

Konsep pewarisan digambarkan sbb:

Relasi/hubungan antar objek dasar atau objek induk dengan objek – objek turunannya disebut dengan hierarki objek.

4. Polimorfisme/Kebanyakrupaan (Ploymorphism)

Polimorfisme merupakan kegiatan mengungkap beberapa hal yang berbeda melalui suatu hal sama.

Misal :

jika terdapat 5 orang (objek manusia) yang belum diketahui status dari masing-masing individu tersebut, apakah tentara atau mahasiswa.

Mendeklarasikan Objek

Berikut ini bentuk umum untuk mendeklarasikan objek dalam bahasa pascal, yaitu:

Sedangkan bentuk umum untuk mengimplementasikan method yang dideklarasikan dalam objek adalah sebagai berikut, untuk method yang berupa prosedur,

Apabila method berupa fungsi, maka bentuk umumnya menjadi seperti berikut:

Nama objek yang terdapat di depan nama method pada saat implementasi menandakan bahwa method tersebut adalah milik dari objek yang bersangkuatan. Sebagai contoh, disini kita akan mendefenisikan sebuah objek dengan nama Ttitik yang memiliki data x dan y serta dua buah method, yaitu setKoordinat dan GetKoordinat. Berikut ini kode programnya.

Type

TTitik = Object

x, y : real ;

procedure Setkoordinat (absis, ordinat: real ) ;

procedure Getkoordinat (var absis, ordinat: real ) ;

end;

( bagian Implementasi )

procedure Ttitik.SetKoordinat (absis, ordinat: real ) ;

begin

x := absis ;

y := ordinat ;

end ;

procedure Ttitik.GetKoordinat ( var absis, ordinat : real ) ;

begin

absis := x ;

ordinat := y ;

end ;

(program utama )

begin

…………

end.

Dari kode diatas terlihat bahwa method SetKoordinat dan GetKoordinat merupakan milik dari objek Ttitik sehingga pada saat implementasi kita harus menuliskannya seperti berikut.

procedure Ttitik.SetKoordinat ( absis, ordinat : real);

procedure Ttitik.GetKoordinat ( var absis, ordinat : real ) ;

Untuk mengakses data atau method yang terdapat dalam sebuah objek adalah sama seperti pada saat kita mengakses field dalam sebuah record, yaitu dengan menggunakan operator titik, perhatika contoh berikut ini.

Untuk lebih mengetahui dan membuktikan hal diatas, perhatikan contoh program berikut ini.

var
A: Ttitik;
Bil1, bil2: real;
{ Program utama }
begin
Clrscr;
{ mengeset nilai x dan y}
A. SetKoordinat (5.0, 3.0 );

{mengambilkan nilai x dan y serta menyimpannya ke dalam variable bil1 dan bil2}
A. GetKoordinat (bil1, bil2);

{ menampilkan nilai x dan y yang tersimpan di dalam instance A}
Writeln ( 'Nilai x di dalam A : ', BIL1 :0:2);
Writeln ( 'Nilai y di dalam A : ', BIL2 :0:2);
readln;
end.

Layout:

Sekian Pembahasan Pemrograman Berorientasi Objek. Semoga Bermanfaat.

Program Pascal : Membuat program untuk menghitung Nilai berpangkat dengan Procedure

2017-11-19T00:18:00.000-08:00

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

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

2017-11-18T03:01:00.000-08:00

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

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

2017-11-13T22:42:00.002-08:00

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

Web : Cara mengatur Paragraf html code menjadi lebih teratur

2017-11-12T15:04:00.002-08:00

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

Paragraf ini

mengandung banyak spasi dan baris
dalam kode sumbernya,
tetapi browser
akan mengabaikannya.


sedangkan yang ini memiliki         spasi panjang.


jumlah baris dalam setiap paragraf tergantung pada ukuran window browser, jumlah baris dalam paragraf akan berubah.


untuk memotong baris dalam sebuah paragraf, gunakan tag br

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

Pascal : Menentukan Tahun Kabisat yang mengirimkan sebuah Boolean dengan Function

2017-11-12T05:00:00.000-08:00

Tahun Kabisat --- Program pascal kali ini kita akan mempraktekkan untuk membuat program menentukan tahun kabisat yang mengirimkan sebuah boolean dengan menggunakan perintah function.

Tahun kabisat adalah tahun yang mengalami penambahan satu hari dengan tujuan untuk menyesuaikan penanggalan dengan tahun astronomi. Dalam satu tahun tidak secara persis terdiri dari 365 hari, tetapi 365 hari 5 jam 48 menit 45,1814 detik. Jika hal ini tidak dihiraukan, maka setiap 4 tahun akan kekurangan hampir 1 hari (tepatnya 23 jam 15 menit 0,7256 detik). Maka untuk mengkompensasi hal ini, setiap 4 tahun sekali (tahun yang bisa dibagi 4), diberi 1 hari ekstra: 29 Februari. Tetapi karena 5 jam 48 menit 45,1814 detik kurang dari 6 jam, maka tahun-tahun yang bisa dibagi 100 (seperti tahun 1900), bukan tahun kabisat, kecuali bisa dibagi dengan 400 (seperti tahun 2000).

Nah seperti itu pengertian tahun kabisat, jadi setiap empat tahun sekali bulan Februari akan berakhir di tanggal 29.

Untuk mempermudah menghitung tahun kabisat bisa menggunakan kode dibawah sebagai scriptnya. mempemudah menghitung apakah tahun berikutnya termasuk kabisat atau bukan. Dalam kode ini menggunakan contoh penggunaan boolean dan function. Berikut kodenya:

program tahunkabisat_fungsi;
uses wincrt;
var

tahn:integer;
function kabisat(tahun:integer):boolean;
begin
kabisat:=not boolean (tahun mod 100 or tahun mod 400);
end;
begin
writeln(' Tugas 5 Program tahun kabisat dengan Boolean');
writeln('====================================================');
write('Masukkan Tahun : ');readln(tahn);
writeln('====================================================');
case kabisat(tahn) of
true: writeln('Tahun ',tahn,' Termasuk Tahun Kabisat');
false: writeln('Tahun ',tahn,' Bukan Termasuk tahun Kabisat');
end;
end.

Hasil Running

Program ini akan mempermudah kita menghitung tahun kabisat. hanya dengan memasukkan tahun yang akan ingin diketahui, akan langsung keluar hasil yang menentukan termasuk tahun kabisat atau tidak. dalam kode terdapat contoh penggunaan boolean dan function.

Sekian artikel kali ini tentang Menentukan Tahun Kabisat dengan Boolean dan Function. Semoga bermanfaat.

Wassalam

Pemrograman Pascal : Mengenal Nilai Genap dengan Array

2017-11-11T04:08:00.000-08:00

Nilai Genap --- Membuat program untuk mengenali nilai genap dengan hanya memasukkan jumlah nilai genap yang ingin ditampilkan, misalkan ingin menampilkan 3 nilai genap, hasil runningnya 0 2 4. Seperti itu program yang akan kita buat dengan Pascal. Langsung saja ke tampilan hasil running.

Hasil Running

Script code nya sebagai berikut.

Program total_genap;

Uses wincrt;

Var

A,b,jumlah:integer;

Procedure proses(n,a,b:integer);

Var

Genap:array[1..100] of integer;

Tot: integer;

Begin

While a<>n do

Begin

Inc(a);

Genap[a]:=b;

B:=b+2;

End;

Writeln;

For b:=1 to n do

Write(genap[b],' ');

Writeln;

Tot:=0;

For a:=1 to n do

Tot:=tot+genap[a];

Writeln('Total Jumlah = ',tot);

End;

Begin

writeln(' Menghitung Bilangan Genap');

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

Write('Jumlah bilangan genap : ');readln(jumlah);

Proses(jumlah,a,b);

End.

Program ini akan membantu kita dalam mencari nilai genap dengan menghitung jumlah nilai genap yang akan dibuat pada suatu program.

Sekian. Wassalam

Pascal : Membuat Perhitungan Gaji dengan Turbo Pascal

2017-11-10T17:53:00.000-08:00

Membuat Perhitungan Gaji dengan Turbo Pascal

Gaji --- Gaji merupakan bayaran yang kita terima setelah melakukan pekerjaan yang sudah terselesaikan dengan perjanjian diantara pemberi gaji dan penerima gaji sebelumnya. Gaji berhubungan erat dengan uang meskipun tidak gaji dibayar dengan uang bisa dengan benda atau sesuatu yang berharga lainnya. dunia bisnis sangat berhubungan dengan gaji dan menggaji sehingga pengaturan gaji ini sangat diperhatikan dalam dunia bisnis untuk mencapai data yang sesuai agar seseorang mendapat hasil yang sesuai dengan jerih payahnya.

Program perhitungan gaji ini masih sederhana dan merupakan dasar yang akan dikembangkan menjadi aplikasi untuk menghitung gaji seseorang dengan mengambil hitungan jam kerja atau berapa jam kerja yang telah dipakai untuk bekerja. jadi program ini cocok untuk menghitung seseorang yang bekerja dengan sistem gajian harian. Menentukan gaji yang didapat setelah bekerja dengan memperhitungkan jam kerjanya.

baca juga : Download Turbo Pascal

Berikut scriptnya menggunakan aplikasi Turbo Pascal.

Program gaji_karyawan;
Uses wincrt;

var
j:integer;{j=jam kerja karyawan}
procedure upah(a:real);
var
uk:real;{uk=Upah Karyawan}
begin
uk:=a*3000;
writeln('Upah untuk Anda sebesar Rp. ',uk:0:0);
end;
begin
writeln(' Program Gaji Karyawan');
writeln('========================================================');
writeln;
write('Masukkan berapa jam Anda bekerja = ');readln(j);
upah(j);
readln;
end.

Hasil Running.

Demikian contoh program sederhana menggunakan turbo pascal untuk menghitung gaji seseorang berdasarkan jam kerjanya. Semoga Bermanfaat. Wassalam

HTML : Belajar HTML Memasukkan link Bahasa Pemrograman WEB

2017-11-08T08:47:00.000-08:00

Belajar HTML --- Pengenalan script html pertama di tekprogapp yaitu tentang kode untuk memasukkan link atau tautan dalam sebuah halaman atau artikel. Dalam halaman web terkadang kita dihadapkan untuk mengklik sesuatu kata yang mengandung sebuah link sehingga jika diklik kita akan dipindah kesebuah halaman lain.

Link mempunyai berbagai jenis dalam pemrograman web dengan menggunakan bahasa html. Link ini akan membantu pengunjung web kita nantinya akan lebih mudah mengakses artikel lain dengan cara kita sediakan sebuah link dalam artikel yang kita buat. Jenis link ini akan sangat berguna untuk diketahui karena setiap jenis link mempunyai kode tersendiri yang saling berbeda link satu dengan yang lainnya.

"baca juga : Belajar HTML Pemrograman WEB"

Berikut jenis-jenis link dan contoh kode untuk menjalankannya. sebelum menuju link ada baiknya untuk menyediakan perlengkapan yang diperlukan serta langkah kerjanya.

Software

Sublime Text atau text editor lainnya seperti notepad dan sebagainya. dan Browser (saya menggunakan google chrome)

Langkah Kerja

Pertama kita instalkan software yaitu Sublime Text dan Browser pada laptop atau komputer.
Setelah Kita tuliskan script atau coding dari modul Pemrograman Web 2 di bagian dasar-dasar HTML di Sublime Text.
Kemudian simpan semua script yang sudah diketik di sublime dengan nama apa saja yang jelasnya berekstensi .html kemudian ok.
Untuk melihat hasil script yang sudah ditulis tadi kita dapat membuka folder dimana kita menyimpan script tersebut.
Kemudian Open With dengan browser Chrome, maka hasil dari script diatas sudah dapat dilihat hasilnya di web Browser Chrome ataupun browser yang lain.

1.Link biasa, link gambar, link ke window baru, dan link internal
a.Script

b.Screen Shot
tampilan setelah di run menggunakan aplikasi google chrome.

c.Analisa
Seperti script yang kita lihat di atas, ada beberapa tag html yang kita gunakan diantaranya:

Tag <a> mendefinisikan sebuah anchor dimana apabila kita menambahkan href=” ” contohnya <a href=www.microsoft.com> maka teks yang di beri tag apabila di klik akan menuju ke halaman yang telah di link ke teks tersebut
Tag <img> digunakan untuk menampilkan gambar pada halaman web
Dan apabila diberi tag degan <a> dan diberi link maka ketika gambar di klik maka akan menuju halaman yang telah ditujukan
Tag <a href=”#C4”> maka akan melompat ke link internal pada tag yang telah di beri tage name=”C4”

2.Link ke e-mail
a.Script

b.Screen Shot

c.Analisa

Kalau analisa dari script yang ada di atas maka kita bisa membuat anchor untuk ke e-mail apabila kita klik teks yang telah di beri tag <a>

kurang lebih seperti itu contoh kode untuk memasukkan link pemrograman web menggunakan html. untuk contoh-contoh lainnya, nantikan yah. semoga bermanfaat.

Wassalam.

Belajar HTML Pemrograman Web

2017-11-08T05:38:00.000-08:00

HTML --- Membangun sebuah Web Page dibutuhkan sebuah bahasa pemprograman yang lebih dikenal dengan sebutan WEB SCRIPTING. Dikatakan Script karena perintah kode program tersebut akan diinterpreter dan tidak ada kompilasi untuk menjadikannya executable. Berdasarkan letak proses interpreter maka web scripting dibagi menjadi dua kategori, yaitu bersifat client side dan server side.
Client Side dilaksanakan oleh web browser seperti Internet Explorer, Netscape, Opera, Firefox dan lain-lain. Contoh daripada Client Side misalnya HTML,CSS, Javascript, VBscript maupun XML. Sedangkan Server Side dikerjakan oleh Web Server seperti Personal Web Server untuk system operasi Windows 98, IIS untuk system operasi Windows 2000/XP, Apache, Tomcat, Xitami dan Zope. Sedangkan untuk contoh bahasa server side adalah ASP (.Net), PHP, JSP,CFM dan CGI/PL.
Web Scripting yang bersifat Client Side akan menghasilkan web page yang statis dalam arti menekankan pada design format tampilan informasi yang disajikan dan tidak dapat diupdate seketika, karena tidak dapat dilakukan request interaktif dari pengguna dan proses tidak terjadi di server sehingga tidak dapat menghasilkan output apapun. Sehingga untuk menghasilkan aplikasi web bersifat dinamis tidak mungkin, dan harus dikombinasikan dengan web scripting yang bersifat server side.

HTML ( Hypertext Markup Language ) adalah bahasa dasar untuk web scripting bersifat Client Side yang memungkinkan untuk menampilkan informasi dalam bentuk teks, grafik, serta multimedia dan juga untuk menghubungkan antar tampilan web page atau yang lebih dikenal dengan Hyperlink.

HTML(Hyper Text Markup Language) adalah sebuah markup untuk membuat sebuah halaman website. Yang dimana kita dapat menuliskan kode,script atau coding melalui teks editor seperti Notepad, Sublime, Notepad++ dan teks editor lainnya. Kita dapat memberikan warna, Font, menampilkan gambar, membuat garis horizontal dan lainya.

Seperti yang perkembangan HTML saat sudah mencapai untuk HTML 5 otomatis dari setiap perkembangannya pasti suatu kelebihan yang dimilikinya. HTML merupakan suatu dasar untuk kita pelajari untuk menguasai atau ingin menjadi Ahli dalam bidang pembuatan suatu website.
World Wide Web atau WWW atau juga dikenal dengan WEB adalah salah satu layanan yang didapat oleh pemakai computer yang terhubung ke internet. Web ini menyediakan informasi bagi pemakai computer yang terhubung ke internet dari sekedar informasi “sampah” atau informasi yang tidak berguna sama sekali sampai informasi yang serius; dari informasi yang gratisan sampai informasi yang komersial. Website atau situs dapat diartikan sebagai kumpulan halaman-halaman yang digunakan untuk menampilkan informasi teks, gambar diam atau gerak, animasi, suara, dan atau gabungan dari semuanya itu baik yang bersifat statis maupun dinamis yang membentuk satu rangkaian bangunan yang saling terkait dimana masing-masing dihubungkan dengan jaringan-jaringan halaman (hyperlink).

Demikian Mengenal dasar HTML untuk Pemrograman Web tentang penjelasan apa itu html fungsi dan sebagainya. semoga bermanfaat.. Wassalam..

Pemrograman Pascal : Contoh Array 1 dimensi

2017-11-05T01:55:00.000-07:00

Array 2 Dimensi --- Array merupakan tipe data yang sangat kita butuhkan di pemrograman, apapun pemrogramannya biasanya membutuhkan array untuk memudahkan kita dalam pembuatan variabel yang berfungsi sama.

Langsung ke code array 1 dimensi pada pascal yah. berikut codenya:

Program Array_1_dimensi;
uses crt;
var
clrscr;
nilaiprak : array[1..20] of real;

I,jumlahdata : Byte;
begin
write (masukkan banyaknya data);
Readln(jumlahdata);
For I :=1 to jumlahdata do
Begin
write ('Nilai ke,I,2:');
readln(Nilaiprak[I]);
End;
Readln;
End.

Seperti itu contoh program yang menggunakan array pada pemrograman pascal. untuk selengkapnya bisa lewat komentar yah..

Semoga bermanfaat..

Pengertian Logika dan Algoritma Komputer dalam IT

2017-11-03T08:54:00.001-07:00

Logika Algoritma --- Sebagian dari kita mungkin sudah familiar dengan kata logika dan algoritma, namun apakah kita sudah mengetahui Sejarah tentang Logika dan Algoritma. Artikel kali ini akan membahas tentang logika dan algoritma. mengenai sejarah dan asal mula serta siapa yang menciptakan logika dan algoritma, yang sering kita pakai dalam dunia pemrograman dan IT (Information Tcchnology). Logika dan Algoritma merupakan hal paling dasar yang perlu dikuasai untuk menjadi seorang programer. hal ini adalah unsur paling penting dalam pemrograman di komputer untuk menghasilkan sebuah program, logika dan algoritma dalam dunia komputer sangat diperlukan, tanpa kedua hal ini kita tidak akan bisa merasakan enaknya menggunakan aplikasi komputer.

PENGERTIAN DASAR LOGIKA DAN ALGORITMA

PENGERTIAN DASAR

LOGIKA
Diperkenalkan pertama kali oleh Aristoteles (384-322 SM)

ALGORITMA
Diperkenalkan Oleh Ahli Matematika : Abu Ja’far Muhammad Ibnu Musa Al Khawarizmi. Seorang ilmuan Persia yang menulis kitab al jabr w’al muqabala (rules of restoration and reduction) sekitar tahun 825 M,

Definisi Logika
1. penalaran atau bentuk pemikiran.
2. ilmu yang memberikan prinsip-prinsip yang harus diikuti agar dapat berfikir valid menurut aturan yang berlaku.

Definisi Algoritma
1. Langkah – langkah yang dilakukan agar solusi masalah dapat diperoleh.
2. Suatu prosedur yang merupakan urutan langkah-langkah yg berintegrasi.
3. Suatu m etode khusus yang digunakan untuk menyelesaikan suatu masalah yang nyata.(Webster Dictionary)

TAHAP PENYELESAIAN MASALAH

Kriteria Pemilihan Algoritma.
1. Ada Output,
2. Efektifitas dan Efesiensi,
3. Jumlah Langkahnya Berhingga,
4. Berakhir, ( SEMI ALGORITMA )
5. Terstruktur,

Suatu Algoritma yg terbaik (The Best) : “ Suatu algoritma harus menghasilkan output yg tepat guna (efektif) dlm waktu yg relatif singkat & penggunaan memori yg relatif sedikit (efesien) dgn langkah yg berhingga & prosedurnya berakhir baik dlm keadaan dip’oleh suatu solusi ataupun tdk ada solusinya. “

Contoh :
Sebuah prosedur ketika akan mengirim kan surat kepada teman:
1. Tulis surat pada secarik kertas surat
2. Ambil sampul surat atau amplop
3. Masukkan surat ke dalam amplop
4. Tutup amplop surat dengan lem perekat
5. Tulis alamat surat yg dituju, jika tdk ingat, lebih dahulu ambil buku alamat & cari alamat yg dituju, lalu tulis alamat tsb pd amplop surat.
6. Tempelkan perangko pada am plop surat
7. Bawa surat ke kantor pos utk diserahkan pd pegawai pos atau menuju ke bis surat untuk memasukkan surat ke dlm kotak/bis surat.

Sebuah prosedur untuk masalah menentukan akar kuadrat dari suatu bilangan Bulat Positif yg di Input :
Baca bilangan Bulat Positif yg diinput, sebut saja sebagai A
1. Dinyatakan Nilai B adalah 0
2. Hitung Nilai C yg berisikan Nilai B dikalikan Nilai B
3. Jika Nilai C sama dengan Nilai A, maka Nilai B adalah Akar dari Nilai A, lalu stop.
4. Jika tidak, maka Nilai B akan bertambah 1
5. Kembali ke langkah pada No. 3

TAHAPAN ANALISA ALGORITMA
1. Bagaimana merencanakan suatu algoritma.
2. Bagaimana menyatakan suatu algoritma
a. Dengan bahasa semu (pseudocode).
Contoh :
Untuk menghitung Luas Segi tiga :
1. Masukan Nilai Alas
2. Masukan Nilai Tinggi
3. Hitung Luas =( Alas * Tinggi ) / 2
4. Cetak Luas
b. Dengan diagram alur atau flowchart,
c. Dengan Statement program / penggalan

Program
Contoh (menggunakan C++):
cin >> Alas ; //untuk input data
cin >> Tinggi;
Luas = (Alas * Tinggi)/2 ; // proses
cout << Luas; //untuk output data
3. Bagaimana validitas suatu algoritma.
4. Bagaimana Menganalisa suatu Algoritma.
5. Bagaimana Menguji Program dari suatu Algoritma.

Tahap Proses uji Algoritma :
a. Fase Debugging
yaitu fase dari proses program eksekusi yang akan melakukan koreksi terhadap kesalahan.

b. Fase Profilling
yaitu fase yang akan bekerja jika program tersebut sudah benar (telah melewati fase debugging).

Analisis Suatu Algoritma
(Untuk melihat faktor efesiensi & efektifitas dari algoritma tersebut), Dapat dilakukan terhadap suatu algoritma dengan melihat pada :
a. Waktu Tempuh (Running Time) dr suatu Algortima.

Hal-hal yang dapat mempengaruhi daripada waktu tempuh adalah :
1. Banyaknya langkah.
2. Besar dan jenis input data.
3. Jenis Operasi.
4. Komputer dan kompilator
b. Jumlah Memori Yang Digunakan.

Sifat – Sifat Algoritma
• Banyaknya Langkah Instruksi Harus Berhingga,
• Langkah atau Instruksi harus Jelas,
• Proses harus Jelas dan mempunyai batasan,
• Input dan Output harus mempunyai Batasan,
• Efektifitas,
• Adanya Batasan Ruang Lingkup,

Itulah penjelasan mengenai logika dan algoritma, tentang sejarah, asal mula serta penggunaannya dalam pemrograman. Wassalam..

Pascal : Menghitung nilai Jajar Genjang dengan Turbo Pascal For Windows (TPW 1.5)

2017-11-03T04:01:00.002-07:00

Jajar Genjang --- Menghitung jajar genjang menggunakan pemrograman Pascal, dalam melakukan pengkodingan menghitung nilai jajar genjang, yang pertama kita perlu ketahui yaitu rumus dari mencari nilai jajar genjang, karena ini akan dimasukan kedalam koding program. Melakukan pengkodingan dalam mencari nilai jajar genjang seperti dalam contoh sebelumnya tentang kalkulator, yang membedakan yaitu bagian deklarasi prosesnya. kemarin dalam program kalkulator prosesnya berisi tentang matematika dasar yaitu penjumlahan. Dalam jajar genjang berisi rumus mencari jajar genjang.

aplikasi compiler yang kita gunakan dalam praktek kali ini yaitu Turbo Pascal for Windows (TPW 1.5). bagi yang belum punya aplikasinya, silahkan klik link berikut.

Baca juga : https://tekprogapp.blogspot.co.id/2017/10/turbo-pascal-for-windows-tpw-15.html

Koding menghitung nilai jajar genjang sebagai berikut:

Program luas_jajaran_genjang;
uses wincrt
var

alas,tinggi,L;real;
begin
write('Program menghitung jajaran genjang');
writeln('===============================');
write('masukkan alas;');readln(alas);
write('masukkan tinggi;');readln(tinggi);
L:=alas*tinggi;
writeln('luas jajaran genjang :',L);
End.

Terdapat perbedaan script dalam menggunakan aplikasi compiler pascal, seperti dalam TPW 1.5 menggunakan uses wincrt; berbeda dengan freepascal yang menggunakan uses crt; kedua aplikasi ini menggunakan bahasa pemrograman yang sama yaitu pascal namun dalam penggunaan aplikasinya menjadi sedikit berbeda dikarenakan perbedaan penggunaan dan model system operasi yang digunakan. makanya untuk membedakan system yang digunakan ditambah kode uses . yang merupakan kode pengenal system.

Baca juga : Mengenal bahasa pemrograman Pascal

Untuk penjelasan mengenai pascal bisa klik link diatas. Demikian contoh program kali ini tentang Menghitung nilai jajar genjang dengan TPW 1.5. semoga bermanfaat. Wassalam..

Pascal : Penggunaan script Repeat Until dan Case Break

2017-10-30T08:36:00.000-07:00

Repeat Until dan Case Break --- kedua-duanya merupakan elemen-elemen yang terdapat dalam pemrograman pascal sebagai bahasa dasar pemrograman. Fungsi ini memiliki kegunaannya masing-masing yang sangat membantu programer dalam membuat program atau aplikasi nantinya.

Sedikit penjelasan tentang Repeat Until dan Case Break yaitu :

Repeat Until
merupakan bagian looping atau dalam bahasa indonesia yaitu perulangan. repeat until akan terus berulang sampai pernyataan yang diinginkan tidak terpenuhi. Perulangan yaitu pemberian pilihan yang jika pernyataan atau statement tercapai maka akan melakukan suatu tindakan sesuai dengan yang kita inginkan.

Case Break
ini merupakan penyimpanan sementara yang suatu sangat dipanggil. pada saat pemanggilan, proses yang dilakukan hanya perlu menulis bagian idnya. Ini biasa kita gunakan untuk mempunyai banyak pernyataan yang dapat dipilih maka digunakan case break untuk mempermudah pengelompokannya.

Berikut contoh penggunaan Repeat Until dan Case Break dalam pemrograman pascal. sebagai latihan dan praktik dalam mempelajari Pascal.

program hari;
uses crt;
const BEL= ^G;
var
pilihan:char;
angka:char;
selesai:boolean;
begin
repeat
clrscr;
writeln(' PILIHAN HARI');
writeln;
writeln('[0]');
writeln('[1]');
writeln('[2]');
writeln('[3]');
writeln('[4]');
writeln('[5]');
writeln('[6]');
writeln('[7] end');
writeln;
writeln('pilihan [1..7] :'); readln(pilihan);

clrscr;
selesai:=FALSE;
case pilihan of

'0':begin
writeln('Hari Minggu');
readln;

end;

'1':begin
writeln('Hari Senin');
readln;
end;

'2':begin
writeln('Hari Selasa');
readln;
end;

'3':begin
writeln('Hari Rabu');
readln;
end;

'4':begin
writeln('Hari Kamis');
readln;
end;

'5':begin
writeln('Hari Jumat');
readln;
end;

'6':begin
writeln('Hari Sabtu');
readln;
end;

'7':selesai:=TRUE;
else
writeln(BEL, 'Hari Tidak Valid');
readln;
end;

until selesai;
writeln('selesai');
end.

Kurang lebih seperti itu script code memakai repeat until dan case break pada program pascal.

Hasil Running:

Hasil diatas memperlihatkan tampilan awal sebelum melakukan pilihan, sehingga hasil pilihan tidak kelihatan. Tapi nanti akan muncul tampilan baru sesuai pilihan yang dipilih.

Demikian artikel kali ini tentang contoh penggunaan Repeat Until dan Case Break pada program Pascal. Semoga Bermanfaat. Wassalam..

Pascal : Membuat Program Menghitung detik menggunakan DIV MOD

2017-10-28T23:56:00.001-07:00

Hitung detik menjadi hari --- program pascal berikut yang hadir di tekprogapp yaitu program tentang menghitung detik menjadi beberapa bagian seperti menit, jam, dan hari. program ini bisa kita gunakan secara langsung tanpa membuat program berbasis desktopnya,

waktu sangat berharga untuk kehidupan, karena setiap detik tidak akan kembali lagi. Program perhitungan detik ini akan membantu kita dalam menghitung beberapa detik yang telah kita habiskan, seperti dalam hal bonus telpon gratis.

Program ini menggunakan code DIV dan MOD yang akan digunakan untuk menghitung detik

Code program menghitung detik dengan Pascal:

program Menghitung_detik;
uses crt;
var dtk,mnt,hri,jam,sisadtk : longint;
begin
clrscr;
writeln(' Menghitung Detik');
writeln('=======================');
write('Masukkan Detik : ');readln(dtk);
hri:= dtk div 86400;

sisadtk:= dtk mod 86400;
jam:= sisadtk div 3600;
sisadtk:= dtk mod 3600;
mnt:= sisadtk div 60;
sisadtk:= sisadtk mod 60;
writeln('Hari : ',hri);
writeln('Jam : ',jam);
writeln('Menit : ',mnt);
writeln('Sisa Detik :',sisadtk);
readln;
end.

Hasil Running:

Seperti itu hasil running dari programnya, dengan tampilan yang dasar CMD seperti program-program sebelumnya. Memang seperti itu tampilan dengan menggunakan bahasa Pascal dengan compiler free pascal atau turbo pascal.

Sekian dulu artikel kali ini, semoga brmanfaat. Wassalam

Pascal : Program Konversi Suhu menggunakan Case

2017-10-24T03:37:00.000-07:00

Program Konversi Suhu Pemrograman Pascal
Program konversi Suhu --- Program selanjutnya tentang konversi suhu dengan menggunakan bahasa pemrograman pascal. seperti artikel sebelumnya yang mengenai program kalkulator, program ini akan sangat membantu kita dalam belajar tentang pemrograman pascal dengan melakukan praktikum langsung membuat suatu program dengan pascal. Konversi suhu ini bisa kita gunakan untuk menghitung besar suhu menurut jenisnya masing-masing seperti Celcius, Fahrenheit, Reamur dan Kelvin.

Program konversi suhu berikut bisa kita modifikasi sesuai keinginan serta ditingkatkan menjadi aplikasi yang berbasis desktop.

Berikut script code programnya:

program konversisuhu;
uses crt;
label menu;
var
pilihan:char;
F,C,K,R:real;
begin
menu :
clrscr;
writeln(' ====================================');
writeln(' ==PROGRAM KONVERSI SUHU TekProgApp==');
writeln(' ====================================');
writeln;
writeln(' =PILIH MENU BERIKUT=');
writeln(' ====================');
writeln('(1) Konversi Celcius - Fahrenheit');
writeln('(2) Konversi Celcius - Reamur');
writeln('(3) Konversi Celcius - Kelvin');
writeln('(4) Keluar Program');
writeln;
write('Masukkan Pilihan Anda : ');readln(pilihan);
writeln;
case pilihan of
'1' : begin
write('Masukkan Suhu Dalam Celcius : ');

readln(C);
f:=(9/5)*C+32;
writeln(C:0:2,' Celcius = ',F:0:2,' Fahrenheit');
end;
'2' : begin
write('Masukan Suhu Dalam Celcius : ');readln(R);
R:=(4/5)*C;
writeln(C:0:2,' Celcius = ',R:0:2,' Reamur');
end;
'3' : begin
write('Masukan Suhu Dalam Celcius : ');readln(K);
K:=C+273;
writeln(C:0:2,' Celcius - ',K:0:2,' Kelvin');
end;
'4' : begin halt(0);
end;

end;

writeln;
writeln(' ====================================');
writeln(' Tekan Sembarang Tombol Untuk Ke Menu');
writeln(' ====================================');
readln;
goto menu;

readln;
end.

Hasil Running:

Kurang lebih seperti itu code untuk membuat aplikasi konversi suhu dengan Pascal. Semoga Bermanfaat, Wassalam.

Download Turbo Pascal for Windows (TPW 1.5)

2017-10-23T07:32:00.001-07:00

Download Turbo Pascal for Windows (TPW 1.5)
Turbo Pascal for Windows --- Pascal merupakan salah satu bahasa pemrograman yang cukup populer dikalangan mahasiswa dan pelajar. Itu dikarenakan Pascal termasuk golongan pemrograman dengan bahasa tingkat tinggi, sehingga pascal mudah dimengerti bentuk codenya karena mendekati bahasa manusia. Melakukan pemrograman dengan bahasa pascal, tentu kita memerlukan compiler yang akan menerjemahkannya ke komputer. Pascal mempunyai banyak keunggulan yang bisa membantu kita untuk mempelajari pemrograman mulai dasar. Dalam Pascal kita tidak dipusingkan dengan hafal karakter dan simbol, tapi lebih fokus kepada memperbaiki logika dan algoritma. Aplikasi yang kita gunakan untuk membuat program menggunakan Pascal salah satunya biasanya Turbo Pascal for Windows yang populer kita gunakan. Selain Turbo Pascal for Windows (TPW 1.5), programer Pascal juga punya pilihan lain seperti Free Pascal atau Turbo Pascal.

Turbo Pascal for Windows mempunyai kelebihan untuk digunakan yaitu mempunyai tampilan lebih berwarna serta friendly, berbagai fungsi umum sudah terintegrasi dengan Turbo Pascal for Windows. Ini yang membuat aplikasinya dipilih dibanding aplikasi lainnya. Aplikasi Turbo Pascal for Windows atau TPW 1.5 gratis kita gunakan tanpa khawatir tentang license. karena aplikasinya murni gratis.

Untuk penjelasan tentang bahasa pemrograman pascal yang mencakup sejarah, asal mula dan sebagainya, bisa langsung klik dibawah ini:

(Baca juga : mengenal-bahasa-pemrograman-pascal)

Silahkan ikuti langkah-langkah untuk mendownload dan instal aplikasi Turbo Pascal for Windows (TPW 1.5)
*catatan: TPW 1.5 hanya mendukung Windows 32bit

1. Klik Link download berikut:

Download Turbo Pascal for Windows (TPW 1.5)

2. lewati adf.ly dengan klik skip ads

3. Setelah itu akan muncul tampilan 4shared. kemudian klik download/unduh.

4. Tunggu sampai donwloadnya selesai.

5. Selesai.

Cara Instal Turbo Pascal for Windows (TPW 1.5):
1. Extrak file TPW 1.5.rar yang telah di download.

2. Buka folder. Kemudian klik install.exe

3. Tunggu proses selesai.

4. Selesai. Selamat menggunakan

Download Turbo Pascal for Windows (TPW 1.5)

Sekian dulu pembahasan tentang donwload Turbo Pascal for Windows (TPW 1.5), gunakan aplikasinya untuk hal yang bermanfaat demi kehidupan bersama yang lebih baik. Semoga Bermanfaat, Wassalam.