muslimin teknik komputer

 Next, pada kali ini kita akan membahas penggunaan fungsi If Then.. Yang dimana pernyataan If digunakan untuk menguji sebuah kondisi. Bila kondisi yang diuji terpenuhi, program akan menjalankan pernyataan-pernyataan tertentu; dan bila kondisi yang diuji salah, program akan berhenti dan tidak menjalankan apapun. Pada contoh kali ini saya akan memberikan contoh soal, Program untuk mengetahui Informasi harga besar angsuran jika dikredit selama 10 Tahun. Adapun daftarnya sebagai berikut : Program Tunai_Kreditt; uses wincrt; var tipe,jenis:char; begin clrscr; write('Pilih Tipe Rumah [A,B,C,D]= ');readln(tipe); write('Jenis Pembayaran [T/K]    = ');readln(jenis); Writeln; if tipe ='A' then begin case upcase (jenis) of 'T' :writeln('Harga Rumah= Rp. 50.000.000'); 'K' :writeln('Angsuran Per Bulan=Rp. 500.000'); end; end; if tipe ='B' then begin case upcase (jenis) of 'T' :writeln('Harga Rumah= Rp. 65.000.000'); ...

 Masih dalam penggunaan If then, kali ini kita membahas pascal mencari tarif PDAM. Dengan contoh soal sebagai berikut : PDAM Kota Makassar menetapkan tarif pemakaian  air bersih per m3-nya ditentukan secara pergolongan dimana golongan ditentukan otomatis berdasarkan jumlah pemakainya. Untuk pemakaian 50 m3 pertama dikenakan biaya Rp. 1500. 51-75 m3 dikenakan Rp. 1750. 76-100 m3 dikenakan Rp. 2000 dan lewat dari 100 dikenakan Rp. 2250. Buatlah programuntuk menghitung jumlah yang harus dibayar pelanggan jika volume air diinput dari keyboard. ============================================= Program PDAM_Makassar_City; uses wincrt; var gol1,gol2,gol3,gol4,pk,total:longint;         ulang:char; Begin clrscr; ulang:='Y'; while Upcase(ulang)='Y' do begin clrscr; writeln ('Program PDAM Makassar City'); writeln ('++++++++++++++++++++++++++'); write   ('Masukan Jumlah Pemakaian air = ');readln(pk); writeln; if (pk <=50) then gol1 := 1500*pk el...

 Setelah mengetahui definisi dari while do, sekarang saya akan memberi contoh soal sebagai berikut : Ada katak masuk kedalam sumur sedalam 31.2 m. 5 hari pertama katak bisa naik 3 m tiap pagi dan merosot 1 m tiap malam, 10 hari berikutnya katak bisa naik 2 m tiap pagi dan merosot 1.25 m tiap malam, selanjutnya naik 2 m tiap pagi dan merosot 1.5 m tiap malam, berapa hari katak tersebut dapat keluar dari sumur? ====================================== Program KodokTampan; Uses wincrt; Var ds,t,jt:real;     i,n:integer;     ulang:char; Begin clrscr; ulang:='Y'; while Upcase(ulang)='Y' do Begin clrscr; Write('Masukan Kedalaman Sumur = ');readln(ds); i:=1; n:=3; t:=1; while ds > 0 do Begin      if (i>5) and (i <=15) then      begin      n:=2;      t:=1.25;      end      else if i > 10 then      begin  ...

 Sebuah record rekaman disusun oleh beberapa field. Tiap field berisi data dari tipe dasar / bentukan tertentu. Record mempunyai kelebihan untuk menyimpan suatu sekumpulan elemen data yang berbeda-beda tipenya (di banding array). Cara pendeklarasian dari record adalah sbb: • Mendefinisikan tipe dari record (jumlah field, jenis tipe data yang dipakai), • Mendefinisikan variabel untuk dilakukan operasi. SYNTAX type nama_record = record identifier_1 : tipe_data_1; : : identifier_n : tipe_data_n; end; var variabel : nama_record; Contoh. type Data_mahasiswa = record Nama : string; Usia : integer; Kota : String; Kodepos : integer; end; Var x: Data_mahasiswa;

