Posts

Showing posts with the label pascal

PASCAL: Program Ubah Kata menjadi Kode Morse

Image
iseng iseng bikin program pramuka . kode morse (source: google.com) Kode morse, buat yang pernah ikut pramuka pasti tau dong. atau sekadar kenal aja? nah ini keterangannya. Menurut pak wikipedia , pengertian Kode Morse atau 'Sandi Morse' adalah sistem representasi huruf, angka, tanda baca dan sinyal dengan menggunakan kode titik dan garis yang disusun mewakili karakter tertentu pada alfabet atau sinyal (pertanda) tertentu yang disepakati penggunaannya di seluruh dunia. berhubung ini blog tentang bidang komputer. jadi, gua ga perlu ngajarin kalian tentang menggunakan kode morse ini. cukup dengan coding di bawah. copy kemudian paste di turbo pascal 7, kemudian compile and run program. maka kalian akan mudah mengubah kata menjadi kode morse. open source bro! program morsePramuka; uses crt; var kata,temp,karakter,hasil : string ; pil : char; i : integer; label BATAS; begin BATAS: clrscr; writeln ('PROGRAM SANDI MORSE'); writeln

TUTORIAL: Cara Membuat File exe dari Turbo Pascal

Image
Ya.. kembali lagi ke posting gua. setelah lama gak ngepost karena alasan koneksi. sekarang udah lumayan lah koneksinya. oke ga basa basi lagi. sekarang gua mau share gimana caranya membuat file exe dari turbo pascal. karena ga mungkin kan setiap program yang kalian buat kalo mau digunakan orang lain harus berupa source code? kenapa harus dibuat exe? pertama , pengguna belum tentu ngerti maksud dari source code kedua , repot lah kalo setiap mau buka program harus buka turbo pascal, buka file nya, tekan CTRL + F9 untuk run. ketiga , untuk jaga kerahasiaan si source code tentunya biar ga dibajak orang lain. makanya gua  share  gimana caranya buat exe dari pascal. alat dan bahan program turbo pascal 7 ( download klik di sini  ) source code yang mau dijadiin exe Langkah-langkah membuat file exe dari turbo pascal 7 oke, langkah pertama.. buatlah kode program yang mau dijadiin exe atau buka kode program yang udah ada untuk dijadiin exe contoh kode program pascal run pro

PASCAL : tentang biner, kode & karakter ascii

Image
project ascii to biner & biner to ascii kelas tetangga ada tugas, gua iseng aja kerjain juga *kelewatan iseng* . program ini tentang converter. tepatnya mengubah kode ascii ke biner dan dari biner ke ascii . buat yang belom tau daftar kode ascii dan biner nya itu kaya gini tabel ascii (wiki.answers.com) untuk bikin program ini, gua pake pascal aja. pake yang lain juga bisa. yang penting udah tau logikanya, kan? cara convert dari karakter ke kode ascii           begin                kode_ascii := ord(huruf);           end; di mana ord sudah termasuk bagian dari program pascal untuk convert dari karakter ke kode ascii. misalnya pada variabel huruf di atas bernilai 'A'. maka nilai kode_ascii adalah ord(A) yang menghasilkan 65 karena kode dari karakter A adalah 65. cara convert dari kode ascii ke karakter          begin                huruf := chr(kode_ascii);          end; sama seperti ord, chr bagian dari program pascal untuk men-convert. namun bedanya, c

PASCAL : program konversi angka ke huruf

Image
{ hell code! } awalnya dosen struktur data gua (sebut saja mawar) nyuruh bikin program buat program konversi angka ke huruf. bukan tugas, sekadar berlatih aja. terlintas dipikiran gua "gampang nih" . contoh ... input : 1234 output : seribu dua ratus tiga puluh empat sejam... dua jam... sehari... dua hari... hampir seminggu gak pecah-pecah. udah "oprek" sana sini gak ketemu. akhirnya ketemu titik terang. gak kepikiran yaa... jelas... luar biasa dibanding program alat tulis kantor sebelumnya. buat gua ini lebih "mikir" . function? gak ngerti. ya.. balik ke prosedur. sekarang algoritma nya. gua ambil bilangan pecahan terbesarnya. misal 12345. berarti bisa dipecah jadi 10000 + 2000 + 300 + 40 + 5 12345 div 100 = 1, 2000 div 1000 = 2, 300 div 100 = 100, 40 div 10 = 5, dan sisanya 5. sekarang udah didapat angka angkanya. tinggal diconvert jika 1 maka cetak "satu". dst. yaa... buat yang bisa baca program. gua open source deh biar gak

