-
Program Contoh Bulan
Contoh program bulan di pascal kiriman Dianita Wahyu Kurniasih Program Contoh_Bulan; uses wincrt; const Bulan :array[1..12] of string = (‘Januari’,’Februari’,’Maret’,’April’,’Mei’,’Juni’,’Juli’, ‘Agustus’,’September’,’Oktober’,’November’,’Desember’); var NoBulan:integer; begin clrScr; write (‘Masukkan nomor bulan: ‘ ); readln (NoBulan); write (‘Nama bulan ke- ‘ ,NoBulan , ‘ adalah ‘, Bulan [NoBulan]); readln; end. Dianita Wahyu Kurniasih [email protected]
-
Erika Record
Contoh penggunaan record di pascal kirimanErika Silvia Sihombing uses wincrt; Type mahasiswa = record Nama: string[15]; Nim:string[10]; IPK: real; end; Var Mhs: Mahasiswa; type tipesiswa=record Nama: string[15]; end; begin write(‘nama : ‘);readln(mhs.nama); write(‘nim : ‘);readln(mhs.nim); write(‘IPK : ‘);readln(mhs.IPK); writeln; writeln(‘Nama anda:’,mhs.nama); writeln(‘nim anda:’,mhs.nim); writeln(‘IPK anda:’,mhs.IPK:4:2); end. Erika Silvia Sihombing [email protected]
-
Erika Array
Contoh penggunaan array di pascal kiriman Erika Silvia Sihombing Uses Wincrt; Var bilangan : array[1..50] of integer; begin ClrScr; Bilangan[1]:=3; Bilangan[2]:=29; Bilangan[3]:=30; Bilangan[4]:=31; Bilangan[5]:=23; writeln(‘nilai variabel bilangan ke 3=’,bilangan[3]); readln; end. Erika Silvia Sihombing [email protected]
-
Program Mencari Rata-rata, Nilai Tertinggi dan Terendah
Contoh program untuk mencari nilai rata-rata, tertinggi dan terendah uses wincrt; var a, siswa : integer; nilai, total, tinggi, rendah, rata : real; begin total := 0; write (‘jumlah siswa : ‘); readln (siswa); writeln; for a := 1 to siswa do begin write (‘nilai siswa ke ‘,a,’ : ‘); readln (nilai); total := total…
-
Program Data Pegawai
Seorang pemilik perusahaan meminta kepada programmer perusahaannya, untuk membuat program penggajian karyawan. langkah2 penggunaan: input NIP input nama input golongan (golongan 1-3) guna menentukan gaji pokok input masa kerja kurang lebih listing program seperti ini, mohon maaf klo ada yg salah ketik. Lampu diwarnet baru diperbaiki, gelap (huruf di keyboard ga keliatan) Program DataPegawai; Uses…
-
Program Input Nilai Mahasiswa
Seorang dosen memberi tugas mahasiswanya untuk membuat listing program pascal dalam rangka praktik materi array. Inti tugasnya adalah membuat program database sederhana konversi nilai mahasiswa, dimana pada pertama kali BAK menginput : Jumlah data mahasiswa Nim mahasiswa Nama mahasiswa Nilai pertama Nilai kedua Hasil yang didapat adalah data mahasiswa, rata2 nilai dan konversi ke nilai…
-
Konsep IF .. ELSE ..
Statemen IF akan bercabang sesuai dengan hasil dari operasi boolean (true & false). Pertama-tama kita akan pelajari percabangan satu arah : if EkspresiBoolean then StatemenTrue; Bila ekspresi boolen bernilai benar (true), maka statemen akan dieksekusi. Bila bernilai salah maka tidak akan dieksekusi. Berikut contohnya : uses wincrt; var a : integer; begin a := 1;…
-
Struktur Program Pascal
Struktur dasar dalam pemrograman pascal : PROGRAM NamaProgram (FileList); CONST (*Deklarasi Konstanta*) TYPE (*Deklarasi Type*) VAR (*Deklarasi Variabel*) (*Definisi SubProgram*) BEGIN (*Statemen*) END. Elemen-elemen dalam program harus sesuai dengan urutannya, beberapa elemen bisa dihilangkan bila tidak diperlukan. Seperti contoh dibawah, program yang ada merupakan program yang benar, tapi tidak melakukan apapun. PROGRAM Sinau1; BEGIN END.…
-
Contoh Looping
Dibuat program memasukkan password, misal password = ‘kunci’. selama password tidak sama dengan (<>) ‘kunci’, program akan terus meminta password. uses wincrt; var username, password : string ; begin repeat write(‘username : ‘);readln(username); write(‘password : ‘);readln(password); writeln(”); until (username = ‘user’)and (password =’pass’); writeln(username, ‘ , selamat datang’); end.
-
Contoh Array
Pada source array berikut ini, dibuat suatu program untuk menyimpan array sebanyak 100 (max), pada awalnya program akan meminta jumlah data yang akan di masukkan. Dalam memberikan nilai pada array, akan dilakukan pengacak-an serta pengecekan nilai yang dihasilkan. Nilai yang dihasilkan kemudian ditampilkan. uses wincrt; var X : array[1..100] of integer; a,b,n,r : integer; beda…