Tekno Informatika: April 2016

Rabu, 20 April 2016

Perulangan (Looping) Dalam Bahasa Pascal

Looping Dalam Pascal

Dalam bahasa pascal terdapat tiga perulangan (looping), yaitu For to do, While..do, dan Repeat..Until. Berikut ini adalah contoh dari perulangan dalam pascal.

1. For..to..do

Program menampilkan bilangan cacah satu sampai sepuluh.

Jika di running hasilnya akan seperti dibawah ini;

2. While..do

Program menampilkan 10 kata dengan looping.

Jika di running hasilnya akan seperti dibawah ini;

3. Repeat..until

Program menampilkan 10 kata dengan looping repeat..until

Jika di running hasilnya akan seperti dibawah ini;

Perbedaan Looping For..To..Do, While..Do, dan Repeat Until.

Berdasarkan contoh diatas maka kita bisa mengetahui beberapa perbedaan antara ketiga looping diatas.

1. For..To..Do

- Bisa terjadi pengulangan atau sama sekali tidak terjadi pengulangan sama sekali.

- Banyaknya pengulangan dapat ditentukan.

- Pencatatan counter interval -1 atau +1.

2. While..Do

- Pengulangan terjadi selama kondisi benar atau sama sekali tidak terjadi pengulangan.

3. Repeat..Until

- Pengulangan terjadi sampai kondisi benar atau selama kondisi salah.

Nah, itulah sedikit contoh mengenai perulangan dalam bahasa pascal. Semoga program-program itu bisa lebih dikembangkan lagi. Sekian dulu untuk postingan kali ini.

Senin, 18 April 2016

Mengenal Kondisi If di Bahasa Pascal

A. Mengenal Kondisi IF

Pada postingan kali ini saya akan membahas tentang kondisi if atau statement decision. Dalam bahasa pascal terdapat 2 bentuk umum kondisi if, yaitu Struktur If....Else, dan Case Of.

Ada beberapa perbedaan dalam statement kondisional If....Else dan Case Of. Statement kondisional If...Else dapat mengeksekusi statement yang mempunyai kondisi statis maupun dinamis. Contohnya seperti ini

If x<=5 and x>=10 >>> Kondisi yang bersifat dinamis.

if x=10 >>> Kondisi yang bersifat statis.

Sedangkan Case Of hanya bisa mengeksekusi statement jika kondisinya bersifat statis, seperti contoh diatas.

Dibawah ini saya akan memberikan sedikit contoh program yang memakai If...Else dan Case Of

B. Contoh Program If...Else

Jika di running hasilnya akan seperti ini;

C. Contoh Program Case Of

Jika di running, hasilnya akan seperti ini;

Itulah sedikit contoh tentang statement decision If..Else dan Case Of. Semoga dengan postingan ini dapat membantu dalam memahami statement decision yang ada dalam bahasa pascal.
Terima Kasih.

Membuat Kalkutator Dengan FreePascal

Kalkulator Dengan FreePascal

Kali ini saya akan memberikan contoh program kalkulator dengan menggunkkan FreePascal. Pada pemograman kalkulator ini diperlukkan kondisi if. Berikut ini adalah listingnya;

program kalkulator;

uses crt;

var a,b,h:real;

s:char;

begin

clrscr;

writeln('Membuat Program Kalkulator Dengan Free Pascal');

write('Masukkan angka ke-1 = ');readln(a);

write('Masukkan simbol (+-*/)= ');readln(s);

write('Masukkan angka ke-2 = ');readln(b);

if s='+' then h:=a+b;

if s='-' then h:=a-b;