Sabtu, 22 Oktober 2016

PROGRAM MENGHITUNG NILAI MAHASISWA

Pada program menghitung nilai mahasiswa kita dapat menginput nim, nama mahasiswa serta nilai yang di programkan oleh maasiswa.
            Langkah-langkah membuat program honor yaitu:
1.    Gunakan Laptop atau PC. System operasi yang saya gunakan Windows 7
2.    Pastikan anda telah menginstall aplikasi pascal, turbo pascal version 7 yang saya gunakan.
3.    Compile pascal yang telah di install
4.    Pilih file change Directory (untuk menyimpan file pada hardisk dan folrder yang telah di pilih)
5.    Klik save
6.    Selanjutkan ketik koding di bawah ini:

Uses crt;
Var
nim, nama :string;
a, b, c, d, e, f, jumlah:integer;
rata : real;
begin
write(‘Masukkan NIM    : ‘);   readln(nim);
write(‘Masukkan Nama : ‘);   readln(nama);
writeln(‘=====================================’);
write(‘Masukkan Nilai Agama   : ‘);  readln(a);
write(‘Masukkan Nilai Algoritma   : ‘);  readln(b);
write(‘Masukkan Nilai Matematika  : ‘);  readln(c);
write(‘Masukkan Nilai Akuntansi   : ‘);  readln(d);
write(‘Masukkan Nilai Bahasa Inggris  : ‘);  readln(e);
write(‘Masukkan Nilai Bahasa Indonesia  : ‘);  readln(f);
jumlah:=a+b+c+d+e+f;
rata:=(a+b+c+d+e+f)/6;
writeln;
writeln(‘NIM  : ‘, nim);
writeln(‘Nama : ‘, nama);
writeln(‘Jumlah Total : ‘,jumlah);
writeln(‘Rata-rata Nilai : ‘,rata:4:2);
readln;
end.


7.   Setelah coding di atas di ketik selanjutnya pilih menu runrun atau ctrl+ F9

PROGRAM HONOR

Pada program honor ini kita dapat mengetahui honor  yang di dapat oleh pegawai/karyawan, tunjangan anak apabila telah menikah dan di karunai anak serta gaji  bersih yang di dapatkan dari gaji dikurangi pajak.
Langkah-langkah membuat program honor yaitu:
1.    Gunakan Laptop atau PC. System operasi yang saya gunakan Windows 7
2.    Pastikan anda telah menginstall aplikasi pascal, turbo pascal version 7 yang saya gunakan.
3.    Compile pascal yang telah di install
4.    Pilih file change Directory (untuk menyimpan file pada hardisk dan folrder yang telah di pilih)
5.    Klik save

6.    Selanjutkan ketik koding di bawah ini:

{program hitung honor}
 
Uses crt;
Label mulai, akhir;
Var nama    : string;
 St, jk, jw   : char;
 Ja, jhk    :integer;
Hnr,tk, ta, thnr, hnrb, pajak :real;
Begin
 Mulai:
 Clrscr;
 Write (‘Nama Pegawai  :’); readln (nama);
 Write(‘Jenis kelamin [P/W]  :’);readln(jk);
 Write(‘Status Pegawai [N/B] :’);readln(st);
 Write(‘Jumlah hari kerja  :’);readln(jhk);
 
If (jk =’P’) or (jk =’p’) then hnr := 150000 else hnr := 145000;
Thnr := jhk * hnr;
Case st of
 ‘N’ : begin
  Tk := 0.2 * thnr;
  Write (‘Jumlah anak   :’); readln (ja);
Case ja of
  0 : ta:=0;
 1 : ta:= 0.1 * thnr;
 2 : ta:= (0.1 * thnr)+(0.15 * thnr);
 3 : ta:= (0.1 * thnr)+(0.15 * thnr)+(0.2 * thnr);
 Else ta:= (0.1 * thnr)+(0.15 * thnr)+(0.2*thnr);
  End;
 ‘B’ : begin
 Tk := 0;
 Ta := 0;
 End;
End;

Thnr:= hnr + tk + ta;
Pajak:= 0.2 * thnr;
hnrb := thnr – pajar;

clrscr;
writeln (‘ Saudara    :’,nama);
writeln (‘ Jenis Kelamin   :’,jk);
writeln (‘ Status    :’,st);
writeln (‘ Sudah bekerja selama  :’,jhk); writeln (‘hari’);
writeln;
writeln (‘ …………………….Berhak Mendapat…………..’);
writeln (‘ Tunjangan Keluarga Sebesar   :Rp.’, tk:7:2);
writeln (‘ Tunjangan Anak Sebesar   :Rp.’, ta:7:2);
writeln (‘ Total Honorarium     :Rp.’, thnr:7:2);
writeln (‘ Wajib Membayar Pajak Sebesar  :Rp.’, pajak:7:2);
writeln (‘ Mendapat Honor Bersih Sebesar  :Rp.’, hnrb:7:2);

write (‘apakah ada data lain [Y/T] :’);  readln (jw);
if (jw=’Y’) or (jw =’y’) then goto mulai else goto akhir;

akhir :
write (‘TERIMA KASIH ………………SAMPAI JUMPA’);
end.
7.    Setelah coding di atas di ketik selanjutnya pilih menu runrun atau ctrl+ F9




PROGRAM KONVERSI SUHU

Pada program konversi suhu ini kita dapat mengetahui suhu yang lain seperti fahreinhaid, reamur dan Kelvin.

Langkah-langkah membuat program konversi suhu sederhana yaitu:
1.    Gunakan Laptop atau PC. System operasi yang saya gunakan Windows 7
2.    Pastikan anda telah menginstall aplikasi pascal, turbo pascal version 7 yang saya gunakan.
3.    Compile pascal yang telah di install
4.    Pilih file change Directory (untuk menyimpan file pada hardisk dan folrder yang telah di pilih)
5.    Klik save

