Cerita Indonesia
Cerita seru Indonesia berdasarkan sudut pandang penulis yang lahir dan bangga sebagai anak Indonesia.
Belajar
Kewajiban dan Kebutuhan Manusia untuk belajar tentang berbagai studi menarik bagi penulis, semoga kalian juga tertarik.
Pemrograman
Ilmu yang menarik dan sangat berguna bagi kehidupan komputasi penulis dan kalian semua.
Tutorial
Semua hal menarik dalam hidup yang perlu dilakukan dengan hati-hati dan diperlukan wawasan agar dapat melakukan sesuatu dengan mudah.
Resep
Hobi penulis dan ketertarikan penulis akan resep-resep ibu yang sangat lezat.
Upaya Peningkatan UMKM Bersama Bank BRI
Petani Indonesia - Nilai Tukar Petani (NTP) Indonesia Juni 2023
Kegunaan dan Manfaat It dan Ib :
Contoh Lanjutan Materi Prosedur dan Fungsi Bahasa Pascal
program kalku81; uses crt; var a,b : integer; procedure penjumlahan (a,b,hasil :integer) ; begin hasil := a + b; writeln ('Hasil Penjumlahan = ',hasil ); end; begin clrscr; writeln ('==Penjumlahan=='); write ('Masukkan nilai a = '); readln (a); write ('Masukkan nilai b = '); readln (b); Penjumlahan(a,b,0); readln; end. |
program kalku81; uses crt; var a,b : real; function penjumlahan (x,y,z : real) :real ; begin z := x + y; penjumlahan := z; end; begin clrscr; writeln ('==Penjumlahan=='); write ('Masukkan nilai a = '); readln (a); write ('Masukkan nilai b = '); readln (b); writeln ('Hasil Penjumlahan = ',penjumlahan(a,b,0) :0:2); readln; end. |
Program Faktorial, Permutasi, Kombinasi bahasa pascal
Prosedur dan Fungsi Bahasa Pascal : Materi dan Contoh
CONST section
TYPE section
VAR section
PROCEDUREs and FUNCTIONs section
Procedure Nama_Prosedur [(parameter)];
[Deklarasi variabel ;]
Begin
…
statemen-statemen;
…
End;
FUNCTION Avg(X, Y, Z :REAL) :REAL;
Header fungsi mirip dengan header prosedur, perbedaanya pada fungsi terdapat nilai yang dikembalikan mengikuti header fungsi (:REAL). Syntax deklarasi nya sebagai berikut :
Function Nama_fungsi [(parameter)]: Tipe_fungsi;
[Deklarasi variabel ;]
Begin
…
statemen-statemen;
[Nama_fungsi:=nilai_fungsi]
End;
Fungsi digunakan terutama untuk hal-hal spesifik atau yang sering dilakukan dan dapat mengembalikan nilai.
program fungsib; uses crt; var data : array [1..100] of integer; n,i: integer; function Rerata (x: array of integer):real; var sum :real; begin sum := 0; for i := 0 to n do begin sum := sum + x[i]; end; Rerata := sum/n; end; function stdev (x: array of integer):real; var jumlah: integer; jlh_k:real; begin jumlah:=0; jlh_k:=0; for i:=1 to n do begin jumlah:=jumlah+x[i]; jlh_k:=jlh_k+(x[i]*x[i]); end; Stdev:=sqrt((jlh_k-(jumlah*jumlah)/n)/(n-1)); end; begin clrscr; write ('Masukkan banyak data : '); readln (n); for i := 1 to n do begin write ('Data ke-',i, ' = '); readln (data[i]); end; writeln ; for i := 1 to n do begin write (data[i],' '); end; writeln; writeln ('Rata-rata = ',Rerata(data):0:2) writeln ('Standar Deviasi = ',stdev(data):0:2); readln; end. |
program belajar_procedure; uses crt; var n,hasil : integer; procedure pangkat2(a:integer); begin hasil := a*a; end; begin clrscr; write ('Masukkan N = ');readln (n); pangkat2(n); writeln ('Pangkat 2 dari ',n,' = ',hasil); readln; end. |
Resep Kue Tradisional Lapis Legit Jambi - EKSKLUSIF LEBARAN
1. Kuning Telur (26 Butir)
2. Telur Utuh/kuning+putih (4 Butir)
3. Mentega (500 gr)
4. Wisman (1 sdm)
5. Susu Kental Manis (1 Kaleng)
6. Vanili (1 Bungkus)
7. Bumbu Spekuk (1 Bungkus/ 1 sdt)
8. Tepung (200 gr)
9. Gula Halus (500 gr)
Alat :
1. Mixer
2. Oven Kue Lapis
3. Cetakan/Loyang + Kertas Minyak
4. Alat penekan kue + Oles Mentega
5. Gelas Biasa/Gelas Ukur (2 Gelas) *untuk ukuran adonan per lapisan
Cara Membuat Adonan :
1. Kocok mentega dan gula halus + 4 telur utuh menggunakan mixer sampai mengembang dan putih
2. Kemudian masukkan 26 kuning telur, kocok hingga tercampur rata
5. Adonan lapis legit siap di cetak.
Cara Memasak dan Mencetak :
1. Adonan lapis legit dibagi dua : warna original dan warna coklat/hijau/sesuai selera.
7. Ulangi langkah 5
8. Kue akan terbentuk lapisan yang cantik dan siap disajikan disaat lebaran.
Resep Kue Engkak Tradisional Jambi - EKSKLUSIF LEBARAN
1. Tepung Ketan 1 Bungkus (500 gr)
2. Telur (10 Butir) - ukur pakai gelas untuk menentukan gula nanti nya
3. Gula Pasir sama banyak dengan Telur (ukur pakai gelas)
4. Santan yang telah dimasak (4 gelas)
5. Mentega (6 sdm)
6. Bumbu spekuk (1 Bungkus/1 sdt)
7. Vanili (1 Bungkus)
Alat :
1. Kocokan Tangan
2. Oven Kue Lapis
3. Cetakan/Loyang + Kertas Minyak
4. Alat penekan kue + Oles Mentega
5. Gelas Biasa/Gelas Ukur (2 Gelas) *untuk ukuran adonan per lapisan
Cara Memasak dan Mencetak :
1. Adonan Kue Engkak dibagi dua : warna original dan warna coklat/hijau/sesuai selera.
Contoh lanjutan Instruksi Pengulangan Bahasa Pascal
program genapsaja; uses crt; var n,i,x,Jumlah_genap: integer; begin clrscr; write('Masukkan Jumlah bilangan = '); readln(n); i:=0; while i<=n do begin write('Masukkan bilangan ke-',i,'= '); readln(x); if x mod 2=0 then Jumlah_genap := Jumlah_genap + x; i:=i+1; end; writeln('Jumlah bilangan genap = ',Jumlah_genap); readln; end. |
Buatlah tabel harga fotokopian dari 1 –100 lembar, dimana harga perlembar kertas adalah 125 rupiah!
program harga_fc; const hrg= 125; var n: integer; begin writeln('TABEL HARGA FOTOKOPI'); writeln('|-------------||--------------|'); writeln('|LEMBAR ||HARGA |'); n := 1; while n <= 100 do begin writeln('|',n,' ||',n*hrg,' |'); n := n +1 ; end; readln; end. |
program Hitungjumlah; uses crt var n,i,umur,u17,u18,u19,u20,ulain: integer; begin clrscr; write('Masukkan Jumlah siswa = '); readln(n); u17:=0; u18:=0; u19:=0; u20:=0; ulain:=0; i:=1; while i<=n do begin write('Masukkan usia mahasiswa ke-',i,' ='); readln(umur); if (umur=17) then u17:= u17+1; if (umur=18) then u18:= u18+1; if (umur=19) then u19:= u19+1; if (umur=20) then u20:= u20+1; if (umur<17) or (umur>20) then ulain:=ulain+1; i:=i+1; end; writeln('Jumlah mahasiswa berusia 17 =',u17); writeln('Jumlah mahasiswa berusia 18 =',u18); writeln('Jumlah mahasiswa berusia 19 =',u19); writeln('Jumlah mahasiswa berusia 20 =',u20); writeln('Jumlah mahasiswa berusia lain = ',ulain); readln; end. |
Menggunakan struktur while-do, program meminta masukan angka N. Program akan menuliskan teks lagu Anak Ayam Turun N. Misal jika N=5 maka pada layar ouput:
Masukkan jumlah anak ayam: 5
Anak Ayam Turun 5
Anak Ayam turun 5, mati satu tinggal 4
Anak Ayam turun 4, mati satu tinggal 3
Anak Ayam turun 3, mati satu tinggal 2
Anak Ayam turun 2, mati satu tinggal 1
Program LaguAnakAyam; uses crt; var angka,n : integer; begin write ('Masukkan Jumlah anak ayam : '); readln (n); writeln('Anak Ayam Turun ', n); angka := n; while angka >= 1 do begin if angka = 1 then writeln ('Anak ayam turun ',angka,',Mati satu tinggal induknya') else writeln ('Anak ayam turun ',angka,',Mati satu tinggal ',angka-1); angka := angka-1; end; readln; end. |
1. Program untuk mencetak output seperti di bawah ini dimana yang diinput hanya jumlah barisnya saja.
0 1 2 3 4 5 6 7 8 9
9 8 7 6 5 4 3 2 1 0
0 1 2 3 4 5 6 7 8 9
9 8 7 6 5 4 3 2 1 0
0 1 2 3 4 5 6 7 8 9
2. Modifikasi sedemikian sehingga outputnya menjadi:
segitiga rata kiri
segitiga rata kanan
segitiga rata tengah
3. Modifikasi sedemikian sehingga outputnya menjadi:
segitiga rata kiri
segitiga rata kanan
segitiga rata tengah
4. Buatlah program yang outputnya segitiga pascal.
Instruksi Pengulangan Bahasa Pascal : Materi dan Contoh
1. Inisialisasi penghitung ke nol.
2. Naikkan penghitung sebesar 1.
3. Uji penghitung untuk melihat apakah kurang dari atau sama dengan 5.
4. Tampilkan pernyataan.
5. Lanjutkan ke langkah 2.
6. Pengulangan berhenti saat uji penghitungan lebih besar dari 5
{ ------------------------------ CONTOH ------------------------------ }
PROGRAM GoToLoop(OUTPUT);
LABEL
1000; { label declaration }
VAR
Kounter :INTEGER;
BEGIN
Kounter := 0;
1000:
Kounter := Kounter + 1;
IF Kounter <= 5 THEN
BEGIN
WRITELN('Sorry, say again..');
GOTO 1000 { restart }
END;
WRITELN;
WRITELN('Press ENTER to continue..');
READLN
END.
statement;
2. Bentuk alternatif dari loop FOR digunakan untuk mengurangi penghitung (Descending):
FOR control-variable := expression-1
DOWNTO expression-2 DO
statement;
statement;
statement-1;
statement-2;
...
statement-n;
UNTIL condition;
Dimana N adalah bilangan ganjil positif yang dibaca dari masukan pengguna.
program deret; uses crt; var N,i,j : integer; nilai,total : real; begin clrscr; write ('Masukkan N bilangan ganjil positif = '); readln (N); i := 1; j := 1; total := 0; while (i<=N) do begin if (j mod 2 =0) then nilai := (-1)/i else nilai := 1/i ; write (nilai :2:2,' '); total := total + nilai; i := i+2; j := j+1; end; writeln; write ('= ', total:2:2); readln; end. |
Contoh Lanjutan Instruksi Pemilihan Bahasa Pascal
Program bonus pegawai
Program bonus_karyawan; uses crt; type jabatan =(staf,nonstaf); var nama:string; golongan : jabatan; umur,bekerja : integer; begin clrscr; writeln ('PENENTUAN BONUS PEGAWAI'); writeln ('======================='); writeln ('!masukkan data dengan jujur!'); write ('Nama : '); readln (nama); write ('Masukkan golongan anda staf/nonstaf : '); readln (golongan); write ('Lama Bekerja (tahun) : '); readln (bekerja); write ('Umur (tahun) : '); readln (umur); if golongan=staf then begin if (bekerja>=5) and (umur>=50)
then begin writeln ('BONUS ANDA
1000000 RUPIAH'); end; if (bekerja<5) then begin writeln ('BONUS ANDA
500000 RUPIAH'); end; if (umur<50) then begin writeln ('BONUS ANDA
300000 RUPIAH'); end; end else begin if (bekerja>5) or (umur>=50)
then begin writeln ('BONUS ANDA 400000 RUPIAH'); end else begin if (bekerja<5) and (umur<50)
then begin writeln ('BONUS ANDA
250000 RUPIAH'); end; end; end; readkey; end. |
a. Suhu sama atau kurang dari 0 (nol) tuliskan ‘beku’.
b. Suhu lebih dari 0 (nol) dan kurang dari 100 tuliskan ‘cair’, dan
c. Suhu sama atau lebih dari 100 tuliskan ‘uap’.
Program suhu_air; Uses Crt; Var Suhu: Integer; Begin Clrscr; Writeln('PROGRAM MENENTUKAN KONDISI
AIR'); Writeln('=============================='); Write('Masukkan Suhu Air (Celcius) = '); Readln(Suhu); If suhu<=0 then begin
writeln('BEKU'); end; if (suhu>0) and (suhu<100) then begin writeln('CAIR'); end; if suhu>=100 then begin writeln('UAP'); end; Readln; end. |
Program Jadwal Mata Kuliah
Senin mata kuliah yang diberikan Algoritma dan Pemrograman ISelasa mata kuliah yang diberikan Kalkulus
Rabu mata kuliah yang diberikan Bahasa Indonesia
Kamis mata kuliah yang diberikan Pengantar Teknik Informatika
Jum’at mata kuliah yang diberikan Bahasa Inggris
Sabtu mata kuliah yang diberikan Basis Data
program
Hari_matkul; uses crt; var hari,senin,selasa,rabu,kamis,jumat,sabtu
: string; begin writeln ('JADWAL MATA KULIAH'); writeln ('=================='); writeln ('!silakan cek mata
kuliah anda!'); write ('Masukkan Hari
(senin/selasa/rabu/kamis/jumat/sabtu) : '); readln (hari); if hari='senin' then begin writeln('Hari
senin anda belajar pada mata kuliah Algoritma dan Pemrograman'); end; if hari='selasa' then begin writeln('Hari
senin anda belajar pada mata kuliah Kalkulus'); end; if hari='rabu' then begin writeln('Hari
senin anda belajar pada mata kuliah Bahasa Indonesia'); end; if hari='kamis' then begin writeln('Hari
senin anda belajar pada mata kuliah Pengantar Teknik Informatika'); end; if hari='jumat' then begin writeln('Hari
senin anda belajar pada mata kuliah Bahasa Inggris'); end; if hari='sabtu' then begin writeln('Hari
senin anda belajar pada mata kuliah Basis Data'); end; writeln ('SELAMAT BELAJAR!'); readln; end. |
Program Menu
Mempunyai menu sebagai berikut:
MENU
1. Baca data
2. Cetak data
3. Ubah data
4. Hapus data
5. Keluar program
program coba; uses crt ; label atas ; var pilihan :
byte; nama,nim,kelas,asal
: string ; lagi : char ; begin clrscr; atas : writeln(' MENU '); writeln('1.
BACA DATA '); writeln('2.
CETAK DATA '); writeln('3.
UBAH DATA '); writeln('4.
HAPUS DATA '); writeln('5.
KELUAR PROGRAM'); write('PILIH
MENU: '); readln
(pilihan); Case Pilihan
of 1 : Begin writeln('INPUT DATA ANDA'); writeln('---------------'); write ('Nama :' ); readln (nama) ; write ('NIM :' ); readln (nim) ; write ('Kelas :' ); readln (kelas) ; write ('Asal Kota :' ); readln (asal) ; writeln('---------------'); writeln('Terima Kasih'); writeln('SELANJUTNYA SILAKAN
CETAK DATA'); End; 2 : Begin writeln('CETAK DATA ANDA'); writeln('---------------'); writeln ('Nama :',nama ); Writeln ('NIM :',nim ); writeln ('Kelas :',kelas ); writeln ('Asal Kota :',asal ); writeln('---------------'); writeln('Terima Kasih'); writeln('SELAMAT BERAKTIVITAS'); End; 3 : Begin writeln('UBAH DATA ANDA'); writeln('---------------'); write ('Nama :' ); readln (nama) ; write ('NIM :' ); readln (nim) ; write ('Kelas :' ); readln (kelas) ; write ('Asal Kota :' ); readln (asal) ; writeln('---------------'); writeln('Terima Kasih'); writeln('SELANJUTNYA SILAKAN
CETAK DATA'); End; 4 : Begin writeln('HAPUS DATA ANDA'); writeln('---------------'); writeln('DATA ANDA DIHAPUS'); End; 5 : Begin writeln ('Keluar Program Pilih
T') End; Else Begin Writeln ('Pilihannya hanya 1, 2,
3, 4, 5 !!!' ); Writeln ('silahkan ulangi lagi'
); End ; End ; write ('ULANGI [Y/T] : '); readln (lagi); if (lagi = 'Y') then goto atas; readln; end. |
Program Kalkulator
Simulasikan sebuah kalkulator sederhana untuk melakukan operasi aritmatika.
Program
kalkulator_sederhana; uses crt; var a,c,d :
integer; operasi
:char; begin clrscr; writeln('PETUNJUK:'); writeln('1.
Masukkan angka pertama'); writeln('2. Masukkan
operator (+, -, /, *)'); writeln('3.
Masukkan Angka kedua'); writeln
('-------------------------------'); writeln('KALKULATOR
SEDERHANA: '); writeln
('------------------------------'); write('Masukkan
angka: '); readln(a); write('Operator:
'); readln(Operasi); write('Angka
ke dua: '); readln(c); case operasi
of '+': d:=a +
c; '-': d:=a -
c; '/': d:=a div
c; '*': d:=a *
c; end; writeln('Hasil:
',d); readln; end. |
Program Menentukan Hari
program
harihari; uses crt ; var angka :
integer; begin clrscr; writeln
('Menentukan Hari-hari'); writeln
('--------------------'); write('Masukkan
angka (1-7) : '); readln
(angka); write ('Angka
Tersebut menunjukkan Hari '); Case angka of 1 :
writeln('Ahad'); 2 : writeln
('Senin'); 3 :
writeln('Selasa'); 4 : writeln ('Rabu'); 5 : writeln
('Kamis'); 6 :
writeln('Jumat'); 7 : writeln
('Sabtu'); else writeln
('angka salah'); end; readln; end. |
Program Menentukan Hasil Ujian
program
coba5; uses crt; Var angka :
integer; begin clrscr; writeln
('KETERANGAN NILAI'); writeln
('----------------'); write
('Masukkan Nilai Anda : '); readln
(angka); if
(angka>100) or (angka<0) then writeln ('Anda Salah Input
Nilai'); readln; exit; case angka of 0..59 :
writeln ('Anda tidak lulus'); 60..100 : begin write ('Anda Lulus '); case angka of 60..69 : writeln
('dengan Cukup Memuaskan'); 70..79 : writeln
('dengan Baik'); 80..100 : writeln
('dengan Sangat Baik'); end; end; else writeln
('Anda Salah Input Nilai'); end; readln; end. |
Modifikasi nested(Bersarang) CASE berubah menjadi single CASE tanpa mengubah output program.
program
coba5; uses crt; Var angka :
integer; begin clrscr; writeln
('KETERANGAN NILAI'); writeln
('----------------'); write
('Masukkan Nilai Anda : '); readln
(angka); case angka of 0..59 :
writeln ('Anda tidak lulus'); 60..69 :
writeln ('Anda Lulus dengan Cukup Memuaskan'); 70..79 :
writeln ('Anda Lulus dengan Baik'); 80..100 :
writeln ('Anda Lulus dengan Sangat Baik'); else writeln
('Anda Salah Input Nilai'); end; readln; end. |