Kamis, 21 Maret 2013

FPC IF

  File  Edit  Search  Run  Compile  Debug  Tools  Options  Window  Help 15:43:08
┌────────────────────────────────── aaaa.pas ──────────────────────────────────┐
│╔═[■]═════════════════════════════ aaaaa.pas ═════════════════════════════[↑]═╗
│║program                                                                      ▲
│║faska2;                                                                      ▓
│║var                                                                          ▓
│║a:integer;                                                                   ▓
│║Begin                                                                        ▓
│║  Readln(a);                                                                 ▓
│║  IF(a>=75)then                                                              ▓
│║    writeln('lulus')                                                         ▓
│║else                                                                         ▓
│║begin                                                                        ▓
│║  if(a<0)then                                                                ▓
│║    writeln('DROP OUT')                                                      ▓
│║  else                                                                       ▓
│║    write('remedial')                                                        ▓
│║end;                                                                         ▓
│║readln();                                                                    ▓
│║end.                                                                         ▓
│║                                                                             ▓
│║                                                                             ▓
│║                                                                             ▼
└╚══*════14:20 ◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►┘
 F1 Help  F2 Save  F3 Open  Alt+F9 Compile  F9 Make  Alt+F10 Local menu


FPC If sebenarnya intinya sama dengan if di excel. Jika ingin memasukan nilai (nilai murid murid misalnya) dengan perbandingan maka harus menggunaka if untuk membedakan nilai yang lebih rendah atau lebih tinggi dari batas. Setelah else dan sebelum else tidak usah menggunakan tanda ";"


Kamis, 14 Maret 2013

FPC penjumlahan basic

  File  Edit  Search  Run  Compile  Debug  Tools  Options  Window  Help 15:23:53
┌──────────────────────────────── sindut.pas:2 ──────────────────────────1─────┐
│╔═[■]════════════════════════════ sindut3.pas ══════════════════════════6═[↑]═╗
│║program                                                                      ▲
│║BEBAS_;                                                                      ▓
│║var                                                                          ▓
│║a,b,c :integer;                                                              ▓
│║begin                                                                        ▓
│║a:=700;                                                                      ▓
│║b:=122;                                                                      ▓
│║c:=a+b;                                                                      ▓
│║                                                                             ▓
│║  write('ini adalah hasil dari variabel a tambah b ');                       ▓
│║  writeln(C);                                                                ▓
│║                                                                             ▓
│║  readln();                                                                  ▓
│║                                                                             ▓
│║                                                                             ▓
│║                                                                             ▓
│║                                                                             ▓
│║end.                                                                         ▓
│║                                                                             ▓
│║                                                                             ▼
└╚════════6:3 ═◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►┘
 F1 Help  F2 Save  F3 Open  Alt+F9 Compile  F9 Make  Alt+F10 Local menu

Untuk membuat suatu program, pertama kita harus menulis "program" kemudian enter, kemudian tulislah judul programnya, tetapi setelah menulis harus diberi tanda ";" karena apabila tidak diberi tanda itu nantinya akan eror. Setelah menulis judul, kita harus menuliskan "var" untuk variabel, enter, dan tuliskan variabelnya kemudian di belakangnya diberi ":integer;" setelah menuliskan beberapa rumus dan sudah selesai, kita harus memberikan "begin" pada bagian awalnya dan "end." di bagian akhir nya. Kalau sudah selesai dan ingin menjalankan programnya kamu tinggal klik "run" pada menu.

Fungsi write adalah membaca apa yang kita tuliskan dengan tanda ('')
Fungsi writeln sama seperti write tapi nanti hasilnya langsung ada enter nya ,(maksudnya nanti tulisannya ada di bawah nya)
Fungsi read adalah untuk menampilkan angka yang sudah dituliskan kita sebelumnya
Fungsi readln sama seperti read tetapi nanti hasilnya ada enter nya.

FPC pertama

   File  Edit  Search  Run  Compile  Debug  Tools  Options  Window  Help
