Tes Program Pertama | Free Pascal

Free Pascal Tutorial

Yak,, setelah anda membaca tutorial sebelumnya
baca >> http://pillstick.blogspot.com/2013/05/fungsi-input-output-pada-free-pascal.html
maka anda sudah siap untuk membuat program sederhana dengan 2 fungsi input-output..
Beginilah contoh program yang akan anda buat

Input

kata-kata antara 1 - 100 kata

Output

Kata yang telah di input

Contoh Input

Ini blog cahya

Contoh Output

Ini blog cahya

Selamat Mencoba

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a : string; 
 
begin 
 readln (a); 
 writeln (a); 
end.

Fungsi Jumlah | Free Pascal | Latihan

Free Pascal Tutorial

Yak, kembali lagi bersama saya.
setelah anda melakukan program "Pertama" pada tutorial sebelumnya
baca >> http://pillstick.blogspot.com/2013/05/tes-program-pertama-free-pascal.html << sekarang kita akan masuk ke fungsi jumlah dalam free pascal.. Nah anda tahu penjumlahan kan?? misal ada A = 2 , B = 3, maka jumlah dari A + B adalah 2 + 3 = 5,, ini bukanlah sesuatu yang susah, dilihat saja kita bisa tahu jawabannya.. Nah berdasarkan itu, mari kita buat program yang sama dengan ini. Begini petunjuknya

Input

Angka Bilanga bulat (A,B) dipisahkan dengan spasi

Output

Jumlah dari Input-an anda

Contoh Input

10 50

Contoh Output

60

NB : Petunjuk,
untuk membuat inputan yang dipisahkan oleh spasi gunakan

readln (a, b);

Untuk menjumlahkan inputan, gunakan

writeln (a + b);

Jangan lupa untuk mendeklarasikan variabel a dan b ya.. jika tidak tahu, baca
>> http://pillstick.blogspot.com/2013/05/fungsi-input-output-pada-free-pascal.html << Selamat Mencoba

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a, b : integer; 
 
begin 
 readln (a,b); 
 writeln (a+b); 
end.

Transpos Matrik Sederhana | Free Pascal

Free Pascal Tutorial

Yah,, kembali lagi, sekarang pelatihan pascalnya adalah membuat Tranpos Matrik Sederhana.
Yak, saya rasa, dasar dasarnya sudah diberikan pada tutorial sebelumnya. Jika tidak mengerti harap baca tutorial sebelumnya di..

• http://pillstick.blogspot.com/2013/05/tutorial-sederhana-free-pascal.html
• http://pillstick.blogspot.com/2013/05/fungsi-jumlah-free-pascal-latihan.html

Hehe.. yak,, langsung saja ke TKP (kaya opera van java maksudnya)

Input

bilangan antara 1 - 100 yang disusun secara seperti ini
a b c
d e f
g h i

Output

Tranpos matrik dari bilangan yang dipilih. Maksdunya seperti ini :
a d g
b e h
c f i

Contoh Input

1 2 3
4 5 6
7 8 9

Contoh Output

1 4 7
2 5 8
3 6 9

Selamat Mencoba

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a, b, c, d, e, f, g, h, i : integer;
 
begin
   readln (a,b,c);
   readln (d,e,f);
   readln (g,h,i);
 
   writeln (a,' ',d,' ',g);
   writeln (b,' ',e,' ',h);
   writeln (c,' ',f,' ',i);
end.

Floor and Ceilling | Free Pascal | Latihan

Free Pascal Tutorial

Saatnya Latihan lagi.
Begini Soalnya.

Nilai floor dari sebuah bilangan real adalah bilangan bulat terbesar yang masih lebih kecil atau sama dengan bilangan tersebut, sebaliknya nilai ceiling dari sebuah bilangan real adalah bilangan bulat terkecil yang masih lebih besar atau sama dengan bilangan tersebut.

Pak Dengklek memberikan Anda sebuah bilangan real N (-1.000.000 < N < 1.000.000). Tentukan nilai floor dan ceiling dari N.

Format Masukan

Baris pertama berisi sebuah bilangan real N.

Format Keluaran

Sebuah baris berisi dua buah bilangan bulat yang dipisahkan oleh spasi, yaitu nilai floor dan nilai ceiling dari N.

Input

-256.625

Output

-257 -256

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a: real;
 
begin
   readln (a);
   if a < 0 then
        writeln (trunc(a-1),' ',trunc(a))
   else
   if a > 0 then
      begin
        writeln (trunc(a),' ',trunc(a+1));
      end;
end.

Fungsi Case | Free Pascal | Tutorial

Free Pascal Tutorial

