Selasa, 15 November 2011

[Turbo Pascal] Program KRS Mahasiswa

program krs_mahasiswa; uses wincrt; type siswa=record nim:string[5]; nama:string[15]; krs:array[1..4,1..5] of integer; end; type kuliah=array[1..20] of siswa; var kul:kuliah; {--------------------------------------------------------------------} function huruf(bobot:integer):char; begin case bobot of 0:huruf:='E'; 1:huruf:='D'; 2:huruf:='C'; 3:huruf:='B'; 4:huruf:='A'; end; end; {--------------------------------------------------------------------} procedure khs(n:integer;kul:kuliah); var jumsks,usaha,i,j:integer; ipnya:real; begin for i:=1 to n do begin Writeln('Nim : ',kul[i].nim); Writeln('Nama : ',kul[i].nama); writeln; writeln('Kode sks nilai'); jumsks:=0;usaha:=0; for j:=1 to 2 do begin writeln(kul[i].krs[1,j]:3,' ',kul[i].krs[2,j]:3,' ',huruf(kul[i].krs[4,j]):5); jumsks:=jumsks+kul[i].krs[2,j]; usaha:=usaha...

Minggu, 06 November 2011

[Turbo Pascal] Fungsi Looping Pada Turbo Pascal

Posted on Wednesday, July 13, 2011 by fendri Pada kesempatan kali ini saya sharing tentang "Fungsi Looping Pada Pascal. Apa Itu Looping Pada Pemograman looping diartikan sebagai proses berulang terhadap statement maupun serangkaian statement lebih dari satu kali dengan menggunakan kode atau perintah tertentu. Tanpa menggunakan looping listing program yang kita tulis bisa jadi panjang dan logika pemograman jadi agak susah. Selanjutnya bagaimana cara penerapan fungsi looping pada pascal? Cara Penerapan Fungsi Looping Pada Pascal Looping pad pascal menggunakan beberapa perintah seperti; for...to.. do; For biasa digunakan untuk perulangan positif dengan penghitung (counter) dari kecil kebesar atau dengan kata...

[Turbo Pascal] Deret pangkat bilangan

Normal 0 false false false IN X-NONE X-NONE Menghitungderetpangkatbilangan   Outputnya: Edit sepuasnya sesuai keinginan kalian..jangan sama seperti punya ku yang di atas ya..   ...

Kamis, 03 November 2011

Entry Data Pegawai dengan Array

Program DataPegawai_Array; Uses Wincrt; Type Pegawai = record NIP : String[9]; Nama : String[30]; Golongan : Char; Jamkerja : Real; End; VarData : Array [1..100] of Pegawai; Gapok,Insentif,Gaber : Real; Tot,Rata : Real; Ul : Char; i,n : Integer; Begin Repeat Clrscr; Write('Masukkan Jumlah Data Pegawai : ');Readln(n); For i := 1 to n do Begin Clrscr; Writeln('Entry Data Pegawai PT. XYZ'); Writeln('=========================='); Writeln; Writeln('Data Ke-',i); Writeln; Write('NIP : ');Readln(Data[i].NIP); Write('Nama : ');Readln(Data[i].Nama); Write('Golongan : ');Readln(Data[i].Golongan); Write('Jam Kerja : ');Readln(Data[i].Jamkerja); Writeln; End; Clrscr; Writeln('Laporan Gaji Pegawai'); Writeln('PT. XYZ'); Writeln; Writeln('============================================================= =================='); Writeln('|NO....

Program Menjumlahkan Pecahan

Program Pecahan; Uses Wincrt; Var pmb,pny : array [1..10] of integer; i,j,n,t1,t2 : integer; Begin Writeln('Program Pecahan'); Writeln('==============='); Writeln; Write('Jumlah Data Pecahan: ');Readln(n); Writeln; For i := 1 to n do Begin Write('Pembilang ke-',i,' : ');Readln(pmb[i]); Write('Penyebut ke-',i,' : ');Readln(pny[i]); End; Writeln; Writeln('Pecahan Yang Di Masukkan:'); For i := 1 to n do Writeln(pmb[i],'/',pny[i]); For i := 1 to n-1 do For j := i+1 to n do Begin if ((pmb[i]/pny[i])>(pmb[j]/pny[j])) thenBegin t1:=pmb[i]; t2:=pny[i]; pmb[i]:=pmb[j]; pny[i]:=pny[j]; pmb[j]:=t1; pny[j]:=t2; End; End; Writeln; Writeln('Hasilnya: '); For i := 1 to n do Writeln(pmb[i],'/',pny[i]); End. Output...

Program Konversi Waktu

Program Konversi_Waktu; Uses Wincrt; Var j,m,d,h:integer; begin Writeln('Program Konversi Waktu'); Writeln('======================'); Writeln; Write('Masukkan Jumlah Jam : ');readln(j); Write('Masukkan Jumlah Menit : ');readln(m); Write('Masukkan Jumlah Detik : ');readln(d); Writeln; h:=(j*3600)+(m*60)+d; Writeln('Jadi Hasil Konversi : ',h,' Detik'); end. Output: ...

Program Konversi Fareinheit Ke Celcius

Program Konversi_Suhu; Uses WinCrt; var f,c:real; begin Writeln('Program Konversi Fareinheit Ke Celcius'); Writeln('======================================'); Writeln; Write('Masukan Suhu dalam Farenheit: ');readln(f); c:=5/9*(f-32); Writeln; Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2); end. Output...

Program menentukan huruf Vokal dan Konsonan

Normal 0 false false false IN X-NONE X-NONE /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Table Normal"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; ...

Program Menjumlahkan Bilangan Pecahan

v\:* {behavior:url(#default#VML);} o\:* {behavior:url(#default#VML);} w\:* {behavior:url(#default#VML);} .shape {behavior:url(#default#VML);} Normal 0 false false false IN X-NONE X-NONE /* Style...

Program menghitung gajih bersih pegawai

Program untuk menyelesaikan perhitungan Gaji Bersih Pegawai jika diminta sebagai input dari program adalah NIP, NAMA dan Gol. Nilai Gaji Pokok Pegawai didapatkan dengan kondisi berikut ini.Gol I   : Rp. 1.000.000 GolII  :Rp. 1.800.000 Gol III : Rp. 2.200.000 Gol IV: Rp. 3.500.000Gaji Bersih Karyawan adalah gaji setelah ditambah tunjangan istri dan tunjangan anak.  Jika Pegawai memiliki anak, maka besar tunjangan anak adalah 5 % per anak. Dan besar tunjangan istri adalah 10 %. Dan dari gaji ini dipotong lagi dengan asuransi Taspen sebesar 2% dari Gaji Pokok. Output: Jika ada pertanyaan tinggalkan koment...

Menentukan Grade Usia Seseorang

Program untuk menentukan grade usia seseorang, apakah termasuk balita, anak-anak, remaja, dewasa atau tua. Grade usia berdasarkan table dibawah ini : Usia Ket 1 – 5 tahun Balita 6 – 10 tahun Anak-anak 11 – 18 tahun Remaja 19 – 50 tahun Dewasa 51 – unlimited Tua Output: jika ada pertanyaan tinggalkan koment...

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Affiliate Network Reviews