iccup reg file download

Name: iccup reg file download
Category: Soft
Published: stepanjafo1978
Language: English

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

17 Contoh Program Pascal untuk Latihan Programming.
Untuk mempelajari macam-macam bahasa pemrograman, Anda harus sering-sering latihan dan mempraktekkannya. Anda bisa mempraktekannya menggunakan editor yang mendukung bahasa pemrograman tersebut. Bahkan, ada beberapa bahasa pemrograman yang didukung oleh banyak jenis sistem operasi komputer yang dipakai oleh banyak orang.
Salah satu bahasa pemrograman yang sering digunakan oleh programmer adalah bahasa pemrograman Pascal. Pascal adalah bahasa pemrograman yang dibuat oleh Prof. Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971 dan termasuk ke dalam tingkatan bahasa pemrograman yang tinggi. Nama Pascal sendiri terinspirasi dari nama matematikawan Perancis yang pertama kali menciptakan mesin penghitung, yaitu Blaise Pascal. Kelebihan dan kekurangan bahasa pemrograman generasi ke-4 juga dimiliki oleh bahasa pemrograman ini.
Pada artikel kali ini, kami akan memberikan beberapa contoh program pascal yang bisa menjadi bahan latihan Anda. Daripada lama-lama, yuk disimak contoh-contohnya di bawah ini:
Contoh 1: Apakah Anda irit atau boros?
program Irit_Boros; uses crt; var saku, peng, hasil : integer;
begin write(‘Jumlah uang saku Anda per minggu : ‘); readln(saku); write(‘Pengeluaran Anda per minggu : ‘); readln(peng); hasil:=saku-peng; if hasil>=peng then writeln(‘sisa uang saku Anda per minggunya adalah : ‘,hasil,’ artinya Anda adalah orang yang irit’) else writeln(‘sisa uang saku Anda per minggunya adalah : ‘,hasil,’ artinya Anda adalah orang yang boros’); end.
Contoh 2: Contoh program Pascal untuk Menghitung Gaji.
program hitung_gaji; uses crt;
var nama_karyawan:string; alamat:string; gaji_pokok,tunjangan,pajak,gaji_bersih:comp;
begin writeln(‘menghitung gaji bersih karyawan’); write (‘nama karyawan:’);readln(nama_karyawan); write (‘alamat:’);readln(alamat); write (‘gaji pokok:’);readln(gaji_pokok); tunjangan:=0.15 * gaji_pokok; pajak:=0.075 * gaji_pokok; gaji_bersih:=gaji_pokok+tunjangan-pajak; writeln(nama_karyawan); writeln(‘gaji pokok Anda adalah’,gaji_pokok); writeln(‘tunjangan Anda sebesar’,tunjangan); writeln(‘pajak penghasilan Anda sebesar’,pajak); writeln(‘maka gaji bersih Anda adalah’,gaji_bersih); end.
Contoh 3: Program “If_Kombinasi”
var angka1,angka2 : integer;
begin writeln(‘Masukkan angka pertama: ‘); readln(angka1); writeln(‘Masukkan angka kedua: ‘); readln(angka2); if (angka1>3) and (angka2>4) then begin writeln(‘Anda memasukkan nilai angka pertama > 3 dan kedua > 4’); end end.
Contoh 4: Program Tebak Angka.
var angka,tebakan : integer;
begin clrscr; angka:= 2; writeln(‘Coba tebak angka antara 1 sampai 10’); readln(tebakan); if angka = tebakan then writeln(‘Selamat!, tebakan kamu benar.’) else writeln(‘Wakwawww, tebakan kamu salah.’) end.
Contoh 5: Program Menghitung Detik Menit.
var jam, menit,i,hasil,dtk,hasildtk : integer;
begin clrscr; write(‘Masukkan Nilai Jam : ‘); readln(jam); i:=60; dtk:=3600; if jam =1 then begin hasil:=jam*i; hasildtk:=jam*dtk; writeln(jam, ‘ jam sama dengan ‘,hasil,’ menit dan ‘, hasildtk, ‘ detik’); end else begin hasil:=jam*60; hasildtk:=jam*dtk; writeln(jam,’ jam sama dengan ‘,hasil, ‘ menit dan ‘, hasildtk, ‘ detik’); end; end.
Contoh 6: Program Kalkulator.
Program Kalkulatia; uses crt;
var angka1,angka2,hasil:real,2; operasi:char;
begin clrscr; writeln(‘KALKULATOR’); writeln(‘===================’); write(‘Input Angka Pertama : ‘); readln(angka1); write(‘Operasi yang dilakukan(+,-,/,*) : ‘); readln(operasi); write(‘Input Angka Kedua: ‘); readln(angka2); case operasi of ‘+’: hasil :=angka1+angka2; ‘-‘: hasil :=angka1-angka2; ‘*’: hasil :=angka1*angka2; ‘/’: hasil :=angka1/angka2; end; writeln(‘Hasil dari ‘,angka1,’ ‘, operasi,’ ‘, angka2, ‘ = ‘,’ ‘, hasil); end.
Contoh 7: Pangkat Kuadrat.
program pangkat_kuadrat; uses crt;
var bil : integer;
function pangkat2(b: integer) : integer; var hasil : integer;
begin hasil := b *b; pangkat2 := hasil; end;
begin clrscr; write(‘masukan bilangan bulat : ‘); readln(bil); write(‘hasil pangkatnya adalah ‘, pangkat2(bil)); readkey; end.
Contoh 8: Menghitung Luas Persegi Panjang.
var panjang : real; lebar : real; luas : real;
begin clrscr; writeln(‘===================================’); writeln(‘| ‘,’Program untuk Menghitung Luas Persegi Panjang’,’ |’); WRITELN(”); writeln(‘| ‘,’Rumus : Panjang x Lebar (p x l)’,’ |’); writeln(‘===================================’); writeln(”); write(‘Nilai Panjang: ‘); readln(panjang); write(‘Nilai Lebar: ‘); readln(lebar); Writeln(‘Rumus Luas: Panjang x Lebar (p x l)’); luas :=panjang*lebar; writeln(”); writeln(‘=============================’); writeln(‘| ‘,’Jadi p x l = ‘,panjang:0:1,’ x ‘,lebar :0:1); writeln(‘==============================’); writeln(luas:0:1); end.
Contoh 9: Contoh program Pascal “If Bercabang”
program NeastedIf; uses crt;
var A,B,C : integer;
begin clrscr; writeln (‘Masukkan tiga angka dengan spasi’); readln(A, B, C); if A >= B then begin if A >= C then writeln (A, ‘ adalah nilai terbesar’) else writeln (C, ‘ adalah nilai terbesar’) end else if B >= C then.
begin if B >= C then writeln (B, ‘ adalah nilai terbesar’) else writeln (C, ‘ adalah nilai terbesar’) end else if C >= A or B then writeln(C, ‘ adalah nilai terbesar’); end.
Contoh 10: Program Data Kepegawaian.
program data_pegawai; uses crt;
var gajipokok, gajibersih, tunjangan1, tunjangan2, tunjangan3, tunjangan4 :real; status :char; nama, alamat :string[30]; jumlah :integer;
begin clrscr; write(‘Nama : ‘); readln(nama); write(‘Alamat : ‘); readln(nama); write(‘Gaji pokok : Rp ‘); readln(gajipokok); write(‘Status D:menikah, S:belum menikah : ‘); readln(status); write(‘Jumlah anak : ‘); readln(jumlah); if (status = ‘D’) then if(jumlah 0 then begin Writeln(‘GRADE = O ‘); Writeln(‘Besar biaya = Rp.550000’); end else if nilai =100 then Writeln(‘GRADE = A’); Writeln(‘Besar biaya = Rp.50000’); end; readln; end.
Contoh 18: Program untuk Mencari Predikat.
Var nilai:byte; A,B,C,D:string;

http://ulunchanrai1973.eklablog.com/download-k-lite-codec-pack-a177...