Sekarang kita akan membahas fungsi Case pada free pascal.
Case dalam bahasa Indonesia adalah kasus. Jadi, fungsi ini adalah fungsi yang ditulis dalam membagi suatu kasus. Fungsi ini hampir sama dengan fungsi If-Then-Else, namun lebih disederhanakan lagi. Sebagai Contoh

Fungsi Case | Nested Structure
Beginilah salah satu contoh Fungsi case menggunakan Nested Structure dari fungsi If-Then-Else

if bil < 10 then
begin
    writeln('satuan');
end
else
begin
    if bil < 100 then
    begin
        writeln('puluhan');
    end
    else
    begin
        if bil < 1000 then
        begin
            writeln('ratusan');
        end
        else
        begin
            if bil < 10000 then
            begin
                writeln('ribuan');
            end
            else
            begin
                writeln('puluhribuan');
            end;
        end;
    end;
end;

Struktur Alternatif Menggunakan Fungsi Case Beginilah kiranya struktur alternatif menggunakan fungsi case.

case  of
    (harga atau harga-harga) 1 : begin (perintah-perintah 1) end;
    (harga atau harga-harga) 2 : begin (perintah-perintah 2) end;
    dan seterusnya...
end;

Dan contoh dari struktur diatas adalah seperti ini.

case bil of
    1..9: begin writeln('satuan'); end;
    10..99: begin writeln('puluhan'); end;
    100..999: begin writeln('ratusan'); end;
    1000..9999: begin writeln('ribuan'); end;
    10000..30000: begin writeln('puluhribuan'); end;
end;

Mudah Bukan?? sekarang saatnya Latihan. Begini soalnya

Seseorang memberikan Anda sebuah bilangan bulat N (1 ≤ N < 100.000). Jika N merupakan satuan, cetak satuan. Jika N merupakan puluhan, cetak puluhan. Jika N adalah ratusan, cetak ratusan. Jika N adalah ribuan, cetak ribuan. Jika N adalah puluh ribuan, cetak puluhribuan.

Format Masukan

1 bilangan integer

Format Keluaran

Sesuai permintaan soal

Input

4

Output

satuan

Contoh Input

12345

Contoh Output

puluhribuan

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a : integer;
 
begin
readln (a);
if a < 10 then
begin
        writeln ('satuan');
end
else
begin
        if a < 100 then
        begin
                writeln('puluhan');
        end
        else
        begin
                if a < 1000 then
                begin
                        writeln('ratusan');
                end
                else
                begin
                        if a < 10000 then
                        begin
                                writeln('ribuan');
                        end
                        else
                        begin
                                writeln('puluhribuan');
                        end;
                end;
        end;
end;
end.

Fungsi If Then Else | Free Pascal | Tutorial

Free Pascal Tutorial

Sekarang kita akan belajar lebih jauh mengenai fungsi If Then. Ini adalah pengembangan dari fungsi tersebut. Jadi, Jika ini Maka itu Jika tidak ini (Else), maka yang lain.
Bingung?? Jika Bingung, mari perhatikan struktur dibawah ini :

if (kondisi) then
begin
    (perintah-perintah 1)
end
else
begin
    (perintah-perintah 2)
end;
(perintah-perintah selanjutnya)

Bagaimana komputer membaca program diatas??

Nah jika kita menginput sesuatu. Komputer akan mengecek inputan itu dengan (kondisi) yang telah diberikan. Nah jika, kondisi benar, maka komputer akan melanjutkan ke perintah-perintah 1 lalu akan loncat ke perintah-perintah selanjutnya. Jika kondisi tidak memenuhi, maka komputer akan langsung ke perintah-perintah 2 kemudian loncat ke perintah-perintah selanjutnya.

Mudah bukan??
Nah, saatnya untuk Latihan. :)
Begini Soalnya :

Seseorang memberikan Anda sebuah bilangan bulat N (-100.000 ≤ N ≤ 100.000). Jika N adalah positif, maka cetak positif. Jika N adalah negatif, cetak negatif. Selain itu (yaitu jika N adalah 0), cetak nol.

Format Masukan

1 bilangan integer

Format Keluaran

Berisi jawaban sesuai apa yang soal minta

Input

4

Output

positif

Contoh Input

-6

Contoh Output

negatif

Contoh Input

0

Contoh Output

nol

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a : integer;
 
begin
   readln (a);
   if a > 0 then
      begin
         writeln ('positif');
      end
      else
      if a = 0 then
         begin
           writeln ('nol');
         end
         else
         if a < 0 then
            begin
               writeln ('negatif');
            end;
end.

Fungsi If Then Multicondition "And" | Free Pascal | Tutorial

Free Pascal Tutorial

