PASCAL - IF .. THEN 1

Setelah bergulat dengan Tugas Praktikum yang lumayan bikin cape... !!!
Akhirnya selesai juga.. Kali ini saya akan menShare Hasil dari Tugas Praktikum saya tentang IF.. Then .. pada PASCAL... !!!! cekidot.,..

Programnya : 

Outputnya :

Dan yang ini Logikanya :

1. Pertama ketik “uses crt;” ( gunanya untuk memanggil unit library pada pascal ), lalu ENTER. 
2. Selanjutnya ketik “var nilai : integer;” ( untuk memberi tahu bahwa nilai ini adalah integer ). ENTER. 
3. Kemudian ketik “begin” ( gunanya untuk memulai statement program ), setelah itu ENTER. 
4. Pada tahap ini ketikan “clrscr;” ( gunanya adalah untuk menghilangkan tampilan program sebelumnya ), kemudian ENTER. 
5. Lalu ketik “write(‘masukkan nilai : ‘);” ( untuk menginput program ). 
6. Kemudian ketik “readln (nilai);” ( gunanya untuk menginput data lewat keyboard ke dalam suatu variable), setelah itu ENTER. 
7. Selanjutnya ketik “if nilai > 70 then writeln (‘lulus’)” ( untuk kondisi jika nilai lebih dari 70 maka lulus). 
8. Dan “else writeln (‘gagal’);” ( untuk kondisi jika tidak besar dari 70 maka gagal). ENTER. 
9. Kemudian ketik “readln;” ( gunanya untuk menginput data lewat keyboard ke dalam suatu variable), setelah itu ENTER. 
10. END. ( untuk mengakhiri program ).

Dari pada kalian pusing - pusing baca Logika saya, lebih baik lang di coba aja Programnya... !! Sapa tau Logika anda lebih baik dari saya....!!! hehe..

SEMOGA BERMANFAAT...!!!