TAHSIN TILAWAH #EDISI_1 #UNPMengaji

Bismillaahirrahmaanirrahiim...

Assalaamu'alaykum warahmatullaahi wabarakatuh...

Udah lama gak nge-post sesuatu yang kadang guna kadang yaaa gak terlalu sih, sekarang alhamdulillaah ya...hehe.
Passwordnya udah inger lagi setelah beberapa bulan lupa. *apaapaan*
Masalahnya sekarang muncul lagi nih, nbnya rusak gak bisa connect ke modem. Layarnya udah bintik - bintik kaya udah mau dipanggil Sang Pencipta. Apa sebab ? Kebanting.

So many stories that I will write and share to the blogger. But. How could I do that without my beloved white nb ? Si touch screen putih yang imut ini juga gak bisa diandelin buat ngetik dalam kapasitas di atas rata - rata. Lagian juga diagonalnya cuma 4,9 inchi. Mata yang gak pake kaca mata bisa merah dan berair jadinya.

Finally, pengetik *eh* (writer kali ya yang lebih komersil hehe) memutuskan untuk kembali pada profesi lama...sebagaaaaaai...jrenggg ... penulis yang sedang belajar menulis....*who cares ? :D

Thus, stay tune di blog ini, insyaaAllaah akan ada ilmu dan cerita fiksi serta nonfiksi yang bakal dipost. (Kalo ada waktu yahh)

I get the point. Blog ini kadang jadi pelampiasan juga. Tapi yaaa...yang netral2 ajjjaaah. Gak mesti nge-publish semua tentang pribadi secara all out. *fyuuuhh
Yang dirasa gak berkenan dibaca ya kena dilet atau bahkan diblacklist-in aja kali yaa ???
Hehe.
Whatever. As long as I can write everything on my mind, I will do that.

Menyudahi posting-an malam ini saya tutup dengan salamun'alaykum :)
Selamat menunaikan Ibadah Puasa sadayanaaaa :D

PASCAL TASK II

NAMA       : YUSRINA FITRIA

NIM           : 1201252

                                           

1.            Program Persamaan Fungsi Kuadrat

Program Persamaan_Fungsi_Kuadrat; Uses crt; Var      a,b,c  :  integer;      x,y    :  real; Begin      {bagian masukkan)      clrscr;      writeln(‘Menghitung nilai dari Persamaan f(x) = ax^2 + bx+ c’);      writeln(‘   ‘);      write(‘Masukkan nilai koefisien dari x^2 ! ‘); readln(a);      write(‘Masukkan nilai koefisien dari x ! ‘); readln(b);      write(‘Masukkan nilai konstanta ! ‘); readln(c);      write(‘Masukkan nilai dari variabel x ! ‘); readln(x);      {bagian proses}      y:=(a*sqr(x)+(b*x)+c));      {bagian keluaran)      clrscr;      writeln(‘Untuk Persamaan f(x)= ax^2 + bx +c’);      writeln(‘     ‘);      writeln(‘Nilai a = ‘,a,‘ Nilai b = ‘,b,’ Nilai c = ‘,c,’ Nilai x = ‘,x:0:0);      writeln(‘Maka Nilai f(x) adalah ‘,y:0:0);      readln; End.

2.            Program Diskon Belanja

Program Diskon_Belanja; Uses crt; Var      kode               :  string;      harga,diskon,bayar :  real; Begin      {bagian masukkan}      clrscr;      write(‘Masukkan Kode Barang  : ‘); readln(kode);      write(‘Masukkan Harga Barang : ‘); readln(harga);           {bagian proses}      diskon:=((5/100)*harga);      bayar:=harga-diskon;           {bagian keluaran}      clrscr;      writeln(‘Kode Barang  : ‘,kode);      writeln(‘Harga Barang : Rp ‘,harga:0:0);      writeln(‘Diskon       : Rp ‘,diskon:0:0);      writeln(‘Pembayaran   : Rp ‘,bayar:0:0);      readln; End.

3.            Program Menghitung Luas Segitiga

Program Luas_Segitiga; Uses crt; Var      a,b      :  integer;      rad,c,L  :  real; Begin      {bagian masukkan}      clrscr;      write(‘Masukkan Panjang Sisi Pertama          : ‘); readln(a);      write(‘Masukkan Panjang Sisi Kedua            : ‘); readln(b);      write(‘Masukkan Besar Sudut antara Kedua Sisi : ‘); readln(c);           {bagian proses}      rad:=c*pi/180;      L:=(a*b*sin(rad))/2;      {bagian keluaran}      clrscr;      writeln(‘Panjang Sisi Pertama    : ‘,a);      writeln(‘Panjang Sisi Kedua      : ‘,b);      writeln(‘Sudut antara Kedua Sisi : ‘,c:0:0);      writeln(‘Luas Segitiga           : ‘,L:0:2);      readln; End.