Kembali lagi.
Saat ini, kita akan membahas tentang fungsi If Then Multicondition.
Sebenarnya,, fungsi ini adalah sama dengan fungsi If Then biasa.
Namun, bedanya,, disini ada lebih dari 1 kondisi.. Yak, langsung cek aja dah kalo gitu.
If Then Multiconditional

if  ((kondisi pertama)) and ((kondisi kedua)) then
begin
    (perintah-perintah)
end;

Contoh dari Fungsi di atas adalah seperti ini :

if (bil > 0) and (bil mod 2 = 0) then
begin
    writeln(bil);
end;

Logikanya tau sendiri kan ya?? jika tidak, ini maksudnya.

Kita pakai contoh diatas. Jadi jika ada suatu inputan. Maka program akan mengecek inputan tersebut. Jadi jika if then multiconditionnya menggunakan kata "and" maka HARUS kedua syarat memenuhi. Hasilnya, program itu akan mengecek apa bilangan tersebut lebih dari 0 dan apa bilangan tersebut habis di bagi 2. Jika salah satu condisi tidak memenuhi, maka inputan itu tidak di outputkan. Jika keduanya memenuhi, maka lanjut ke coding berikutnya.

Langsung ke Soal ya.. :D hehehe..
Begini soalnya.

Diberi kesempatan untuk input bilangan integer, lalu buat cek apa dia bilangan positif dan

habis dibagi 2. Kemudian outputkan bilangan yang memenuhi syarat tersebut.

Format Masukan

1 bilangan integer

Format Keluaran

tulis bilangan itu jika bilangan itu positif dan

habis dibagi 2. jika tidak, jangan tulis apa-apa

Input

4

Output

4

Contoh Input

-6

Contoh Output

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a : integer;
 
begin
   readln (a);
   if (a > 0) and (a mod 2 = 0) then writeln (a);
end.

Fungsi If ... Then | Tutorial | Free Pascal

Free Pascal Tutorial

Yak,, kembali lagi blogger bersama saya. Nah, kali ini kita akan membahas mengenai fungsi If ... Then dari Pascal.
Sebenarnya, ini fungsi yang tidak terlalu susah, jadi logikanya. Jika ini Maka itu atau If bla bla bla Then bla bla bla.

Secara umum, fungsi If-Then pada Free pascal ditulis seperti ini..

if (kondisi) then
begin
    (perintah-perintah)
end; 

Kondisi yang dimaksud bisa beragam, tergantung sesuai kebutuhan yang diminta.
Sebenarnya, fungsi If-Then diatas masi termasuk fungsi kompleks, karena setelah Then, kita masih menulis sebuah program di dalam inti program, diawali dengan begin.
Kiranya beginilah fungsi If-Then pascal yang sederhana

if (kondisi) then (perintah-perintah)

Mudah bukan??
Nah saatnya untuk latihan agar mempertajam pengetahuan kita.
Beginilah soalnya :

Abu adalah anak kelas 1 sd, dia diberi PR oleh gurunya mengenai bilangan positif. Namun karena malas, Abu tidak tahu apa bilangan positif itu. Nah, kamu sebagai kakaknya yang bisa komputer setidaknya membantu. Jadi buat lah sebuah program untuk membantu Abu menyelesaikan PR nya.

Format Masukan

Masukan bilangan bilangan integer

Format Keluaran

Jika bilangan yang dimasukkan lebih dari 0, tulis bilangan itu, jika tidak, jangan tulis apa-apa

Input

4

Output

4

Contoh Input

-1

Contoh Output

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a : integer;
 
begin
   readln (a);
   if a > 0 then writeln (a);
end.

Instalasi Pascal

Yak,, kembali lagi bersama saya,, sebenarnya untuk menginstall pascal itu mudah... hanya next next next dan seterusnya..
tapi jika anda ada yang tidak tau cara nginstall silahkan ikuti tutorial dari link berikut

Screen Shot Saat Penginstallan FPC

FO FPC

>> L I N K <<

Jarak Manhattan | Free Pascal | Latihan

Free Pascal Tutorial

Saatnya Latihan lagi.
Begini Soalnya.

Jarak Manhattan adalah jarak dari suatu titik menuju titik lainnya di bidang Cartesian dengan menyusuri bagian vertikal dan horizontal, tanpa pernah kembali. Secara sederhana sama dengan jumlah dari selisih absis dan selisih ordinat (jarak = |x1 - x2| + |y1 - y2|).

Pak Dengklek ingin pergi dari koordinat relatif (x1, y1) menuju (x2, y2) (-1.000.000.000 ≤ x1, y1, x2, y2 ≤ 1.000.000.000). Tentukan jarak Manhattan yang harus ditempuh Seseorang.

