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 ';'
Nfarhan
Kamis, 21 Maret 2013
Kamis, 14 Maret 2013
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
│││╔═[■]═════════════════════════ 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
─────────────────────────────────┐
││╔═[■]═══════════════════════════ 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
─────────────────────────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
Kamis, 22 November 2012
Kamis, 01 November 2012
Kamis, 18 Oktober 2012
Langganan:
Postingan (Atom)