ABDI MAULANA SYAR

Program ABDIMAULANA_141510123; Const max = 20; Type antrian = Record   nama: string;   uang: real;   depan,belakang: 0..max; End; Type pointer = ^recpoint;   recpoint = Record     nama: string;     uang: real;     berikutnya: pointer;   End; Var stack,awal,akhir: pointer;   q: antrian;   namain: string;   uangin: real;   saldo,tambahsaldo,pengambilan: real;   i,cacah,pelanggan: byte;   lagi: boolean;   pw,pw1,hapusmana: string;   carihapus: string;   pilih: 1..8; Function habis(q:antrian): boolean; Begin   If saldo<50000 Then habis := true   Else habis := false; End; Function kosong(q:antrian): boolean; Begin   If q.belakang=0 Then kosong := true   Else kosong := false; End; Function penuh(q:antrian): boolean; Begin   If q.belakang=max Then penuh := true   Else penuh := false; End; Procedure tambah(Var ...

Program ABDIMAULANA_141510123; Const max = 20; Type antrian = Record nama: string; uang: real; depan,belakang: 0..max; End; Type pointer = ^recpoint; recpoint = Record nama: string; uang: real; berikutnya: pointer; End; Var stack,awal,akhir: pointer; q: antrian; namain: string; uangin: real; saldo,tambahsaldo,pengambilan: real; i,cacah,pelanggan: byte; lagi: boolean; pw,pw1,hapusmana: string; carihapus: string; pilih: 1..8; Function habis(q:antrian): boolean; Begin If saldo pw1 Then writeln('Maaf password yang Anda masukkan salah ....') Else Begin write('nominal penambahan saldo ATM = '); readln(tambahsaldo); saldo := saldo+tambahsaldo; End; End; Procedure push_antri(Var s:pointer; r:String); Var baru: pointer; Begin If penuh(q) Then writeln('antrian sudah penuh') Else If habis(q) Then writeln('uang di ATM habis') Else Begin inc(q.belakang); New(...

uses wincrt; const max=20; type pointer=^recpoint;      recpoint=record      nama,mp:string;      berikutnya:pointer;      end; type mhs=record      nama1,mp1:string;      nilai:real;      huruf:char;      end; type larikmhs=array[1..max] of mhs;     var List,akhir:pointer;     namabaru,mkbaru:string;     nilaimhs:larikmhs;     lagi:boolean;n:byte;     pil:1..7; procedure tambah_belakang(var L:pointer;nm,mk:string); var baru:pointer; begin new(baru); baru^.nama:=nm;baru^.mp:=mk;baru^.berikutnya:=nil; if L=nil then    begin         L:=baru;akhir:=baru;    end else{tambah akhir} begin      akhir^.berikutnya:=baru;      akhir:=baru; ...

Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971. Dengan mengambil nama dari matematikawan Perancis, Blaise Pascal, yang pertama kali menciptakan mesin penghitung, Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya. Selain itu, Profesor Niklaus Wirth membuat Pascal juga untuk melengkapi kekurangan-kekurangan bahasa pemrograman yang ada pada saat itu. Kelebihan dari bahasa pemrograman Pascal adalah: * Tipe Data Standar, tipe-tipe data standar yang telah tersedia pada kebanyakan bahasa pemrograman. Pascal memiliki tipe data standar: boolean, integer, real, char, string, * User defined Data Types, programmer dapat membuat tipe data lain yang diturunkan dari tipe data standar. * Strongly-typed, programmer harus menentukan tipe data dari suatu variabel, dan variabel tersebut ...

Tipe data bahasa pascal pada bahasa pemrograman pascal, tipe data dibagi menjadi 2 yaitu: Tipe Data sederhana : adalah tipe data dasar, karena hanya mampu menyimpan satu nilai tiap satu variabelnya. Tipe Data kompleks : adalah tipe data yang mampu menyimpan lebih dari satu nilai dalam tiap satu variabelnya. 1.tipe data sederhana Pada tipe data sederhana di bagi lagi menjadi beberapa macam: Integer merupakan tipe data yang hanya menampilkan berupa bilangan bulat.ada 5 tipe yang termasuk integer yaitu : Tipe data Batas Nilai Ukuran tempat  Byte 0 s/d +225 1 bytes  ShortInt -128 s/d +127 1 bytes  Word 0 s/d + 65535 2 bytes  Integer -32768 s/d +32767 2 bytes  LongInt -2147483648 s/d +2147483647 4 bytes Operator-operator pada tipe integer: operator kegunaan  +  Penjumlahan  - Pengurangan  * Perkalian  Div Pembagian  mod Sisa pembagian Real merupakan tipe data yang hanya menampilkan berupa bilangan pecahan. Dalam Pasca...

Cara tidur Rasulullah SAW. Semua orang sangat membutuhkan tidur dalam hidupnya tak terkecuali kita. Karena dengan tidur maka kita dapat menghimpun tenaga untuk dapat beraktifitas dan beribadah dengan baik. Tak hanya itu, saat tidur hati seorang muslimah berada dalam belaian jemari Allah SWT. Seorang muslimah dapat dikatakan cantik secara sejati dikarenakan agamanya. Islam memiliki ilmu yang sempurna dalam kehidupan termasuk dalam hal tidur. Sebagai seorang kaumhawa yang selalu ingin dicintai Allah, maka tak pelak jika kaumhawa harus mengetauhi adab dalam tidur sesuai yang diajarkan Rasulullah SAW. Apa sajakah adab-adabnya? Berikut ini akan kami uraikan dalam beberapa poin sehingga memudahkan pembaca : Cara tidur Rasulullah SAW sesuai hadistJika tidak ada kepentingan / keadaan darurat janganlah tidur terlalu malam. Segeralah baringkan tubuh kaumhawa setelah sholat isya dan jangan tidur sebelumnya. Cara tidur Rasulullah seperti dalam hadist yang diriwayatkan Abu Barzah radhiyallahu...

Ni pertanyaan question of life yg kayak di programnya Dedy Corbuzier Hitam Putih di Trans7. boleh di jawab ķalo mau. QUESTION OF LIFE “ Isilah titik2 dibawah ini dengan jawaban menurut diri sendiri A. Soal 1. Ibu saya tidak pernah tahu kalo saya pernah.... 2. Saya merasa Ganteng/Cantik saat saya.... 3. Jika saya bisa mengulangi waktu saya akan.... 4. Seandainya saya dilahirkan jadi hewan, maka saya ingin menjadi.... 5. Kalau saya bertemu tuyul, saya akan minta...... 6. Saya pintar saya kaya saya ganteng/cantik tapi sebenarnya saya ...... ” “ PILIH SALAH SATU JAWABANNYA YAH B. Pilih Pilih mana 1. Pacar Cantik/ganteng tapi Bodoh/ Pacar Jelek Tapi pintar 2. Kaya Bodoh/Miskin Pintar 3. Mati muda/Hidup Melarat 4. Ketemu setan/Ketemu macan 5. Mati mendadak/ miskin mendadak 6. Pete / Jengkol 7. Tambah pintar/ Tambah kaya 8. Ibu/ ayah