Format Masukan

Baris pertama berisi empat buah bilangan bulat x1, y1, x2, dan y2 yang masing-masing dipisahkan oleh sebuah spasi.

Format Keluaran

Sebuah baris berisi sebuah bilangan bulat yang merupakan jarak Manhattan dari kedua titik tersebut.

Input

-1 -1 1 1

Output

4

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a, b, c, d, e, f : longint;
 
begin
 readln (a,b,c,d);
 e := a - c;
 f := b - d;
 writeln (abs(e) + abs(f));
end.

Nilai Kalimat Matematika | Free Pascal | Latihan

Free Pascal Tutorial

Karena di judul udah di tulis L A T I H A N, maka langsung aja cek soalnya.
Soalnya seperti berikut ini.

Seseorang memberikan Anda sebuah kalimat matematika sederhana. Tentukan nilainya.

Format Masukan

Sebuah baris berisi sebuah kalimat matematika dalam bentuk "A op B", dengan A dan B adalah bilangan bulat (-10.000 ≤ A, B ≤ 10.000) dan op adalah sebuah karakter yang merupakan salah satu dari '+', '-', '*', '<', '>', dan '='.

Format Keluaran

Sebuah baris berisi nilai dari kalimat matematika tersebut. Apabila op merupakan '+', '-', atau '*', cetak hasil dari operasi matematika tersebut. Apabila op merupakan '<', '>', atau '=', cetak "benar" apabila kalimat matematika tersebut bernilai benar dan cetak "salah" apabila kalimat matematika tersebut bernilai salah.

Input

100 - 50

Output

50

Contoh Input

-6 < 4

Contoh Output

benar

Contoh Input

16 < 4

Contoh Output

salah

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a,b : longint;
        op1, op, op2 : char;
 
begin
  read(a);
  read(op1);
  read(op);
  read(op2);
  read(b);
  if op = '+' then writeln(a+b) else
  if op = '-' then writeln(a-b) else
  if op = '*' then writeln(a*b) else
  if op = '<' then
        begin
          if a < b then writeln('benar') else writeln('salah')
        end
        else
  if op = '>' then
        begin
          if a > b then writeln('benar') else writeln('salah')
        end
        else
  if op = '=' then
        begin
          if a = b then writeln('benar') else writeln('salah')
        end
end.

Petunjuk

Karena dalam satu baris Anda harus membaca dua buah bilangan dan tiga buah karakter, yaitu A, spasi, op, spasi, dan B, maka Anda harus menyebutkan satu demi satu masukan tersebut dalam perintah readln, sebagai berikut:

readln(A, sp, op, sp, B);

Variabel dummy sp diperlukan untuk 'membaca' karakter spasi. Disebut dummy karena setelah dibaca lalu diabaikan.

Setelah itu lakukan operasi sesuai yang diminta soal.

Luas Segitiga dan 2 Angka di belakang Koma | Free Pascal

Sumber : tokilearning