Pengetahuan tentang DIV dan MOD ini sangat diperlukan untuk para 'Programmer', Kenapa demikian? karena DIV dan MOD ini sering digunakan dalam beberapa pembuatan program. Untuk contohnya, untuk membuat program Angka Ganjil Genap, Angka Bilangan Prima, dan yang lainnya, perintahnya menggunakan operasi MOD dan DIV. Simple deh :D MOD adalah singkatan dari MODULUS yg artinya : Sebuah operasi yang menghasilkan sisa pembagian dari suatu bilangan terhadap bilangan lainnya. Sedangkan DIV adalah singkatan dari DIVIDE yang berarti bagi. Untuk lebih jelasnya, silahkan lihat contoh berikut : 5 div 2 = 2 (5 dibagi 2 adalah 2. sisa 1) 5 mod 2 = 1 (sisa dari hasil pembagian) untuk mempermudah penyelesaian soal, maka dapat digunakan operasi bilangan yg pernah diajarkan waktu SD, yaitu : porogapit (nama ditempat ane). silahkan lihat gambar : Catatan : untuk operasi bilangan menggunakan MOD, ada keistimewaan, yaitu : - Pertama, jika angka sebelah kiri lebih besar dari angka sebelah kanan, mak...

Struktur program For : Program ARDIANSYAH; Uses wincrt; Var Baris,Kolom : Integer; Begin Clrscr; For Baris:=1 to 10 do Begin For Kolom:=Baris to 10 do Write (Kolom); Writeln; End; End. Akan menghasilkan Pola OUTPUT : 12345678910 2345678910 345678910 45678910 5678910 678910 78910 8910 910 10

