-
Program Penjualan
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
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
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 )…
-
Program Berat
Program Berat_badan ; uses crt ; var berat : integer ; begin write ( ‘ masukkan berat badan : ‘ ); readln (berat) ; if berat > 37 then writeln (‘berat’); else writeln ( ‘ kurus ‘ ) ; readln ; end.
-
Program Pencari Tanggal
ProgramPencariHar; uses WinDos, Wincrt; const days:array [0..6] of string [9]= (‘Minggu’,’Senin’,’Selasa’,’Rabu’,’Kamis’,’Jumat’,’Sabtu’); var th, tg, bl, dow: word; begin GetDate(th,bl,tg,dow); write(‘Hari ini adalah ‘ ,days[dow],’, ‘,tg:0,’ ‘); case bl of 1:begin write(‘Januari’); end; 2:begin write(‘Februari’); end; 3:begin write(‘Maret’); end; 4:begin write(‘April’); end; 5:begin write(‘Mei’); end; 6:begin write(‘juni’); end; 7:begin write(‘Juli’); end; 8:begin write(‘Agustus’); end; 9:begin write(‘September’);…
-
ARRAY PADA PASCAL
Array adalah variabel yang dapat menyimpan lebih dari satu nilai sejenis. Terdapat dua bagian penting yaitu elemen array yang merupakan nilai dan endeks array yang merupakan nilai urut untuk mengakses nilai pada array. Berikut ini contoh array A dengan 10 buah elemen tiap elemen memiliki nilai antara 10 hingga 100. A[1] A[2] A[3] A[4] A[5]…
-
Pemrograman
Definisi Program/Pemrograman • Adalah kumpulan instruksi-instruksi tersendiri yang biasanya disebut source code yang dibuat oleh programmer (pembuat program) • Program adalah kumpulan instruksi atau perintah yang disusun sedemikian rupa sehingga mempunyai urutan nalar yang tepat untuk menyelesaikan suatu persoalan. (Menurut P. Insap Santosa) • Instruksi (statement) yang dimaksud adalah syntax (cara penulisan) sesuai dengan bahasa…
-
Algoritma dan Pemrograman
Algoritma adalah urutan langkah-langkah logis penyelesaian masalah yang disusun secara sistematis Algoritma adalah urutan logis pengambilan keputusan untuk pemecahan masalah Urutan logis berarti urutan langkah-langkah harus benar, dan langkah-langkah itu sendiri juga harus benar Tanpa disadari kita sering menerapkan algoritma dalam kehidupan sehari-hari Menyapu halaman Mencuci piring Mandi Dan banyak contoh lainnya … Setiap orang…
-
Aplikasi Stack pada Struktur Data untuk Mengkonversikan Notasi INFIX Menjadi POSTFIX
Listing Program Uses crt; const Noelstack = 80; Makschar = 80; Type Eon = char; stack = Record Top : array[1…Noelstack] of Eon; Noel : 0… Noelstack; End; Tipeindex = 0… makschar; Typeeks = array[1… Noelstack] of char Var lagi : char; {Bentuk-bentuk operasi stack} Function isempty(Var s : stack):Boolean; Begin IsEmpty : = s.…
-
Program Banyak Huruf dalam Kalimat
uses wincrt; var n:array[1..26] of integer; i,j:integer; kata : String; begin for i:=1 to 26 do n[i]:=0; write(‘Ketikkan sebuah kalimat : ‘);readln(kata); for i:=1 to length(kata) do for j:=1 to 26 do if ord(upcase(kata[i]))=64+j then inc(n[j]); for i:=1 to 13 do writeln(chr(64+2*i-1),’ = ‘,n[2*i-1],’ ‘,chr(64+2*i),’ = ‘,n[2*i]); end.