selamat datang di blog saya yaitu achmad maulana afrizal

Disini saya akan menampil kan  foto free pascal yang saya pelajari di sekolah

pertama-tama apa itu free pascal...?

Free Pascal adalah kompilator sumber terbuka untuk bahasa Pascal dan Object Pascal yang berjalan secara lintas platform. Saat versi 2.6.0, kompilator ini dapat menghasilkan aplikasi di sekitar 20 pasangan arsitekur-sistem operasi

 1. Program Hello World
       Program pertama saya namanya Hello World, program ini adalah yang paling simple. Mari kita lihat screenshoot saya!

Nah itu gambarnya di atas.
 Sebuah kode program pascal, diawali dengan keyword program kemudian diikuti dengan judul program yang diinginkan (dalam contoh diatas, saya menggunakan judul hello_world). Selanjutnya, kode program dibuka dengan perintah “begin”, dan diakhiri dengan perintah “end.” (perhatikan tanda titik di akhir end). Diantara “begin” dan “end.” inilah seluruh kode program pascal berada.

Perintah writeln digunakan untuk menampilkan teks (output), sedangkan perintah readln digunakan untuk menerima masukan (input). Perintah readln pada kode diatas saya tambahkan hanya untuk menahan jendela tampilan jendela program ketika di-run. Anda boleh menghapus baris readln; dan mencoba men-run kode diatas. Hasilnya hanya akan terlihat sekilas saja (tidak sampai 1 detik).

2. Program Pribadi
    Program pribadi ini adalah program kita sendiri. Saya membuat program pribadi dengan memasukan nama saya , kelas,hobby,cita-cita,dan sekolah.

 Nah itu adalah gambar dari program saya dan sudah tercompile succes. Pada menulis program di writeln atau write tanda dalam kurung itu kutip unutk kita menulis kata-kata seperti pada gambar.

Gambar di atas adalah hasil dari run atau CTRL + F9.

3. Program Luas dan Keliling Lingkaran

      Program yang akan saya buat ini adalah luas dan keliling lingkaran.Pada program ini kita harus menggunakan banyak aturan penulisan seperti variabel , constanta dan lain-lain. Program ini berbeda sekali dengan Hello World atau Pribadi yang ada di atas tadi. Kita akan lihat gambarnya di bawah ini.
 

Nah bisa kita lihat pada gambar di atas terdapat yang namanya komentar. Komentar itu gunanya untuk membuat catatan-catatan yang ada di dalam program tersebut. Tanda komentar adalah (* lalu ditutup dengan *) dan masih banyak lagi tandanya. Constanta itu adalah nilai tetap seperti pi = 3.1415 dan dua = 2:0. Variabel itu seperti (r type datanya real) , luas = real, kel = real. Nah ketika kita selesai memproses seperti gambar di atas , selanjutnya ayo kita tes dengan run atau CTRL + F9.

Pada gambar di atas kita disuruh memasukan jari-jari yang kita mau.

Pada gambar di atas saya, melakukan 2 kali percobaan. Pertama saya masukan jari-jarinya 3 dan yang kedua saya masukan jari-jarinya  6 lalu kita klik enter, maka otomatis akan dihitung melalui proses program yang telah kita buat tadi  dan akan muncul  "luas lingkaran " dan " keliling lingkaran ".

4. Program Luas Segitiga
  

 Bisa kita lihat di gambar,  pada bagian begin terdapat writeln ('alas (cm) '); dan readln (a) di bawahnya. Itu gunanya untuk memasukan angka pada writeln ('alas (cm)'); dan readln (a) itu harus sesuai dengan yang ada di var(variabel). Jika yang ada di var itu  " u = real ", maka (readln) nya harus ikut juga u contoh : readln (u). Setelah itu kita tinggal ikuti proses pada gambar lalu setelah selesai kita compile untuk memeriksa.dan kita run
 











dan masukkan angka yang kamu mau.

5. Program Kalkulator
    Program yang telah saya buat adalah program kalkulator. Yang mana kita harus memasukan tanda tanda seperti (* kali), (/ bagi), (+tambah), (-kurang).Nah sekarang ayo kita simak dulu gambarnya.

 
Pada gambar tersebut kita akan memasukan var a,b,c,d,e,f dengan type data double. Saya membuat kalkulator 2 angka , jadi kita hanya bisa menghitung 2 angka. "Nilai Pertama" sebagai angka pertama dan "Nilai Kedua " sebagai angka kedua. Lalu pada c,d,e,f kita masukan tanda operational, seperti c akan saya masukan tanda tambah. " c:= a + b " berarti pada  bagian "c" itu hasilnya akan ditambah. Sama juga dengan d , e , f  saya masukan "d" sebagai pengurangan, "e" sebagai perkalian , dan "f" sebagai pembagian.
Coba lihat gambar di atas terdapat writeln ( 'Nilai dari ' , a:0:2, ' + ',b:0:2, ' = ' ,c:0:2 ); itu gunanya untuk menambahkan angka atau bilangan dari var (a) dan (b). Jika kita tidak mau memasukannya juga tidak apa-apa, itu cuma sebagai penjelas dan pelngkap. Selabjutnya kita compile dan run..