Pada kali ini, saya akan membahas tentang contoh penggunaan pascal menggunakan DIV dan MOD dalam menghitung keberangkatan penumpang. Yang dimana : - Bus berangkat jika minimal 50 pendaftar. - Mikrolet berangkat minimal 11 pendaftar. - Dan sisanya tidak berangkat (belum beruntung :p). Cek this out : ================================ Program Keberangkatan_Bus; uses wincrt; var a,bus,mikrolet,sisa:integer;     ulang:char; Begin clrscr; ulang:='Y'; while Upcase(ulang)='Y' do Begin clrscr; writeln('   -->BUS BERANGKAT MINIMAL 50 PENDAFTAR<-- div=""> writeln('-->MIKROLET BERANGKAT MINIMAL 11 PENDAFTAR<-- div=""> Writeln('=============================================='); write('Masukan Jumlah Pendaftar = '); readln(a); bus:=a div 50; mikrolet:=a mod 50 div 11; sisa:=a mod 50 mod 11; Writeln('=============================================='); writeln('Jumlah Bus Yang Berangkat             = ',bu...

 Nah, setelah tau definisi Record Pascal, sekarang saya akan memberi contoh penggunaannya dalam bentuk record mahasiswa. Yang dimana, mahasiswa angkatan 2010 keatas adalah SENIOR, sedangkan mahasiswa 2010 dan seterusnya adalah JUNIOR. Contoh : 2011, 2012, 2013, 2014 (JUNIOR). ============================================= Program RecordMahasiswa; uses wincrt; type mahasiswa = RECORD NPM     : String; Nama    : String; Thnmasuk: Integer; ket     : String; end; var mhs : Array[1..50] of mahasiswa; x,y,z:Integer; begin clrscr; writeln('------------------------------------------------'); writeln('                  PROGRAM RECORD                '); writeln('------------------------------------------------'); write  (' Banyak data mahasiswa yang akan dimasukkan: '); readln...

 Baik, kali ini kita masuk kebagian procedure dan fungsi di pascal. Tapi sebelum membahas lebih jauh kita kenali dulu kira-kira apa sih perbedaan procedure dan fungsi di pascal. Perbedaannya yaitu.     Prosedur diawali dengan dengan kata procedure untuk mendeklarasikannya     Contoh : procedure hitung_angka ;     kalau fungsi di awali dengan kata function     Function hitung_bilangan: integer;     Procedure tidak mengembalikan nilai ke program utama, sedangkan fungsi akan mengembalikan nilai ke program utama, itu sebabnya fungsi harus ada tipe datanya (integer, char atau string).     Procedure outputnya diletakkan di dalam procedure, kalau fungsi outputnya di letakkan di program utama.     Prosedur di panggil diprogram utama dengan menuliskan nama procedure tersebut di program utama. contoh :hitung_bilangan; Fungsi di panggil dengan memasukkan ke suatu variabel. atau bisa juga d...

 Sebuah record rekaman disusun oleh beberapa field. Tiap field berisi data dari tipe dasar / bentukan tertentu. Record mempunyai kelebihan untuk menyimpan suatu sekumpulan elemen data yang berbeda-beda tipenya (di banding array). Cara pendeklarasian dari record adalah sbb: • Mendefinisikan tipe dari record (jumlah field, jenis tipe data yang dipakai), • Mendefinisikan variabel untuk dilakukan operasi. SYNTAX type nama_record = record identifier_1 : tipe_data_1; : : identifier_n : tipe_data_n; end; var variabel : nama_record; Contoh. type Data_mahasiswa = record Nama : string; Usia : integer; Kota : String; Kodepos : integer; end; Var x: Data_mahasiswa;

Buka halaman kerja baru. Untuk program ini, berikan kode program sebagai berikut : Setelah memasukan kode, kita bisa melakukan pengecekan apakah program yang kita buat jalan atau tidak dengan menekan tombol F9 pada keyboard. Jika tidak terdapat kesalahan, maka langkah selanjutnya adalah menjalankan program dengan menekan tombol CTRL+F9 pada keyboard. Tampilan program yang sudah berjalan. Jika nilai nilai yang dimasukan untuk nilai 1 = 54 dan nilai 2 = 48 Buka halaman kerja baru. Untuk program ini, berikan kode program sebagai berikut : Setelah memasukan kode, kita bisa melakukan pengecekan apakah program yang kita buat jalan atau tidak dengan menekan tombol F9 pada keyboard. Jika tidak terdapat kesalahan, maka langkah selanjutnya adalah menjalankan program dengan menekan tombol CTRL+F9 pada keyboard. Tampilan program yang sudah berjalan. Jika nilai nilai yang dimasukan untuk nilai 1 = 54 dan nilai 2 = 48 Buka halaman kerja baru. Untuk program ini, berikan ...

Hooaammzz, -_- . Next :D Kali ini kita akan membahas tentang perulangan WHILE-DO. Perulangan while – do adalah perulangan bersyarat yang paling umum digunakan. Perintah ini akan terlebih dahulu memeriksa kebenaran nilai yang diujikan, kemudian menjalankan dan mengulang perintah selama hasil pengujian nilai bernilai “Benar”. Terkadang jika salah dalam pembuatan statemen ini, perulangan while – do dapat mengakibatkan perulangan yang tidak dapat berhenti atau dapat dikenal dengan istilah infinite loop, hal ini dapat mengakibatkan terkurasnya ruang memory yang kosong. Credit By : Adyt & My Sensei : Muhajirin Ridwan

Setelah mengetahui definisi dari while do, sekarang saya akan memberi contoh soal sebagai berikut : Ada katak masuk kedalam sumur sedalam 31.2 m. 5 hari pertama katak bisa naik 3 m tiap pagi dan merosot 1 m tiap malam, 10 hari berikutnya katak bisa naik 2 m tiap pagi dan merosot 1.25 m tiap malam, selanjutnya naik 2 m tiap pagi dan merosot 1.5 m tiap malam, berapa hari katak tersebut dapat keluar dari sumur? ====================================== Program KodokTampan; Uses wincrt; Var ds,t,jt:real;     i,n:integer;     ulang:char; Begin clrscr; ulang:='Y'; while Upcase(ulang)='Y' do Begin clrscr; Write('Masukan Kedalaman Sumur = ');readln(ds); i:=1; n:=3; t:=1; while ds > 0 do Begin      if (i>5) and (i <=15) then      begin      n:=2;      t:=1.25;      end      else if i > 10 then      begin      n:=2; ...

ALGORITMA DAN PEMROGRAMAN 1 DENGAN BAHASA PASCAL WINDA ASTARI (09360027) 20 JANUARI 2010 JURUSAN TEKNIK INFORMATIKA FAKULTAS MATEMATIKA ILMU PENGETAHUAN ALAM INSTITUT SAINS DAN TEKNOLOGI NASIONAL BAB I PENDAHULUAN I.1 LATAR BELAKANG       Bahasa program   merupakan suatu wahana untuk menuangkan pikiran manusia yang dapat dimengerti oleh mesin komputer sehingga   bernilai guna. Suatu bahasa program akan terikat aturan dari   paradigma bahasa. Ada berbagai macam paradigma bahasa :   Prosedural, Fungsional, Deklaratif, Object Oriented, Konkuren. Perlu diperhatikan perbedaan antara belajar bahasa program dengan belajar memprogram !!! Belajar bahasa program hanya belajar tentang sintak (aturan) dari bahasa sedangkan belajar memprogram akan tercakup beberapa hal yang didalamnya terkandung tentang belajar bahasa program itu...