IF ELSE

  File  Edit  Search  Run  Compile  Debug  Tools  Options  Window  Help 15:41:28
╔═[■]════════════════════════════ dadada.pas:2 ════════════════════════════[↕]═╗
║program                                                                       ▲
║latihan34;                                                                    ▓
║var                                                                           ▓
║a:integer;                                                                    ▓
║begin                                                                         ▓
║ write('masukin nilai irfan ' );                                              ▓
║ readln(a);                                                                   ▓
║  IF(a>=75)THEN                                                               ▓
║  writeln('lulus')                                                            ▓
║ else                                                                         ▓
║  begin                                                                       ▓
║  if(a< 0)then                                                                ▓
║  writeln('masuk aja loe ke play group')                                      ▓
║  else                                                                        ▓
║  writeln('ngulang ajaloe dari sd');                                          ▓
║  end;                                                                        ▓
║  readln();                                                                   ▓
║end.                                                                          ▓
║                                                                              ▓
║                                                                              ▓
║                                                                              ▼
╚════════6:28 ◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►┘
 F1 Help  F2 Save  F3 Open  Alt+F9 Compile  F9 Make  Alt+F10 Local menu

jika ingin memasukan nilai dengan perbandingan ,maka harus menggunakan 'if'untuk membandingkan nilai yang kurang dari batas nilai atau nilai yang lebih dari batas


dan setelah else dan sebelum else tidak perlu menggunakan ';'

FPC Pertama

  File  Edit  Search  Run  Compile  Debug  Tools  Options  Window  Help 15:03:00

│││╔═[■]═════════════════════════ HELLLLLL.pas:3 ══════════════════════════[↑]═╗
│││║program                                                                    ▲
│││║hellyeah;                                                                  ■
│││║begin                                                                      ▒
│││║    writeln('Go to hell!!');                                               ▒
│││║    write('tanggalhidup');                                                 ▒
│││║    writeln('tanggallima');                                                ▒
│││║                                                                           ▒
│││║                                                                           ▒
│││║                                                                           ▒
│││║                                                                           ▒
│││║                                                                           ▒
│││║                                                                           ▒
│││║                                                                           ▒
│││║                                                                           ▒
│││║                                                                           ▒
│││║                                                                           ▒
│││║                                                                           ▒
│││║   readln();                                                               ▼
└└└╚════════1:1 ═◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►┘
 F1 Help  F2 Save  F3 Open  Alt+F9 Compile  F9 Make  Alt+F10 Local menu
Saat kita memulai kita harus menulis juduldan setiap akhir tulisan harus menggunakan ";".Dan setiap akan memulai membuat rumus harus menulis begin dan di akhir menulis "end",dan pada saat menulis rumus kita harus menggunakan " '  ' " .dan saat ingin menjalakan program ter sebut menggunakan "Run" pada menu
FUNGSI write =>untuk memasukan tulisan yang akan di baca
               writeln=>sama dengan "write" tapi otomatis menaruh enter di blakang tulisan
               read=>untuk menampilakan angka atau huruf yang kita tulis
               readln=>sama dengan "read" tapi otomatis menaruh benter di blakang kalimat

FPC Latihan Tambah tambahan

  File  Edit  Search  Run  Compile  Debug  Tools  Options  Window  Help 15:00:41
─────────────────────────────────┐
││╔═[■]═══════════════════════════ drsdad.pas:2 ═══════════════════════════[↑]═╗
││║program                                                                     ▲
││║                                                                            ▓
││║     gotohell_;                                                             ▓
││║var                                                                         ▓
││║  A,B,C  :integer;                                                          ▓
││║begin                                                                       ▓
││║  A:=3000;                                                                  ▓
││║  B:=200;                                                                   ▓
││║  C:=A+B;                                                                   ▓
││║  D:=A+B+C;                                                                 ▓
││║  write('iniadalahvariabel A  ditambah B:');                                ▓
││║  writeln(C);                                                               ▓
││║                                                                            ▓
││║  readln();                                                                 ▓
││║end.                                                                        ▓
││║                                                                            ▓
││║                                                                            ▓
││║                                                                            ▓
││║                                                                            ▼
└└╚══*═════3:13 ◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►┘
 F1 Help  F2 Save  F3 Open  Alt+F9 Compile  F9 Make  Alt+F10 Local menu
Saat kita memulai kita harus menulis judul kemudian menuliskan "var" untuk jenis subject yang akan di gunakan  dalam rumus,dan setiap akhir tulisan harus menggunakan ";".Dan setiap akan memulai membuat rumus harus menulis begin dan di akhir menulis "end",dan pada saat menulis rumus kita harus menggunakan " '  ' " .dan saat ingin menjalakan program ter sebut menggunakan "Run" pada menu
FUNGSI write =>untuk memasukan tulisan yang akan di baca
               writeln=>sama dengan "write" tapi otomatis menaruh enter di blakang tulisan
               read=>untuk menampilakan angka atau huruf yang kita tulis
               readln=>sama dengan "read" tapi otomatis menaruh benter di blakang kalimat

FPC

  File  Edit  Search  Run  Compile  Debug  Tools  Options  Window  Help 14:44:06
─────────────────────────1─────┐
│╔═[■]════════════════════════════ fasc.pas:3 ═════════════════════════════[↑]═╗
│║program                                                                      ▲
│║     tes_;                                                                   ▓
│║                                                                             ▓
│║var                                                                          ▓
│║  a,b,c   :integer;                                                          ▓
│║begin                                                                        ▓
│║    write('masukan masukan jumlah pil ekstasi yang di minum farras=');       ▓
│║    readln(A);                                                               ▓
│║    write('masukan masukan jumlah pil ekstasi yang di muntahin farras=');    ▓
│║   readln(b);                                                                ▓
│║   write('masukan jumlah pil ekstasi yang di jilat lagi dari lantai =');     ▓
│║     readln(c);                                                              ▓
│║   writeln('Jumlah pil ekstasi yang di makan =');                             ▓
│║   writeln(a-b+c);                                                           ▓
│║   writeln('jumlah pil yang tersisa di lantai=');                            ▓
│║   writeln(b-c);                                                             ▓
│║    readln();                                                                ▓
│║end.                                                                         ▓
│║                                                                             ▓
│║                                                                             ▼
└╚════════1:1 ═◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►┘
 F1 Help  F2 Save  F3 Open  Alt+F9 Compile  F9 Make  Alt+F10 Local menu
Saat kita memulai kita harus menulis judul kemudian menuliskan "var" untuk jenis sunject yang akan di gunakan  dalam rumus,dan setiap akhir tulisan harus menggunakan ";".Dan setiap akan memulai membuat rumus harus menulis begin dan di akhir menulis "end",dan pada saat menulis rumus kita harus menggunakan " '  ' " .dan saat ingin menjalakan program ter sebut menggunakan "Run" pada menu
FUNGSI write =>untuk memasukan tulisan yang akan di baca
               writeln=>sama dengan "write" tapi otomatis menaruh enter di blakang tulisan
               read=>untuk menampilakan angka atau huruf yang kita tulis
               readln=>sama dengan "read" tapi otomatis menaruh benter di blakang kalimat