Yak, setelah kita mengetahui beberapa dasar dari operasi bilangan,
(jika belum baca http://pillstick.blogspot.com/2013/05/tutorial-sederhana-free-pascal.html )
Saatnya kita kembali berlatih.

Dan latihan kali ini adalah Menentukan Luas Segitiga dan Membuat 2 angka di belakang Koma (,).
Beginilah contoh soalnya.

Hakim adalah anak kelas 2 SD, tapi dia sudah diajari cara membuat Segitiga, dan cara menentukan Luas segitiga. Namun, dia belum diajari perkalian dan pembulatan 2 angka dibelakang koma dan gurunya memberinya banyak PR. Bantulah Hakim untuk menyelesaikan PR nya.

Format Masukan
Berisi 2 bilangan, Alas dan Tinggi segitiga

Format Keluaran
Luas segitiga dengan tepat 2 angka dibelakang koma

Input

7 5

Output

17.50

Contoh Input

2 6

Contoh Output

6.00

NB : Petunjuk,
Karena luas segitiga bisa bukan merupakan bilangan bulat, maka Anda perlu menyimpannya dalam suatu variabel bertipe real. Masih ingat rumus luas segitiga, yaitu (A x T / 2)? Operator pembagian bilangan nyata pada Pascal adalah '/'. Operator perkalian pada Pascal adalah '*'. Jadi, misalkan luas bertipe real, Anda dapat menghitung luas segitiga tersebut dengan perintah

Luas := A * T / 2

Lalu, bagaimana agar hasilnya dicetak dalam dua angka di belakang koma? Perintah writeln memiliki format khusus agar bilangan nyata dapat dicetak seperti itu dengan menambahkan ':0:X' di belakang ekspresi yang ingin dicetak pada writeln, dengan X adalah banyak angka di belakang koma yang diinginkan. Jadi, luas tersebut dapat dicetak dengan perintah
untuk membuat inputan yang dipisahkan oleh spasi gunakan

writeln(luas:0:2); 

Jangan lupa untuk mendeklarasikan variabel a dan b ya.. jika tidak tahu, baca
>> http://pillstick.blogspot.com/2013/05/fungsi-input-output-pada-free-pascal.html << Selamat Mencoba

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a, b : integer; 
c : real; 


begin 
     readln (a,b); 
     c := a * b / 2; 
     writeln (c:0:2); 
end.

Kalau kita lihat disana, alur programnya adalah seperti berikut.

Baris 1 dan 2

Kita mendefinisikan variabel a dan b sebagai integer (bilangan bulat) dan c sebagai real (bilangan yang ada komanya, karena diminta yang seperti itu).

Baris 4 sampai 8

Baris ini adalah inti programnya.

Baris 5

Membuat input nilai a dan b

Baris 6

Membuat rumus mencari c dengan rumus luas segitiga

Baris 7

Membuat output nilai c dengan 2 angka dibelakang koma

Fungsi While | Free Pascal | Tutorial

Free Pacal Tutorial

Kembali lagi bersama saya, maaf sempat vakum gara2 sibuk bantuin install komputer neg.. Kali ini kita akan membahas tentang Fungsi While.

Petunjuk

Sumber http://tokilearning.org/

Ubah baris berikut pada soal Program Pertamaku

readln(kalimat);

menjadi

while not eof(input) do
begin
    readln(kalimat);
    writeln(kalimat);
end;

Dalam deretan perintah di atas terdapat struktur loop (perulangan) while, dengan struktur umumnya:

while (kondisi) do
begin
    (perintah-perintah)
end;

Dengan struktur seperti di atas, program akan menjalankan terus selama bernilai benar. eof(input) adalah kondisi di mana berkas habis dibaca. Jadi, dengan menambahkan operator ingkaran not di depannya, artinya program akan terus membaca baris-baris selama berkas belum habis dibaca.

Untuk menguji program Anda, buatlah berkas teks 'uji2.txt' (seperti 'uji.txt' namun dituliskan dalam beberapa baris) dan uji program Anda dengan cara yang sama seperti pada soal Program Pertamaku.

Ada soal nih.

Program Anda harus membaca banyak baris masukan, dan mencetak kembali sejumlah baris tersebut yang isinya sama dengan masukan tersebut.

Format Masukan

Banyak baris, antara 1 sampai 100 baris, masing-masing berisi sebuah kalimat yang terdiri atas 1 sampai 100 karakter.

Format Keluaran

Sejumlah baris sesuai masukan yang isinya sama persis dengan masukan.

Input

abc
123

Output

abc
123

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a : string;
 
begin
while not eof(input) do
   begin
        readln(a);
        writeln(a);
   end;
end

Tutorial Sederhana | Free Pascal

Artikel ini, saya dapat dari http://dempu.blogspot.com/ yang diubah seperlunya

Tutorial Pascal pillstick.blogspot.com

1. Struktur Program

Berikut adalah contoh source code sebuah program pascal:

program contoh;

uses
   crt;

var
   a: string;

begin
   clrscr;
   write('Masukkan nama anda: ');
   readln(a);
   writeln('Halo ', a);
   readln;
end.

program

Berisi nama/judul program, dalam kasus ini yaitu 'contoh'.

uses

Berisi daftar unit yang akan digunakan dalam program, yaitu 'crt'. Unit merupakan suatu modul program yang terpisah dan digunakan untuk menyimpan proses-proses/fungsi yang berkaitan. Seperti pada contoh, 'uses crt' berarti program menggunakan suatu unit bernama 'crt', yang berisi kumpulan rutin (prosedur maupun fungsi) untuk pengontrolan PC. Jika program menggunakan lebih dari satu unit, maka masing-masing unit dipisah dengan tanda koma (contoh: uses crt, dos;).

var (deklarasi)
Berisi daftar variabel yang akan digunakan dalam program (dalam contoh yaitu 'a') beserta tipe datanya (string), atau bisa disebut dengan bagian deklarasi variabel. Selain variabel, deklarasi-deklarasi lain yang dibutuhkan sebuah program meliputi:

Deklarasi tipe data
Deklarasi konstanta
Deklarasi variabel
Deklarasi prosedur
Deklarasi fungsi
Deklarasi label

Contoh deklarasi konstanta dan variabel:

const 
    n = 100; 
var 
    a: integer;

begin-end

Berisi statemen-statemen yang akan dijalankan program. Contoh statemen adalah clrscr, writeln, readln, dll. Statemen-statemen ini harus berada di dalam blok begin-end.

2. Statemen-statemen Pascal

clrscr

Digunakan untuk membersihkan/mengosongkan layar.

write / writeln

Digunakan untuk menampilkan teks atau nilai dari suatu variabel pada layar.
Perbedaan antara write dengan writeln adalah pada posisi kursor setelah statemen dijalankan. Pada write, kursor akan berada di belakang teks, sedangkan pada writeln, kursor akan berada pada baris berikutnya.
contoh:

write('contoh'); 
writeln('example'); 
writeln(a);  
write('Halo ', a);

read / readln

Digunakan untuk membaca dan memasukkan nilai yang diinput melalui keyboard ke dalam suatu variabel.
contoh:
readln(a); (memasukkan data yang diinput ke dalam variabel a)
readln; (menunggu user menekan tombol enter sebelum melanjutkan ke statemen berikutnya)

3. Operator dalam Pascal

3.1 Operator Assignment

Digunakan untuk memberi nilai kepada suatu variabel.
contoh:

x:= 1 + 2; 
a:= a +1;

3.2 Operator Aritmatika

+

Digunakan untuk melakukan penjumlahan. contoh: a + b

-

Digunakan untuk melakukan pengurangan. contoh: x - 1

*

Digunakan untuk melakukan perkalian. contoh: a * b

/

Digunakan untuk melakukan pembagian. contoh: 7 / 3

div

Pembagian untuk bilangan bulat.
contoh:
10 div 5, akan menghasilkan 2
10 div 3, akan menghasilkan 3

mod

Digunakan untuk menghitung sisa bagi.
contoh:
10 mod 5, akan menghasilkan 0
10 mod 3, akan menghasilkan 1

Mencoba Syntax Highlighter | Untuk Coding

Freepascal tutorial

Versi XHTML

var c, d, max, min : real;
        p : array [1..10002] of real;
      a, b : integer;
 
begin
readln(a);
c:=0;
for b:= 1 to a do
     begin
        readln(p[b]);
        c := c + p[b];
     end;
d:= c/a;
max := p[1];
min := p[1];
for b:= 2 to a do
     begin
        if p[b] > max then max := p[b];
        if p[b] < min then min := p[b];
     end;
write(min:0:2,' ',max:0:2,' ',d:0:2);
writeln;
end.

Versi CSS

var c, d, max, min : real;
        p : array [1..10002] of real;
      a, b : integer;
 
begin
readln(a);
c:=0;
for b:= 1 to a do
     begin
        readln(p[b]);
        c := c + p[b];
     end;
d:= c/a;
max := p[1];
min := p[1];
for b:= 2 to a do
     begin
        if p[b] > max then max := p[b];
        if p[b] < min then min := p[b];
     end;
write(min:0:2,' ',max:0:2,' ',d:0:2);
writeln;
end.

Versi Java Script

var c, d, max, min : real;
        p : array [1..10002] of real;
      a, b : integer;
 
begin
readln(a);
c:=0;
for b:= 1 to a do
     begin
        readln(p[b]);
        c := c + p[b];
     end;
d:= c/a;
max := p[1];
min := p[1];
for b:= 2 to a do
     begin
        if p[b] > max then max := p[b];
        if p[b] < min then min := p[b];
     end;
write(min:0:2,' ',max:0:2,' ',d:0:2);
writeln;
end.

Fungsi Case | Free Pascal | Tutorial

Dikutip Dari Toki Learning

FreePascal Tutorial

Sekarang kita akan membahas fungsi Case pada free pascal.
Case dalam bahasa Indonesia adalah kasus. Jadi, fungsi ini adalah fungsi yang ditulis dalam membagi suatu kasus. Fungsi ini hampir sama dengan fungsi If-Then-Else, namun lebih disederhanakan lagi. Sebagai Contoh

Fungsi Case | Nested Structure
Beginilah salah satu contoh Fungsi case menggunakan Nested Structure dari fungsi If-Then-Else

if bil < 10 then
begin
    writeln('satuan');
end
else
begin
    if bil < 100 then
    begin
        writeln('puluhan');
    end
    else
    begin
        if bil < 1000 then
        begin
            writeln('ratusan');
        end
        else
        begin
            if bil < 10000 then
            begin
                writeln('ribuan');
            end
            else
            begin
                writeln('puluhribuan');
            end;
        end;
    end;
end;

Struktur Alternatif Menggunakan Fungsi Case Beginilah kiranya struktur alternatif menggunakan fungsi case.

case  of
    (harga atau harga-harga) 1 : begin (perintah-perintah 1) end;
    (harga atau harga-harga) 2 : begin (perintah-perintah 2) end;
    dan seterusnya...
end;

Dan contoh dari struktur diatas adalah seperti ini.

case bil of
    1..9: begin writeln('satuan'); end;
    10..99: begin writeln('puluhan'); end;
    100..999: begin writeln('ratusan'); end;
    1000..9999: begin writeln('ribuan'); end;
    10000..30000: begin writeln('puluhribuan'); end;
end;

Mudah Bukan?? sekarang saatnya Latihan. Begini soalnya

Seseorang memberikan Anda sebuah bilangan bulat N (1 ≤ N < 100.000). Jika N merupakan satuan, cetak satuan. Jika N merupakan puluhan, cetak puluhan. Jika N adalah ratusan, cetak ratusan. Jika N adalah ribuan, cetak ribuan. Jika N adalah puluh ribuan, cetak puluhribuan.

Format Masukan

1 bilangan integer

Format Keluaran

Sesuai permintaan soal

Input

4

Output

satuan

Contoh Input

12345

Contoh Output

puluhribuan

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a : integer;
 
begin
readln (a);
if a < 10 then
begin
        writeln ('satuan');
end
else
begin
        if a < 100 then
        begin
                writeln('puluhan');
        end
        else
        begin
                if a < 1000 then
                begin
                        writeln('ratusan');
                end
                else
                begin
                        if a < 10000 then
                        begin
                                writeln('ribuan');
                        end
                        else
                        begin
                                writeln('puluhribuan');
                        end;
                end;
        end;
end;
end.

Fungsi Input - Output pada Free Pascal

Dikutip Dari Toki Learning

Screenshot Freepascal Compiler

 

read & readln

Perintah ini berfungsi untuk membaca masukan dari keyboard dan menyimpannya dalam suatu variabel. Bedanya adalah, setelah membaca, readln akan menyebabkan pembacaan berpindah ke baris berikutnya, sedangkan read tidak.
Misalnya, untuk membaca sebuah bilangan bulat dalam suatu baris dan menyimpannya ke dalam variabel bil, gunakan perintah

readln(bil);

Untuk membaca 2 atau lebih masukan dalam satu baris yang dipisahkan oleh spasi, tambahkan variabel penampungnya ke dalam perintah read/readln, dipisahkan oleh koma. Misalnya, untuk membaca tiga buah bilangan bulat dalam satu baris ke dalam tiga buah variabel bil1, bil2, dan bil3, gunakan perintah

readln(bil1, bil2, bil3);

Perintah tersebut sama dengan

read(bil1); read(bil2); readln(bil3);

write &  writeln

Perintah ini berfungsi untuk mencetak suatu nilai ke layar monitor. Bedanya adalah, setelah mencetak, writeln akan menyebabkan pencetakan berpindah ke baris berikutnya, sedangkan write tidak.
Misalnya, untuk mencetak isi dari variabel bil dalam sebuah baris ke layar, gunakan perintah

writeln(bil);

Sama seperti read/readln, untuk mencetak 2 atau lebih nilai pada sebuah baris, tambahkan nilai-nilainya ke dalam perintah tersebut, dipisahkan oleh koma. Misalnya, untuk mencetak isi tiga buah variabel bil1, bil2, dan bil3, dipisahkan oleh spasi, gunakan perintah

writeln(bil1, ' ', bil2, ' ', bil3);

Nilai yang berada di dalam perintah write/writeln tidak harus berupa variabel; bisa pula berupa konstanta. Misalnya, Anda dapat memberikan perintah

writeln('Selamat datang, ', nama, '!');

Konstanta berupa string pada Pascal diapit dengan tanda petik satu.

Tipe-Tipe Data Utama pada Free Pascal

Nama	Jenis	Jangkauan	Ukuran
integer	bilangan bulat	-215 sampai 215-1	2 byte
longint	bilangan bulat	-231 sampai 231-1	4 byte
int64	bilangan bulat	-263 sampai 263-1	8 byte
real	bilangan nyata	-2,2 x 10308 sampai 1,7 x 10308	8 byte
boolean	logika Boolean	{false, true}	1 byte
char	karakter	1 karakter ASCII	1 byte
string	rangkaian karakter	0-255 karakter ASCII	n byte

Memberi Nilai Langsung pada Variabel

Sejauh ini kita telah mempelajari cara memberikan nilai pada variabel lewat masukan yang diberikan pengguna. Kita juga bisa langsung memberi nilai pada variabel, dengan operator ':='. Nilai yang berada di sebelah kanan operator ini akan dimasukkan ke dalam variabel yang berada di sebelah kiri operator ini. Misalnya,

hasil := 5;

Sekarang variabel hasil akan berisi nilai 5.

Dasar Free Pascal Bagian 2

Lanjutan dari
Dasar Pascal Bag. 1

Screenshot Freepascal

Yah,, setelah kamu telah bisa membuka program pascal, saatnya kita membuat sesuatu yang sederhana..
pada awal ini, kita akan mencoba membuat sebuat program yang bernama
program pertamaku.pas

coba anda tulis script dibawah ini ke dalam field penulisan program di free pascal anda

program pertamaku; 
var 
  kalimat : string; 
begin 
  readln(kalimat); 
  writeln(kalimat); 
end.

nah,, pokok dari sebuah program dasar ialah Variabel dan Isi program.
Variabel itu dilambangkan dengan
Var ...

 var
  kalimat : string ; 

Variabel itu menjelaskan bahwa kita telah membuat sebuah variabel -
yang akan digunakan isi program.
secara umum bentuk variabel seperti ini

var  a : integer;
c,d,e : string;
aku : array [1..100] of longint; 

selanjutnya adalah isi program.
isi pokok program ini adalah yang nantinya akan digunakan untuk me-
nuntun program..
jadi isi program itu diawali dengan begin, dan diakhiri dengan end.
sebagai contoh.

begin
  readln(a);
  writeln(a);
end. 

jadi komputer akan menjalankan perintah dari perintah yang ditulis pada isi program.
NB: setiap akhir perintah harus diakhiri dengan titik koma ( ; ),
nah sekarang kita akan mencoba untuk membaca program pertamaku.pas

program pertamaku; 
var 
  kalimat : string; 
begin 
  readln(kalimat); 
  writeln(kalimat); 
end.

========================

• program pertamaku adalah sebagai judul program,
• var kalimat : string; jadi kita mendeklarasikan suatu variabel dengan nama kalimat, dan kalimat itu adalah sebuah string (huruf bukan angka).
• begin readln(kalimat); writeln(kalimat); end. ini adalah program inti nya..
• Readln(kalimat);  ini adalah sebuah perintah input, jadi jika program dijalankan maka pertama kali program akan meminta anda menginputkan sesuatu. dan sesuatu itu akan menjadi variable kalimat.
• Writeln(kalimat); nah disini adalah perintah output. cara kerjanya,, ketika anda telah menginputkan sesuatu yang menjadi variable kalimat, perintah ini akan meng-output kan sesuatu yang telah kalian masukkan..

Jadi hasil programmnya ialah
setelah dicompile dan di run,,
jika anda mengetik

namaku cahya

maka output nya

namaku cahya

begitu seterusnya..
selamat ber explorasi :D

Dasar Free Pascal Bagian 1

DASAR PASCAL BAGIAN 1

wow,, baru nulis dah gede2 hurufnya.. ckckckc..
dasar pertama ini yang paling mudah,, yakni bagaimana cara kita menjalankan program pascal..
pertama jika anda semua telah selesai install pascal anda..
Cara membuka pascal..
Lihat desktop >> Klik icon Free pascal >>
jika benar,, maka akan keluar tampilan seperti ini

Screenshot FreePascal 

Nah,, jika seperti itu tampilannya maka anda telah benar membukanya..
Sekarang, kita akan lanjut ke bagaimana cara membuat project baru???
caranya sangat mudah..
jadi kita tinggal klik File pada menubar >> klik new..
setelah itu akan muncul screen shoot biru seperti dipostingan sebelumnya..
nah itu tempat dimana kita menulis code/script program..
setelah selesai,, kita harus mengcompile nya dulu sebelum menjalankan..
nah cara mengcompile nya adalah tinggal menekan
alt + f9,

lalu untuk nge-run programnya pencet ctrl + f9,

nah, jika terjadi suatu kesalahan sehingga hasil run program pascal yang kamu buat tidak mau berhenti..
silahkan tekan ctrl + Z lalu enter.. :D
tunggu bagian berikutnya ya :D

Pengenalan Pascal dan Link Downloadnya

Kali ini saya akan menposting tentang salah satu bahasa pemrograman yang banyak orang sudah tau.. Yak benar, ini adalah bahasa Pascal..
Beginiliah screenshoot-nya

Telah kita ketahui,, pascal merupakan salah satu dari sekian banyak dasar bahasa pemrograman. dengan pascal kita dapat membuat beberapa program sederhana, bahkan jika sudah ahli kita dapat membuat sebuah game sederhana (contoh: tetris).
Anda dapat mendownload compiler pascal nya disini :

Click here to download

Note :
Last link checked on 28 April 2013