IF dalam PASCAL

Yahh sekedar share penggunaan IF dalam pascal,,,emm kira-kira tugas waktu masih semester 1,,atau semester 2 kayaknya yah (Lupaaaaaaaaaaaaa),,sudahlah,,,nih simak saja Kodenya hehe..

program ujian;

uses wincrt;

var

    nim : string[10];

    nama : string[20];

    hdir: integer;

    tgs : integer;

    mid : integer;

    final : integer;

    lain: integer;

    p_hdir:real;

Welcome Back For me,,

Assalamaualaikumm..

yeyeyeye,,,ketemu lagi dengan saya,,,nurul ilmah dalam blog sederhanaku ini..

Hmm setelah sekian lama tidak ngepost lagi di blog ini,, akhirnya punya waktu dan tentnunya KUOTA Internet..hehahhaha,, yah yah,.,alasan utama tidak negpost lagi di blog ini adalah karena gak ada kuota internet :( ,, modemnya cuman bisa akses Facebook sajaa (Always ON 3 ).

anyway,.. ngelihat2 isi blog,,eh ternyata blognya sudah banyak debu dan sarang laba-labanya..hahaahhakk apaa coba,,

ya udah aku mau bersih-bersihkan blog dulu,,hehee trus trus,, mau kembali insya allah aktif lagi di blog ini,, untuk sharing ilmu,,, okeyy,, let's see what can i do for this blog..

thank you... and encjoy here!!! ^__^