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:


Deklarasi Tipe

     Tipe data dalam pascal dibedakan dalam dua macam, yaitu : tipe data dasar dan tipe data bentukan. Tipe data dasar terdiri dari: bilangan logic, bilangan bulat, bilangan Riil dan Karakter. Sedangkan tipe data bentukan terdiri dari: string, Rekaman dan tipe bentukan yang dibentuk dari tipe dasar.
  • Bilangan Logika

Nama Tipe               :       Boolean
Rentang Nilai           :       Benar (True) atau salah (False)
                                      Benar (1) atau Salah (0)
Operasi                    :       Not, And, or, Xor

Y
NOT Y
True
False
False
True
X
Y
X and Y
X or Y
X xor Y
True
True
True
True
False
True
False
False
True
True
False
True
False
True
True
False
False
False
False
False
Keterangan :
Not              : Kebalikan dari nilai yang diberikan
And             : bernilai benar apabila keduanya benar
Or                : bernilai benar apabila keduanya benar atau salah satunya benar
Xor              : bernilai benar apabila salah satunya saja yang benar

Operator Not merupakan operator Unary (hanya 1 operand)
Operator AND, OR, XOR merupakan operator Binary (operator yang memerlukan 2 operand)

contoh:
   
  • BILANGAN BULAT
Ada 5 tipe pada bilangan integer
TIPE
RENTANG NILAI
UKURAN
Shortint
-128..127
Signed 8 bit
Integer
-32768 .. 32767
Signed 16 bit
Longint
-2147483648 .. 2147483648
Signed 32 bit
Byte
0 .. 255
Unsigned 8 bit
Word
0 .. 65535
Unsigned 16 bit







Operasi pada bilangan bulat, terdiri dari operasi aritmatika dan operasi perbandingan


Operator aritmatika
 +
penjumlahan
-
Pengurangan
*
Perkalian
Div
Pembagian bulat
Mod
Sisa hasil bagi
Operator Perbandingan
=
Sama dengan
< 
Lebih kecil dari
> 
Lebih besar dari
<=
Lebih kecil sama dengan
>=
Lebih besar sama dengan
<> 
Tidak sama dengan










  • Bilangan Real (pecahan)
     Bilangan Real merupakan bilangan pecahan yang dinyatakan dalam bentuk eksponensial. Bilangan real memiliki beberapa macam tipe, yaitu:
TIPE
RENTANG NILAI
UKURAN
Real
2.9 x 10-39 .. 1.7 x 1038
6 byte
Single
1.5 x 10-45 .. 3.4 x 1038
4 byte
Double
5.0 x 10-324 .. 1.7 x 10308
8 byte
Extended
3.4 x 10-4932 .. 1.1x104932
10 byte

pada bilangan bulat, terdiri dari operasi aritmatika dan operasi perbandingan
Operator aritmatika
 +
penjumlahan
-
Pengurangan
*
Perkalian
Div
Pembagian bulat
Mod
Sisa hasil bagi
Operator Perbandingan
=
Sama dengan
< 
Lebih kecil dari
> 
Lebih besar dari
<=
Lebih kecil sama dengan
>=
Lebih besar sama dengan
<> 
Tidak sama dengan

  • CHAR

    Char adalah semua character yang terdapat pada tombol keyboard atau semua karakter yang terdapat dalam kode ASCII.
Operasi yang ada pada tipe ini hanya operasi perbandingan
Operator Perbandingan
=
Sama dengan
< 
Lebih kecil dari
> 
Lebih besar dari
<=
Lebih kecil sama dengan
>=
Lebih besar sama dengan
<> 
Tidak sama dengan

Contoh :
‘a’ = ‘a’ hasil : true
‘M’ = ‘m’ hasil : false
‘m’ < ‘z’ hasil : true

  • STRING

String adalah deretan karakter dengan panjang tertentu
Operasi yag terdapat pada tipe string, yaitu:
  •      Operasi Penyambungan (Concatenation)

                Operasi penyambungan menggunakan operator „+‟

                Contoh : „AKMI‟ + „ Baturaja‟ hasilnya: „AKMI Baturaja‟

  •    Operasi Perbandingan

Operator Perbandingan
=
Sama dengan
< 
Lebih kecil dari
> 
Lebih besar dari
<=
Lebih kecil sama dengan
>=
Lebih besar sama dengan
<> 
Tidak sama dengan
                            Contoh:
          ‘aku’    =       ‘akur’  hasil : false
                   ‘aku’    <       ‘AKU’  hasil : true
  •     REKAMAN

Rekaman disusun oleh satu atau lebih field. Tiap field menyimpan data dari tipe dasar tertentu yang sudah didefenisikan sebelumnya. Rekaman juga disebut dengan tipe terstruktur.

  • TIPE BENTUKAN DARI TIPE DASAR 

Nama baru untuk tipe bentukan dapat dibuat dengan kata kunci type.
Contoh:
Type Bulat    : Integer;
Keterangan : membuat tipe baru dengan nama bulat yang sama dengan integer.