pembahasan UTS AP 2A

Image
1. jelaskan sejarah pascal! Turbo Pascal pada awalnya adalah kompiler Blue Label Pascal yang dibuat untuk sistem operasi komputer mikro berbasis kaset, NasSys, milik Nascom tahun 1981 oleh Anders Hejlsberg. Kompiler tersebut ditulis ulang untuk CP/M dan dinamai Compas Pascal, dan kemudian dinamai Turbo Pascal untuk sistem operasi MS-DOS dan CP/M. Versi Turbo Pascal untuk komputer Apple Macintosh sebenarnya pernah ditembangkan tahun 1986, namun pengembangannya dihentikan sekitar tahun 1992. Versi-versi lain pernah tersedia pula untuk mesin-mesin CP/M seperti DEC Rainbow dalam beberapa penembangan. 2. sebutkan macam macam tipe data pada pascal! - integer - string - real - boolean - char 3. jelaskan perbedaan antara for ... next dengan while ... do! for ... next dan while ... do adalah sama sama teknik perulangan yang terdapat pada pascal. bedanya : - for next... perulangan for next akan terus berulang dan bertambah jumlah nilai variabelnya jika belum sampai targetnya. -

turbo pascal (lagi)..

Image
hari yang absurd... gimana enggak? 2 kali kuis dan 2 kali gagal di mata kuliah yang sama . PEMROGRAMAN! *seruput teh manis, redakan emosi* lanjut.. sebetulnya bukan gagal, cuma kurang tepat waktunya dan si "HP" ini blank pas running -_- . kurang lebih begini soalnya : - pascal buat program dengan output :

Pascal oh turbo pascal...

Image
tugas tanpa soal dateng dari dosen pascal. kenapa bisa tugas tanpa soal? ya... si dosen pascal ini cuma nyuruh untuk bikin program bebas dan pake coding apa aja bebas. yaudah gua bikin aja program alat tulis kantor. hehe. kurang lebih seperti ini : Input : Output : mau tau isi coding nya kaya apa? dan logika program nya seperti apa? download aja PDF nya di bawah ini nih hajar PDF nya : http://www.mediafire.com/?jmev524ihb063uo jangan lupa juga download aplikasi turbo pascal 7 nya : http://www.mediafire.com/?fue9jbzzaxglo2  

dasar program turbo pascal

Image
contoh program sederhana pascal : program belajar_1 {belajar_1 adalah judul program} uses crt; var {pendeklarasian variabel}      a,b,c : integer;      d : string; begin      clrscr; {clear screen = mengosongkan layar}      a := 10; {nilai a = 10}      b := 5; {nilai b = 5}      c := a + b; {c adalah nilai a + b}      d := 'selamat datang di arickanjass blog'; {variabel bertipe string}     writeln ('saya sedang belajar pascal'); {cetak teks langsung tanpa variabel}      writeln (c); {cetak c}      writeln (d); {cetak d}      readln; {baca yang sudah di cetak} end. pada pascal , di awal program sebelum begin harus mendeklarasikan variabel yang akan digunakan. macam macam variabel yang ada di pascal adalah : integer = bilangan bulat real = bilangan biasa const = bilangan tetap char = karakter boolean = logikal string = teks tanda kurung kurawal { } berguna untuk memasukan komentar atau catatan pada pascal. sehingga apabila dituliskan teks, te

pascal : teknik percabangan if then & case of

Image
1. if  ... then ... else percabangan if...then...else adalah sebuah kondisi di mana kondisi tersebut memiliki 2 atau lebih aksi (benar atau salah) di mana jika jawaban dari aksi tersebut adalah benar, maka coding yang berada di bawah aksi tersebut akan dijalankan, namun jika salah, maka coding di bawahnya dianggap tidak ada dan program akan membaca coding berikutnya. percabangan model ini biasanya digunakan karena mudah dimengerti. sebagai contoh if...then...else : var a, b : integer; ket : string; begin a := 5; b := 6; if a < b then ket := 'kurang dari' else ket :='lebih dari'; writeln(a,ket,b); readln; end. contoh lainnya : coding_1 coding_2 output 2. case...of Pernyataan CASE, digunakan sebagai pengganti pernyataan IF. Pernyataan CASE akan memberikan alternative yang lebih gampang dibaca untuk menggantikan pernyataan IF. Tetapi tidak semua pernyataan IF bisa diganti dengan pernyataan CASE. contoh case ... of: coding output