││╔═[■]═══════════════════════════ sindut.pas:2 ═════════════════════════3═[↑]═╗
││║program                                                                     ▲
││║iyahoo;                                                                     ■
││║begin                                                                       ▒
││║    writeln('gazagndut');                                                   ▒
││║    write('kehidupan');                                                     ▒
││║    writeln('dualwield by bontox');                                         ▒
││║                                                                            ▒
││║                                                                            ▒
││║                                                                            ▒
││║                                                                            ▒
││║                                                                            ▒
││║                                                                            ▒
││║                                                                            ▒
││║                                                                            ▒
││║                                                                            ▒
││║                                                                            ▒
││║                                                                            ▒
││║   readln();                                                                ▒
││║end.                                                                        ▼
└└╚════════1:1 ═◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►┘
 F1 Help  F2 Save  F3 Open  Alt+F9 Compile  F9 Make  Alt+F10 Local menu

Untuk membuat suatu program, pertama kita harus menulis "program" kemudian enter, kemudian tulislah judul programnya, tetapi setelah menulis harus diberi tanda ";" karena apabila tidak diberi tanda itu nantinya akan eror. Setelah menulis judul, kita harus menuliskan "var" untuk variabel, enter, dan tuliskan variabelnya kemudian di belakangnya diberi ":integer;" setelah menuliskan beberapa rumus dan sudah selesai, kita harus memberikan "begin" pada bagian awalnya dan "end." di bagian akhir nya. Kalau sudah selesai dan ingin menjalankan programnya kamu tinggal klik "run" pada menu.

Fungsi write adalah membaca apa yang kita tuliskan dengan tanda ('')
Fungsi writeln sama seperti write tapi nanti hasilnya langsung ada enter nya ,(maksudnya nanti tulisannya ada di bawah nya)
Fungsi read adalah untuk menampilkan angka yang sudah dituliskan kita sebelumnya
Fungsi readln sama seperti read tetapi nanti hasilnya ada enter nya.

FPC Penjumlahan

  File  Edit  Search  Run  Compile  Debug  Tools  Options  Window  Help 14:49:01
┌───────────────────────────────── sindut.pas ───────────────────────────1─────┐
│╔═[■]════════════════════════════ sindut2.pas ══════════════════════════2═[↑]═╗
│║program                                                                      ▲
│║QuizMADDOGbiargreget_;                                                       ▓
│║var                                                                          ▓
│║   a,b,c,d    :integer;                                                      ▓
│║begin                                                                        ▓
│║    write('Jumlah kambing berambut gimbal  ');                               ▓
│║    readln(a);                                                               ▓
│║    write('jumlah kambing kriting di 8B  ');                                 ▓
│║    readln(b);                                                               ▓
│║    write('jumlah kambing yang merokok  ');                                  ▓
│║    readln(c);                                                               ▓
│║    write('jumlah binatang = ');                                             ▓
│║    readln(d);                                                               ▓
│║    write('ini adalah jawaban yang mungkin membuat gila  ');                 ▓
│║    write(a+b+c+d+a+c+d+b+a+a+a+a);                                          ▓
│║    readln();                                                                ▓
│║                                                                             ▓
│║end.                                                                         ▓
│║                                                                             ▓
│║                                                                             ▼
└╚════════1:1 ═◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►┘
 F1 Help  F2 Save  F3 Open  Alt+F9 Compile  F9 Make  Alt+F10 Local menu
Untuk membuat suatu program, pertama kita harus menulis "program" kemudian enter, kemudian tulislah judul programnya, tetapi setelah menulis harus diberi tanda ";" karena apabila tidak diberi tanda itu nantinya akan eror. Setelah menulis judul, kita harus menuliskan "var" untuk variabel, enter, dan tuliskan variabelnya kemudian di belakangnya diberi ":integer;" setelah menuliskan beberapa rumus dan sudah selesai, kita harus memberikan "begin" di bagian awalnya dan "end." di bagian akhir nya. Kalau sudah selesai dan ingin menjalankan programnya kamu tinggal klik "run" pada menu.

Fungsi write adalah membaca apa yang kita tuliskan dengan tanda ('')
Fungsi writeln sama seperti write tapi nanti hasilnya langsung ada enter nya ,(maksudnya nanti tulisannya ada di bawah nya)
Fungsi read adalah untuk menampilkan angka yang sudah dituliskan kita sebelumnya
Fungsi readln sama seperti read tetapi nanti hasilnya ada enter nya.