Postingan

Menampilkan postingan dari Desember, 2015

Membuat Program Dengan PASCAL

Gambar
Penulis : al azmi Pascal merupakan suatu bahasa pemrograman komputer yang terstruktur pertama kali dibuat oleh       Prof. Niklaus Wirth pada tahun 1971. Anda dapat menggunakan Software Turbo Pascal untuk membuat sebuah program bahasa pascal. silahkan terlebih dahulu Download Turbo Pascal . Baik, disini saya akan mengajarkan bagaimana struktur program sederhana dengan menggunakan Turbo Pascal. Bagaimana sih memulai membuat suatu program dengan Pascal? Membuat program dengan pascal harus terstruktur, dimulai dari : Program Heading (Nama program) Uses Clause (Untuk menentukan Library yang dibutuhkan saat proses program) Declaration (deklarasi untuk label, const, type, var, procedure dan function) Variabel Declaration (Setiap variabel yang digunakan harus didaftarkan terlebih dahulu) Statement (Bagian ini merupakan isi dari inti program yang akan kita buat) Perhatikan code dibawah : program belajar_pascal; uses crt; var nama : stri...

Tipe - Tipe Data Pada PASCAL

Gambar
Penulis : al azmi Dalam Bahasa Pemrograman PASCAL terdapat 2 type variabel yang disediakan untuk melakukan declaration variable, berikut : Ordinal types Merupakan type data yang mempunyai urutan pasti. Ordinal types terbagi atas beberapa bagian, antara lain : - Integer Type variabel yang berguna untuk pengolahan data bilangan bulat, terbagi atas :

Cara Membuat Program Mencari Nilai Rata-Rata

Gambar
penulis : alazmi Pada postingan kali ini saya ingin membahas bagaimana Cara Membuat Program Mencari Nilai Rata-rata pada Siswa dan juga grade-nya. Baik langsung saja ketikan code dibawah pada turbo pascal Anda, berikut : {by alazmi} program Nilai_Siswa; uses crt; var A                           :array[1..20] of integer;       nama,ulang,temp :string;       hasil                     :real; begin repeat clrscr; write('Nama Siswa = '); readln(nama); write('Nilai Harian = '); readln(A[1]); write('Nilai Ujian Praktek = '); readln(A[2]); write('Nilai Ujian Praktek = '); readln(A[3]); hasil:=(A[1]+A[2]+A[3])/3; writeln; temp:='eror'; if hasil <=50 then temp:='D' else if hasil<=...