Nah tentu saja kita juga disuruh untuk memasukan angkanya , pada gambar di atas itu saya memasukan " Nilai pertama 10 " dan  'Nilai kedua 2). Lalu klik enter dan lihat lah hasilnya,  pada (c) 10 + 2 = 12 betul , pada (d) 10 -2 = 8 betul , pada (e) 10 * 2 = 20 betul , pada (f) 10 / 2 = 5 betul.
Maka program kita sudah berjalan dengan benar.

6. Program Struktur If Then
     
Dalam pembuatan program, ada saatnya kita butuh suatu perintah percabangan, yakni jika sebuah kondisi terpenuhi, jalankan kode program ini. Jika tidak, jalankan kode program yang lain.
Di dalam Pascal terdapat beberapa struktur kondisi seperti ini. Kita akan mulai dari yang paling sederhana.

Konsep Dasar Percabangan Kondisi IF THEN dalam Pascal

Konsep dasar dari percabangan perintah IF THEN dalam bahasa pemrogram Pascal adalah sebagai berikut:

IF (kondisi) THEN
  begin
    (kode program)
  end;

Kondisi berperan sebagai penentu dari stuktur percabangan ini. Jika kondisi terpenuhi (menghasilkan nilai TRUE), kode program akan dijalankan. Jika kondisi tidak terpenuhi (menghasilkan nilai FALSE), tidak terjadi apa-apa. Kondisi biasanya terdiri dari operasi perbandingan, misalnya apakah variabel a berisi angka 10, atau variabel password berisi string ‘rahasia’. sumber : (www.duniailkom.com)

Nah sekarang lihat lah hasil yang telah saya buat dalam free pascal.

Pada gambar di atas adalah program yang telah saya buat. Pada program ini saya ada memasukan " if ( angka mod 2 : 0 ) then ". Ini maksudnya adalah angka integer habis dibagi 2 dan sisanya 0.Contoh angka 8 bagi 2 sisa 1 =0 , karena sisa baginya habis. Nah sekarang kita akan compile dan run.

     

 Pada gambar di atas adalah hasilnya. Angka yang harus dimasukan hanya bilangan genap untuk mendapatkan keterangan " Angka 8 adalah bilangan genap ". Jika kita memasukan bilangan ganjil maka tidak akan terjadi apa-apa, karena pada program ini tidak terdapat syarat untuk bilangan ganjil.

Jadi kita akan memasukan angka yang genap atau sisa baginya 0.

7. Program Struktur If Then Else

    Pada program ini kita akan membuat sebuah percabangan.

Pada dasarnya, kondisi IF THEN ELSE adalah tambahan dari kondisi IF THEN. Bagian ELSE digunakan untuk menjalankan kode program apabila sebuah kondisi tidak terpenuhi.
Konsep dasar dari percabangan IF THEN ELSE dalam bahasa pemrogram Pascal adalah sebagai berikut:

IF (kondisi) THEN
  begin
    (kode program 1)
  end
ELSE
  begin
    (kode program 2)
  end;

Jika kondisi terpenuhi, pascal akan menjalankan (kode program 1), jika tidak yang akan dijalankan adalah (kode program 2).

saya akan memabgikan hasilnya dengan program yang sama seperti pada no 7 tadi.

Pada gambar di atas itu adalah program yang sama seperti tadi, hanya saja di sini saya menambahkan syarat untuk bilangan ganjil. Jadi kita dapat memasukan angka ganjil seperti 9,5 dan lainnya. Di sana untuk menambahkan bilangan ganjilnya, saya memasukan (angka mod 2 : 1 ) berarti sisa baginya 1.

Selanjutnya langsung saja kita compile dan run.

 

Nah pada gambar di atas adalah hasil dari kita memasukan bilangan ganjil. Di gambar saya memasukan angka 5 dan ada keterangan bilangan ganjil. Pada program ini kita bisa memasukan angka genap maupun ganjil karena kita telah memasukan 2 syarat pada programnya.

 

Nah pada gambar tersebut saya telah memasukan 2 angka, yaitu angka 9 untuk bilangan ganjil dan angka 8 untuk bilangan genap.

Terimakasih kepada pak andreas yang telah mengajarkan kami semua itu.....salam wibu