Floor and Ceilling | Free Pascal | Latihan

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.

Jarak Manhattan | Free Pascal | Latihan

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 Matematik | Free Pascal | Latihan

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.

Fungsi Case | 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

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

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

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.

Transpos Matrik Sederhana | Free Pascal

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://cahya-putra.blogspot.com/2011/07/tutorial-sederhana-free-pascal.html
• http://cahya-putra.blogspot.com/2011/07/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.

Mencoba Syntax Highlighter | Untuk Coding

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.

Luas Segitiga dan 2 Angka di belakang Koma | Free Pascal

Yak, setelah kita mengetahui beberapa dasar dari operasi bilangan,
(jika belum baca http://cahya-putra.blogspot.com/2011/07/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://cahya-putra.blogspot.com/2011/07/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.

Tutorial Sederhana | Free Pascal

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

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); (menampilkan isi dari variabel 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

Fungsi Pembagian | Free Pascal

Kembali lagi bersama saya, dalam tutorial pascal ini, kita akan mempelajari fungsi pembagian pada pascal.
Nah,, disini ada 2 fungsi pembagian pada pascal. Yang pertama adala mod, lalu yang kedua adalah div. Beginilah pengertiannya.

• Mod

Mod adalah salah satu fungsi pembagian dalam bahasa pascal, sebenarnya ini juga ada dalam matematika, Tujuan dari fungsi mod adalah untuk mengetahui sisa hasil bagi.Jadi misal 3 : 2 = 1 sisa 1, nah ini akan sama artinya dengan 3 = 1 (mod 2) didalam bahasa matematika. Bagaimana dengan bahasa pascal?? beginilah kira-kira bentuk umunya.

a mod b = c

dimana a adalah bilangan, b adalah bilangan yang membagi bilangan a, dan c adalah sisa hasil bagi a dibagi b. Dengan syarat a > b.

• Div

Di ini juga sama, namun di ini untuk mencari hasil baginya. jika hasil bagi nya bersisa, maka akan ditulis hasil yang memenuhi. Maksudnya.. jika a = 5 , b = 2, dan a div b = 2.
bentuk umum fungsi di dalam bahasa pascal adalah

a div b = c

=============================================================================
Yak, setelah kita mengetahui beberapa poin penting dari operasi mod dan div, saatnya untuk latihan.

Soal.
buatlah sistem pembagian dengan memasukan 2 variabel input, dan mengeluarkan hasil bagi dan sisa hasil bagi darinya.

Contoh Input

15 3

Contoh Output

Masing-masing 5
Bersisa 0

Contoh Input

20 3

Contoh Output

Masing-masing 6
Bersisa 2

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a, b : integer;

begin
readln (a,b);
writeln ('masing-masing ', a div b);
writeln ('bersisa ', a mod b);
end.

Fungsi Jumlah - Free Pascal - Latihan

Yak, kembali lagi bersama saya.
setelah anda melakukan program "Pertama" pada tutorial sebelumnya
baca >> http://cahya-putra.blogspot.com/2011/07/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://cahya-putra.blogspot.com/2011/07/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.

Tes Program Pertama - Free Pascal

Yak,, setelah anda membaca tutorial sebelumnya
baca >> http://cahya-putra.blogspot.com/2011/07/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 Input - Output pada Free Pascal

Dikutip Dari Toki Learning

 

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.

Tutorial Pascal Bag. 2

Lanjutan dari
Dasar Pascal Bag. 1

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 ... (tulisan yang berwarna oranye).

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

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

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

>> L I N K <<

Pengenalan Pascal + Link Download Full

Maaf, saya telah vacuum blogging untuk waktu yang cukup lama,,
di Posting pertama ini, saya akan menposting tentang salah satu bahasa pemrograman yang banyak orang sudah tau.. Yak benar, ini adalah bahasa Pascal..
Beginiliah screen shootnya

Gambar diatas Logo Pascal

Gambar diatas Screen Shot saat menjalankan program

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 : >> LINK <<

Yak setelah anda mendownload nya anda harus menginstallnya terlebih dahulu,,
cara menginstallnya akan ada pada postingan berikutnya :D

Floor and Ceilling | Free Pascal | Latihan

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.