Program Pythagoras dengan Free Pascal

Program ini saya buat sambil nunggu giliran mempresentasikan blog ini ke depan dewan juri lomba blog guru pendidikan menengah di BPTIKP Semarang. juga sebagai bahan pembelajaran anak didik saya yang akan ikut lomba OSTN tingkat provinsi pada tanggal 22 September 2011. semoga aja dengan sedikit pembelajaran ini dapat bermanfaat bagi yang membaca.
langsung aja ya:
1. Buka program free pascal
masuk ke terminal kemudian ketik sudo fp
2. Kemudian masukkan script berikut

program pythagoras;
uses crt;
var
a,b,c:real;
begin
write('Masukkan nilai a = ');readln(a);
write('Masukkan nilai b = ');readln(b);
c:=sqrt((a*a)+(b*b));
writeln('Hasilnya c adalah ',c:4:2);
end.

lihat gambar di bawah

pembahasan dari script diatas adalah

program .....;

digunakan untuk menamakan nama dari program kita

uses crt;

memulai program

var

untuk mendefinikan variable yang akan di pakai

a,b,c:real;

merupakan variabel yang akan kita gunakan yaitu a, b, c yang bertipe bilangan real, mengapa kita memakain real tidak integer, karena nantinya kalau kita memakai bilang yang ada koma maka bilangan real aja yang bisa menampung.

begin
write('Masukkan nilai a = ');readln(a);
write('Masukkan nilai b = ');readln(b);

memulai mendefinikan variabel dengan melakukan input bahasanya write, kalau ada pertanyaan mengapa tidak pakai writeln, karena nantinya akan di di tulis di sebelahnya baru kalau nanti ada penginputan nilai kemudian enter baru ke bawah.

c:=sqrt((a*a)+(b*b));

ini rumus pythagirasnya yaitu nilai c adalah akar dari a kuadrat di tambah b kuadrat

writeln('Hasilnya c adalah ',c:4:2);

ini mencetak hasil dari rumus diatas, kemudian dengan menggunakan c:4:2 artinya menampung 4 digit karakter dan 2 digit di belakang koma.

end.

mengakhiri program.
3. simpan, compile dan run
maka akan menghasilkan

Read more

Install dan program awal free pascal di Jangkar

Posting saya yang kemarin membahas gimana saya terinpirasi dengan namanya pascal, untuk kali ini saya ingin membahas gimana caranya menginstall program tersebut di Jangkar 4.0 (dampo awang), tip ini juga dapat dilakukan di Ubuntu, Linux Mint, Blankon atau semua turunan ubuntu, yang mana program free pascal sudah masuk ke dalam repositorinya ubuntu.
caranya cukup mudah, yaitu :
1. Silahkan anda update dulu repositori anda.

2. Kalau sudah silahkan anda ketikkan

sudo apt-get install fp-compiler fp-ide

3. Setelah selesai maka anda dapat menjalankan dengan perintah

sudo fp

sekarang saya inginn membuat program pertama saya yaitu menampilkan kata "hello word", seperti program-perogram yang lainnya. langkahnya:
1. Buka freepascal
2. Klik File kemudian New
3. kemudian tulisakan script berikut:

uses crt;
begin
writeln('Hello Word');
end.

4. kemudian untuk dapat melihatnya hasldari script diatas silahkan anda simpan dan compile

5. yang terakhir di run menghasilkan

Read more

Free Pascal untuk Open Source Indonesia

Meneruskan tulisan saya yang dahulu free pascal sebagai pengganti turbo pascal 7, dimana free pascal merupakan program untuk mengcompile bahasa program turbo pascal yang bersifat open source. kemudian begitu hebatnya bahasa pascal yang jadi inspirasi saya menjadi seorang programmer, padahal dulu sebelum mengenal bahasa pascal saya benci banget yang namanya komputer kemudian setelah mengenal bahasa pascal jadi terpacu ingin mengembangkan kemampuan saya dalam bidang komputer sampai-sampai saya menjadi asisten dosen masalah bahasa pascal.
Setelah beberapa tahun tidak menggunakan bahasa pascal dan beralih ke bahasa pemrograman yang lain akan tetapi bahasa pascal ini juga yang memperngaruhi gaya pemrograman saya dalam semua pemrograman, sampai-sampai saya bisa menganalisis bahasa pemrograman php yang notabene saya tisak bisa sama sekali, akan tetapi karena sudah terbiasa dengan bahasa pascal yang terstruktur maka saya terbiasa pula dengan menganalis kesalahan-kesalahan pada bahasa pemrograman yang lain.

Selain bahasa pascal akhir tahun-tahun ini juga saya terinspirasi dengan open source dimana begitu hebatnya komunitas-komunitas yang ada dengan menyumbangkan suatu software dengan gratis apalagi source codenya diberikan secara cuma-cuma untuk dapat dikembangkan bersama-sama. tahun 2009 merupakan titik balik saya menggunakan open source setelah mengikuti GCOS (Global Conference Open Source) dimana saya ingin ikut menyumbangkan suatu untuk perkembangan open source yang mana selama di deklarasikan IGOS tahun 2004 sampai tahun 2009 perkembanganya tidak signifikan. padahal dulu pada waktu di deklarasikan dan setelah itu ada banyak sweeping software ilegal begitu hebatnya open source untuk dapat digunakan dan dicari banyak warnet, maupun instansi-instansi yang takut adanya sweeping-sweeping tersebut. akan tetapi waktu demi waktu berlalu hilang juga semangat open source itu dan hilang pula komitmen-komitmen yang di bangun di atas. akan tetapi saya yakin komitmen-komitmen antar komunitas pengembang open source di Indonesia tidak akan berubah (ini saya lihat pada waktu ikut GConf #3 Blankon di Semarang)dimana semangatnya anak-anak muda untuk mengembangkan open source.
Melalui tulisan ini saya ingin mengobarkan semangat open source dan mengembangkan dengan menggunakan bahasa pascal yang mana bisa membantu dalam logika-logika pemrograman yang saat ini berkembang. Hal ini juga saya bingung mengapa Olimpiade tingkat Nasional maupun Internasional menekan pakai bahasa pascal sebagai bahasa pemrograman yang utama. mungkin juga karena bahasa pascal ini lah yang bisa membangun karakter seseorang dalam mengembangkan bahasa pemrograman yang lainnya.
Semoga aja melalui tulisan ini nantinya ada bibit-bibit baru atau pelajar-pelajar yang mau mengembangkan open source di Indonesia.
nantikan tulisan-tulisan saya mengenai Free Pascal.

Read more

Free Pascal Pengganti Turbo Pascal

Pada saat di suruh membimbing anak untuk OSTN 2011 dimana materinya salah satunya adalah pemrograman pascal sehingga saya perlu membongkar lagi ingatan yang telah lama tersimpan dalam otak pada waktu dulu jadi Asisten Dosen Pemrograman Pascal yang mana dulu begitu hebatnya pascal mempengaruhi bahasa pemrograman saya. setelah mencari-cari software pangganti turbo pascal yang open source dan dapat berjalan multi platform (linux, windows, MacOS, dll). yang berminat silahkan anda bisa mengunduh disini.
berikut tampilan freepascal

ini tampilan yang turbo pascal for windows

semoga bermanfaat.

Read more