6.    Selanjutkan ketik koding di bawah ini:

Uses crt;
var 
c,f,r,k:real;
begin
clrscr;
      writeln  (‘Ini adalah Program Konversi Suhu’);
      write  (‘Masukkan Suhu Dalam Celcius = ‘); readln(c);

f:=(c*(9/5))+32;
r:=(c*(4/5));
k:=(c+273.15);

writeln(‘Suhu dalam fahrenhait adalah  : ‘,f:6:2);
writeln(‘Suhu dalam reamur adalah   : ‘,r:6:2);
writeln(‘Suhu dalam kelvin adalah   : ‘,k:6:2);
readln;
end.

7.    Setelah coding di atas di ketik selanjutnya pulih menu runrun atau ctrl+ F9

Program Inputkan Nama Dan Operasi Matematika

Program inputan ini dimana anda dapat menginput nama sendiri atau nama sesuai yang anda inginkan dan dapat mengoperasikan matematika seperti: penjumlahan, pengurangan, perkalian, pembagian dan mean atau rata-rata.
Langkah-langkah membuat program input nama dan operasi matematika  yaitu:
1.    Gunakan Laptop atau PC. System operasi yang saya gunakan Windows 7
2.    Pastikan anda telah menginstall aplikasi pascal, turbo pascal version 7 yang saya gunakan.
3.    Compile pascal yang telah di install
4.    Pilih file change Directory (untuk menyimpan file pada hardisk dan folrder yang telah di pilih)
5.    Klik save

6.    Selanjutkan ketik koding di bawah ini:

Uses crt;
var
      nim, nama :string;
      a,b,jumlah,kurang,kali:integer;
      bagi,rata : real;
begin
         write(‘Masukkan NIM : ‘);  readln(nim);
        write(‘Masukkan Nama : ‘);   readln(nama);
writeln(‘======================================’);
         write(‘Masukkan Bilangan pertama : ‘);  readln(a);
         write(‘Masukkan Bilangan kedua : ‘);   readln(b);
         jumlah:=a+b;
         kurang:=a-b;
         kali:=a*b;
         bagi:=a/b;
        rata:=(a+b)/2;
writeln;
writeln(‘NIM Saya adalah : ‘, nim);
writeln(‘Nama Saya adalah : ‘, nama);
writeln(‘Hasil Penjumlahan : ‘,jumlah);
writeln(‘Hasil Pengurangan : ‘,kurang);
writeln(‘Hasil Perkalian : ‘,kali);
writeln(‘Hasil Pembagian : ‘,bagi:4:2);
writeln(‘Rata Ratanya : ‘,rata:4:2);
readln;
end.

7.    Setelah coding di atas di ketik selanjutnya pilih menu runrun atau ctrl+ F9

Jumat, 21 Oktober 2016

Program Membuat Kalkulator Sederhana

Kalkulator merupakan alat bantu yang digunakan manusia untuk memudahkan kita dalam  menghitung operasi bilangan seperti penjumlahan, pengurangan, perkalian, pembagian ataupun pemangkatan. Dengan adanya kalkulator kita bisa dengan cepat dan mudah mendapatkan hasil dari proses pengolahan angka.
Pernahkah sobat berfikir bagaimana cara membuat kalkulator? bagaimana proses yang dilakukan sebuah kalkulator untuk  menghitung? bagaimana caranya kita menginput operasi bilangan dan menghasilkan keluaran yang benar? Nah jika belum pernah, di blog ini akan belajar cara membuat sebuah kalkulator sederhana dengan menggunakan pascal.
Langkah-langkah membuat kalkulator sederhana yaitu:
1.    Gunakan Laptop atau PC. System operasi yang saya gunakan Windows 7
2.    Pastikan anda telah menginstall aplikasi pascal, turbo pascal version 7 yang saya gunakan.
3.    Compile pascal yang telah di install
4.    Pilih file change Directory (untuk menyimpan file pada hardisk dan folrder yang telah di pilih)
5.    Klik save
6.    Selanjutkan ketik koding di bawah ini:

uses crt;
var
b1, b2, i, operasi:integer;
hasil:real;

begin
clrscr;
write ('bilangan 1=');   readln (b1);
write ('bilangan 2=');   readln (b2);
write ('operasi = 1(+)  2(-)  3(/)  4(*)  5(^)'); readln (operasi);
hasil:=1;

if (operasi = 1) then
hasil := b1+b2
else if (operasi=2)then
hasil := b1-b2
else if (operasi=3) then
hasil := b1/b2
else if (operasi=4)then
hasil := b1*b2
else if (operasi=5) then
for i:=1 to b2 do
begin
hasil :=hasil*b1;
end;
writeln('hasilnya=',hasil:7:2);
readln;
end.



7.   Setelah coding di atas di ketik selanjutnya pilih menu runrun atau ctrl+ F9

Minggu, 09 Oktober 2016

Menghitung Luas dan Keliling Lingkaran

menghitung luas dan Keliling Lingkaran
Ketik kode di bawah ini:

---------------------------------------------------------------------------------------------------------------
program menghitung_luas_dan_keliling_lingkaran;

uses wincrt;(karena saya menggunakan turbo pascal for windows)

var

a,b,r:integer;

L,K:real;

const phi=3.14;

begin

write('masukkan jari-jari lingkaran = '); readln(r);

L:=phi*r*r;

K:=2*phi*r;

writeln('jadi luas lingkarannya adalah = ',L:0:2);

writeln('jadi keliling lingkarannya adalah = ',K:0:2);

readkey;

end.
---------------------------------------------------------------------------------------------------------------

Hasilnya akan tampil seperti ini: