program deret_segitiga; uses wincrt; var i,angka,a,b:integer; bil:array[1..100]of integer; next:array[1..100]of integer; deret,kolom,kol:integer; begin clrscr; gotoxy(22,1);writeln('Menghitung Jumlah Deret'); gotoxy(22,2);writeln('___________________________'); writeln; kolom:=40; write('Masukkan Jumlah Deret :');readln(deret); writeln; next[1]:=0; next[2]:=1; next[3]:=0; kol:=kolom; gotoxy(kol,wherey); writeln(1); for a:=2 to deret do begin kolom:=kolom-2; kol:=kolom; for b:=1 to 100 do bil[b]:=next[b]; for b:=1 to a do begin angka:=bil[b]+bil[b+1]; gotoxy(kol,wherey); write(angka); next[b+1]:=angka; next[b+2]:=0; kol:=kol+4; end; writeln; end; end.
Posts
Showing posts from October, 2014
TUGAS PASCAL CASE OF
- Get link
- Other Apps
Program ABDIMAULANA_141510123; var nama,ket:string; nilai,absen,tugas,uts,uas:integer; npm:longint; begin writeln('Nilai Akhir Mahasiswa Semester Ganjil'); writeln('|==================================|'); write ('| Masukkan Nama : ');readln(nama); write ('| Masukkan Npm : ');readln(npm); writeln('|==================================|'); writeln('|*****Masukkan Nilai Mahasiswa*****|'); writeln('|==================================|'); write ('| Masukkan Nilai Kehadiran : ');readln(absen); write ('| Masukkan Nilai Tugas : ');readln(tugas); write ('| Masukkan Nilai UTS : ');readln(uts); write ('| Masukkan Nilai UAS : ');readln(uas); writeln('|==================================|'); nilai:=(20*absen + 25*tugas + 25*uts + 30*uas) div 100; ca
TUGAS PASCAL IF ELSE
- Get link
- Other Apps
Program ABDIMAULANA_141510123; var nama,nhuruf:string; nilai,absen,tugas,uts,uas:integer; npm:longint; begin writeln('Nilai Akhir Mahasiswa Semester Ganjil'); writeln('|==================================|'); write ('| Masukkan Nama : ');readln(nama); write ('| Masukkan Npm : ');readln(npm); writeln('|==================================|'); writeln('|*****Masukkan Nilai Mahasiswa*****|'); writeln('|==================================|'); write ('| Masukkan Nilai Kehadiran : ');readln(absen); write ('| Masukkan Nilai Tugas : ');readln(tugas); write ('| Masukkan Nilai UTS : ');readln(uts); write ('| Masukkan Nilai UAS : ');readln(uas); writeln('|==================================|'); nilai:=(20*absen + 25*tugas + 25*uts + 30*uas) div 100;
rogram Pascal Untuk Menghitung Pajak Penghasilan
- Get link
- Other Apps
PROGRAM PAJAK; USES WINCRT; VAR NAMA,NPWP:STRING; TANYA,KAWIN,ISTRI:CHAR; PENGHASILAN,PKP,PPH,ANAK,WP,PTKPKWN,PTKPISTRI,PTKPANAK,PTKP:real; T1,T2,T3,T4,T5:REAL; BEGIN WRITELN(‘PROGRAM UNTUK MENGHITUNG PAJAK PENGHASILAN’); WRITELN; WRITELN; WRITE(‘Nama Wajib Pajak : ‘);readln(nama); write(‘Nomor Pokok Wajib Pajak (NPWP) : ‘);readln(npwp); write(‘Status [K]awin/[T]idak kawin : ‘);readln(kawin); write(‘Istri [B]ekerja/[T]idak Bekerja : ‘);readln(istri); write(‘Jumlah Anak : ‘);readln(anak); WRITE(‘Jumlah Penghasilan : ‘);readln(penghasilan); writeln; writeln; case kawin of ‘K': begin PTKPKWN:=1440000; end; else begin PTKPKWN:=0; end; end; case istri of ‘B': BEGIN PTKPISTRI:=2880000; END; else BEGIN PTKPISTRI:=0; END; end; IF ANAK>=3 THEN BEGIN PTKPANAK:=3*1440000; END ELSE BEGIN PTKPANAK:=ANAK*1440
PERINTAH-PERINTAH DALAM PASCAL
- Get link
- Other Apps
Berikut adalah perintah-perintah Unit System Golongan Arithmatic: Int : Perintah untuk mengabaikan angka dibalik koma. Penggunaannya : Int(45,78)=45 Frac: Mengambil desimal suatu bilangan. Frac(45,78)=0,78 . (Frac=Fraction) Sqr: Mencari pangkat 2 dari suatu bilangan. Sqr(3)=9. (Sqr=Square) Sqrt: Mencari akar pangkat dua dari suatu bilangan. Sqrt(16)=4. (Sqrt=Square Root) Exp: Untuk mencari eksponensial (exponential) dari suatu bilangan. Contoh Exp dari 1 =2,72 Ln: Mencari logaritma natural dari suatu bilangan. (Ln=logarithma natural). Pi : Untuk memasukkan bilangan pi (3,1415926536) Sin : Untuk mencari Sinus dari suatu bilangan dalam satuan radian. Bentuk umumnya adalah: Sin(angka) Untuk mengkonversi kedalam derajat, maka harus ditambahkan rumus:Sin(Angka/(180/Pi). Cos: Untuk mencari Cosinus dari suatu bilangan dalam satuan radian. Bentuk umumnya adalah : Cos(angka) Untuk mengkonversi kedalam derajat maka harus ditambahkan rumus:Cos(angka/(180/Pi) Tan: Turbo pa
Tips Membuat CV yang Menarik
- Get link
- Other Apps
Saat anda melamar pekerjaan, membuat CV menjadi salah satu syarat mutlak bagi Anda. Banyak orang memiliki gaya yang berbeda untuk menulis dan membuat CV sebelum mengirimkannya ke perusahaan yang mereka inginkan. CV juga menjadi pertimbangan bagi perusahaan apakah Anda layak di panggil wawancara bahkan sampai diterima atau tidak terkait lowongan pekerjaan yang Anda lamar. Nah, Apakah CV Anda sudah menarik? Berikut tips agar CV Anda tetap menarik : 1.Singkat dan padat Biasanya perusahaan hanya akan melihat resume Anda sekilas, sekitar 25 detik. Karenanya, Anda tak perlu secara detil mencantumkan seluruh riwayat pekerjaan Anda. Rangkumlah dalam beberapa paragraf. 2.Identifikasi prestasi Ceritakan apa yang Anda kerjakan selama ini, bukan sekedar menjelaskan jenis pekerjaan yang Anda lakukan. Cantumkan pula prestasi yang diraih ketika Anda mengerjakannya sebagai "nilai jual" Anda. Misalnya, mencatat penjualan tertinggi, dan sebagainya. Sebaiknya sebutkan prestasi yang releva
CONTOH PROGRAM SEDERHANA DI PASCAL
- Get link
- Other Apps
1. Program bagi pemula dengan struktur biasa Program Contoh_Awal; Uses CRT; Var i,j,k : integer; Begin ClrScr; Write(‘masukkan nilai i dan j : ‘); Readln(i,j); k:=i+j; Writeln(‘nilai k : ‘,k); Readln; End. 2. Program bagi pemula dengan struktur biasa Program ContohInteger; Uses CRT; Var y : Integer; p : Real; X : Real; Begin y := 5; p := 6; x := y + p; Writeln(‘Nilai X adalah :’,x:4:1); End. 3. Program untuk menginput sejumlah variabel dan menampilkannya Program Contoh_Variabel; Uses crt; Var Nama : string[15]; Jumlah,harga : Longint; Nilai : real; Begin ClrScr; {Memasukkan data} Nama:=’Semen'; jumlah:=10; harga :=250000; Nilai :=Harga * Jumlah ; {Menampilkan Data yang Telah Diproses} writeln(‘Nama Barang:’,Nama); writeln(‘Jumlah:’,Jumlah); writeln(‘Harga:’,Harga); writeln(‘Nilai Barang:’,Nilai); Readln; end. 4. Program untuk mengolah variabel (* Variable dan Konstanta *) Program Contoh_2a; Uses CRT; Const phi = 3.14; Var x : Intege
Program Perhitungan Gaji Karyawan
- Get link
- Other Apps
==============================PROGRAM 1=============================== program pembuatan_record; uses crt; procedure garis; begin writeln(’==============================================’); end; type reckaryawan=record jab,nip,nama:string; gol:integer; gapok,tunj:real; end; var pegawai:reckaryawan; total:real; begin clrscr; writeln(’ LAPORAN PERHITUNGAN GAJI KARYAWAN PT MAJU TAK GENTAR’); garis; writeln; write(’Masukan NIP Karyawan : ‘);readln(pegawai.nip); write(’Masukan Nama Karyawan : ‘);readln(pegawai.nama); write(’Golongan[1/2/3] : ‘);readln(pegawai.gol); garis; case pegawai.gol of 1: begin pegawai.jab:=’Staf dan Tetap’; pegawai.gapok:=900000; end; 2: begin pegawai.jab:=’Staf dan Kontrak’; pegawai.gapok:=700000; end; 3: begin pegawai.jab:=’Kontrak’; pegawai.gapok:=500000; end; end; if pegawai.jab=’Staf dan Tetap’ then pegawai.tunj:=25/100*pegawai.gapok else if pegawai.jab=’Staf dan Kontrak’ then pegawai.tunj:=10/100*pegawai.gapok else
- Get link
- Other Apps
CONTOH PROGRAM KALKULATOR program kalkulator; uses wincrt; var a,b,c,d:integer; e,f,g:real; begin clrscr; repeat a:=5; writeln('1. Penjumlahan'); writeln('2. Pengurangan'); writeln('3. Perkalian'); writeln('4. Pembegian'); writeln('5. Keluar'); writeln; write ('Tentukan Pilihan Menu :'); readln(a); case a of 1: begin write ('Masukkan Bilangan Pertama :');readln(b); write ('Masukkan Bilangan Kedua :');readln(c); d:=b+c; writeln('Hasilnya Adalah : ',d);readln; end; 2: begin write ('Masukkan Bilangan Pertama :');readln(b); write ('Masukkan Bilangan Kedua :');readln(c); d:=b-c; writeln('Hasilnya Adalah : ',d);readln; end; 3: begin write ('Masukkan Bilangan Pertama :');readln(
- Get link
- Other Apps
Menjalankan Turbo Pascal di Windows 7 64 bit Mugkin bagi teman-teman yang menggunakan windows 7 64 bit, akan terdapat masalah ketika menjalankan turbo Pascal. Akan ada peringatan yang meminta kita check apakah system yang kita gunakan 32 bit atau 64bit. Kemudian kita diminta menghubungi publisher software Nah, untuk mengatasi masalah ini kita membutuhkan sebuah software lagi yang bernama DOSBox. Nah, untuk mendapatkan software nya, teman-teman bisa download disini dan untuk Turbo Pascal, teman-teman dapat mendownloadnya disini Nah, setelah itu install software nya. Kemudian kita bisa mejalankan Turbo Pascal dengan cara: 1. Buat Folder baru di Local Disk C, misalnya tp7 2. Extract Seluruh file turbo pascal ke dalam folder tp7 3. Jalankan Software DosBox 4. Ketikkan mount c c:\tp7 5. Kemudian Ketikkan c:\BIN\TPX.exe 6. Nah, sekarang kita dapat belajar Bahasa Pemrograman Pascal dengan Turbo Pascal tanpa masalah Selamat Mencoba !! ***UPDATE hallo Bro n Sis, n