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 ";"


Tidak ada komentar:

Posting Komentar