Langsung ke konten utama

Postingan

Menampilkan postingan dengan label pascal

Menerapkan pembuatan antar muka (User Intreface) pada aplikasi

program StatusSiswa; uses crt; var nama, tempattgllahir, jeniskelamin, alamat, agama, nohp, email, pekerjaan:string; umur:integer; begin textcolor(10); clrscr; writeln (' '); writeln(' ISILAH STATUS ANDA DI BAWAH INI '); textcolor(12); writeln('==============================================================================='); textcolor(10); writeln( ' BIODATA'); textcolor(12); writeln('==============================================================================='); write(' NAMA : '); readln(nama); write(' TEMPAT, TGL LAHIR : '); readln(tempattgllahir); write(' JENIS KELAMIN : '); readln(jeniskelamin); write(' ALAMAT : '); readln(alamat); write(' AGAMA : '); readln(agama); write(' NO HP : '); readln(nohp); write(' E-MAIL : '); readln(email) ; write(' PEKERJAAN : '); readln(pekerjaan); writeln('===============================================================================');...

Algoritma/Program Pascal: Menentukan Jumlah/Banyaknya Bilangan Prima dari Satu s/d Jumlah Bilangan Tertentu

Definisi bilangan prima adalah bilangan yang hanya habis dibagi oleh dirinya sendiri. Tepatnya bilangan prima adalah bilangan asli yang lebih besar dari satu (1) yang hanya dapat dibagi dengan satu dan bilangan itu sendiri. Artinya, jika suatu bilangan masih dapat dibagi dengan selain bilangan 1 dan bilangan itu sendiri maka bilangan tersebut bukan termasuk bilangan prima. : contoh: 1 bukan prima per definisi 2 bilangan prima 3 bilangan prima 5 bilangan prima 7 bilangan prima 9 bukan bilangan prima karena habis dibagi 3 11bilangan prima 13bilangan prima 15 bukan prima, bisa dibagi 5 dst... Tampak dari deret angka, bilangan prima adalah bilangan ganjil (kecuali 2) yang hanya habis dibagi oleh dirinya sendiri tidak boleh habis dibagi oleh bilangan lain. prosesnya adalah looping dari angka 1 sampai suatu angka tertent. periksa apakah bilangan itu ganjil ? (dengan perintah mod 2) Jika ya apakah bilangan itu habis dibagi oleh bilangan itu sendiri, bagaimana logikan...

Algoritma Konversi Bilangan Desimal ke Bilangan Binary dengan Program Pascal

Algoritma Konversi Bilangan Desimal ke bilangan Biner. Bagaimana caranya membuat program konversi bilangan desimal ke bilangan biner ?: Contoh :  Masukan angka : 100  maka outpunya seperti ini. 100:2=50 sisa=0 50:2=25 sisa=0 25:2=12 sisa=1 12:2=6 sisa=0 6:2=3 sisa=0 3:2=1 sisa=1 1:2=0 sisa=1 Logikanya sebagai berikut. Input adalah : sembarang bilangan yang dimasukan melalui keyboard Prosesnya adalah dengan looping atau perulangan dengan WHILE.. DO Akhir dari perulangan adalah saat HASIL BAGI bilangan menjadi 0 Untuk itu DIPERLUKAN LOGIKA TUKAR TEMPAT melalui BANTUAN VARIABEL/TEMPORARY VARIABEL untuk menyimpan hasil bagi dan sisahasil bagi. Untuk jelasnya perhatikan algoritma di bawah dan urutan langkahnya. Program konbin Deskripsi bilangan, sisa, tmpsisa, hasil, tmphasil : integer begin write('masukan sembarang bilangan integer') read(bilangan) hasil = bilangan div 2 sisa = bilangan mod 2 tmphasil =hasil tmpsisa=sisa write( 'hasil ba...