Reserved Word Reserved Word adalah kata-kata baku yang digunakan dalam program dan sudah terintergrated dalam pascal dan juga mempunyai bentuk serta kegunaan tertentu yang telah didefinisikan oleh Pascal. Reserved Word tidak boleh didefinisikan kembali oleh pemakai, sehingga tidak dapat digunakan sebagai pengenal (Identifier). Dalam bahasa pemrograman Pascal, Beberapa Reserved Word dalam Pascal anatra lain: AND…

uses wincrt; var a,b,c,d,e,f :integer; var g :integer; begin writeln; writeln(‘Program PSB SMA terhadap nilai UAN mu… ‘); writeln(‘Masukkan nilai Ujian mu: (Rate:00.00)’); writeln(‘Nilai Biologi mu ? ‘); readln(a); writeln(‘Nilai Fisika mu ? ‘); readln(b); writeln(‘Nilai Kimia mu ? ‘); readln(c); writeln(‘Nilai Matematika mu ? ‘); readln(d); writeln(‘Nilai Bahasa Indonesia mu ? ‘); readln(e); writeln(‘Nilai…

A. MENU Menu adalah daftar pilihan utama yang terdapat pada Menu Bar ( bagian atas ) jendela Turbo Pascal, yaitu : file, edit, search, run, dll. Sedangkan editor adalah tempat mengetik listing program itu sendiri. 1. Menu file – New : membuat program baru – Open : memanggil program dari disk – Save : menyimpan…

ELEMEN – ELEMEN BAHASA DALAM PASCAL (LANGUAGE ELEMENTS) Sebelum kita membuat sebuah program, maka terlebih dahulu kita harus mengerti tentang elemen- elemen bahasa (Language elements) Turbo Pascal, seperti Reserved word, Statement, Type, Constants, Variabel, Tipe data, Label, Operator, dan lain-lain. a. Reserved Word Reserved word adalah kata – kata yang tidak dapat dijadikan menjadi identifier…

PERCABANGAN / KONDISI Percabangan adalah suatu proses pemilihan aksi diantara beberapa alternative yang diberikan. Bentuk umum statemen if : If ( cond-exp) statement ; Bentuk umum statement if … else : If ( cond-exp) statement true Else statement false ; Jika ada lebih dari 1 (satu) instruksi yang akan dijalankan maka harus dibuat dalam bentuk…

Program PersamaanKuadrat; uses wincrt; var a,b,c,d,x1,x2 :real; begin clrscr; writeln(‘Menghitung akar-akar persamaan kuadrat’); writeln(‘Nilai a,b,c dimasukkan dengan jeda spasi’); write(‘Masukkan nilai a,b,c:’); readln(a,b,c); d:=(b*b) – (4*a*c); if d < 0 then writeln('tidak ada akar real') else begin x1:=(-b + (sqrt(d)))/(2*a); x2:=(-b - (sqrt(d)))/(2*a); writeln('x1 =',x1:6:2); writeln('x2 =',x2:6:2); end; readln; end.

Program_suhu; uses crt; var suhu : integer ; begin write ( ‘ suhu tubuh: ‘ ) ; readln (suhu) ; if suhu < 28 then writeln ( ' suhu rendah ' ) ; else if suhu > 37 then writeln ( ‘ suhu tinggi ‘ ) ; else writeln ( ‘ normal ‘ ) ;…

Program_penjualan ; uses crt ; var pembelian,potongan : integer ; begin write (‘ total pembelian ‘ ); readln (pembelian); case pemotongan of =10000 : potongan := 1000; =100000 : potongan := 10000; end; writeln (‘ jumlah pembelian : ‘ ,pembelian) ; writeln (‘ potongan : ‘ ,potongan) ; write ( ‘ jumlah bayar : ‘…

Program nilai ; Uses crt ; Var huruf : char ; Begin Write ( ‘ nilai yang didapat: ‘);readln (huruf) ; Case huruf of ‘A’ : writeln (‘sangat baik’) ; ‘B’ : writeln ( ‘baik ‘) ; ‘C’ : writeln ( ‘cukup’) ; ‘D’ : writeln ( ‘kurang’ ) ; ‘E’ : writeln ( ‘gagal’…

Program Gaji ; uses wincrt; var Nama,Nip : char ; gaji_pokok,gaji_kotor,tunjangan,pajak,gaji_bersih :real; begin writeln (‘ Gaji Pegawai ‘) ; write ( ‘ Nama : ‘ ) ; readln ( Nama ) ; write ( ‘ Nip : ‘) ; readln (Nip) ; write ( ‘ Gaji Pokok : ‘ ) ; readln ( gaji_pokok )…