Program Data Tamu Dengan Turbo Pascal

Program Data Tamu Dengan Turbo Pascal

dandriabas       Comment   

Berikut ini adalah source kode pascal Program Data Tamu

Program Ujian;
Uses Crt;
Var      kode, nama, alamat, inap, tipe                 : String;
         tarif, total, potongan                         : Real;
Begin
Clrscr;

Gotoxy(15,4); Write('Kode Kamar               : '); Readln(kode);
Gotoxy(15,5); Write('Nama Tamu                : '); Readln(nama);
Gotoxy(15,6); Write('Alamat                   : '); Readln(alamat);
Gotoxy(15,7); Write('Lama Inap                : '); Readln(inap);
Gotoxy(15,8); Write;


if kode = 'A1' Then
   Begin
   tipe        := 'EKONOMI';
   tarif       := 65000;
   End

else if kode = 'A2' Then
   Begin
   tipe        := 'SUITE';
   tarif       := 75000;
   End

else if kode = 'A3' Then
   Begin
   tipe        := 'DELUXE';
   tarif       := 105000;
   End

else if kode = 'A4' Then
   Begin
   tipe        := 'PRESIDENT';
   tarif       := 165000;
   potongan    := tarif * 0.5;
   total       := tarif - potongan;
   End;


Gotoxy(15,9);  Writeln('Kode Kamar            : ', kode);
Gotoxy(15,10); Writeln('Nama Tamu             : ', nama);
Gotoxy(15,11); Writeln('Alamat                : ', alamat);
Gotoxy(15,12); Writeln('Lama Inap             : ', inap);
Gotoxy(15,13); Writeln('Type Kamar            : ', tipe);
Gotoxy(15,14); Writeln('Biaya Kamar           : ', tarif:4:2);
Gotoxy(15,15); Writeln('Potongan              : ', potongan:4:2);
Gotoxy(15,16); Writeln('Total Bayar           : ', total:4:2);

End.
  

Dan Berikut Hasil Run Dari ProgramNya.

Selamat malam, dan salam Pemograman.

Program Menghitung Nilai Mahasiswa

Program Menghitung Nilai Mahasiswa

dandriabas       Comment   

1. Flowchart

2. Kode Pascal

Program Ujian;
Uses Crt;
Var      Nim, Nama, Ttl, Alamat                 : String;
         Tugas, Uts, Uas                        : Byte;
         Akhir                                  : Real;
         Keterangan,
         Status                                 : String[15];
         Grade                                  : String[2];
Begin
Clrscr;

Write('Masukan Nim                              : '); Readln(Nim);
Write('Masukan Nama                             : '); Readln(Nama);
Write('Masukan Tempat/Tanggal Lahir             : '); Readln(Ttl);
Write('Masukan Alamat                           : '); Readln(Alamat);
Write('Masukan Tugas                            : '); Readln(Tugas);
Write('Masukan Uts                              : '); Readln(Uts);
Write('Masukan Uas                              : '); Readln(Uas);

Akhir := (0.2 * Tugas) + (0.3 * Uts) + (0.5 * Uas);
Writeln;

if Akhir >= 60 Then
   Status := 'Lulus'
else
   Status := 'Gagal';

if Akhir > 80 Then
   Begin
   Grade        := 'A';
   Keterangan   := 'Sangat Memuaskan';
   End

else if Akhir > 70 Then
   Begin
   Grade        := 'B';
   Keterangan   := 'Memuaskan';
   End

else if Akhir > 60 Then
   Begin
   Grade        := 'C';
   Keterangan   := 'Cukup';
   End

else if Akhir > 50 Then
   Begin
   Grade        := 'D';
   Keterangan   := 'Kurang';
   End

else
   Begin
   Grade        := 'E';
   Keterangan   := 'Kurang Sekali';
   End;

Writeln('Dinyatakan     : ', Status);
Writeln('Dengan Grade   : ', Grade);
Writeln('Keterangan     : ', Keterangan);

End.

Program Menentukan Bilangan Genap & Ganjil

Program Menentukan Bilangan Genap & Ganjil

dandriabas       Comment   

Kode Pascal Genap

Program Bil_ganjil;
Uses Crt;
Var
        x               : Integer;
        Banyaknya       : Integer;
Begin

        x := 1;
        Clrscr;

        Writeln('Bilangan Genap Untuk 1<=x<=100');
        Writeln('..............................');

        While x < 100 Do
        Begin
             if (x mod 2) = 0. Then
        Begin
             Inc(Banyaknya);
             Write(x:10);
        End;
        x := x + 1;

        End;

Writeln;
Writeln('Jumlah Bilangan Sebanyak : ', Banyaknya);
Readln;
End.

Dan hasilnya akan seperti gambar dibawah ini

Kode Pascal Ganjil

Program Bil_ganjil;
Uses Crt;
Var
        x               : Integer;
        Banyaknya       : Integer;
Begin

        x := 1;
        Clrscr;

        Writeln('Bilangan Genap Untuk 1<=x<=100');
        Writeln('..............................');

        While x < 100 Do
        Begin
             if (x mod 2) = 1. Then
        Begin
             Inc(Banyaknya);
             Write(x:10);
        End;
        x := x + 1;

        End;

Writeln;
Writeln('Jumlah Bilangan Sebanyak : ', Banyaknya);
Readln;
End.

Dan hasilnya akan seperti gambar dibawah ini

Program Menghitung Nilai rata-rata Mahasiswa dengan Pascal

Program Menghitung Nilai rata-rata Mahasiswa dengan Pascal

dandriabas       Comment   

Quis Algoritma Pemrograman II Menghitung Nilai Rata-rata Mahasiswa

Ketikan kode pascal berikut ini :

 
Program NilaiMahasiswa;
Uses Crt;
Var
   nama, nim, jurusan : string;
   algo, agama, tugas, mid, uas, akhir : integer;
   rata : real;

   Begin
   Clrscr;
   Gotoxy(10,4); Write('Masukan Nama/Nim        : '); readln(nama);
   Gotoxy(47,4); Write('/'); readln(nim);
   Gotoxy(10,5); Write('Masukan Jurusan         : '); readln(jurusan);
   Gotoxy(10,6); Write('Masukan Nilai Algoritma : '); readln(algo);
   Gotoxy(10,7); Write('Masukan Nilai Agama     : '); readln(agama);
   Gotoxy(10,8); Write('Masukan Nilai Tugas     : '); readln(tugas);
   Gotoxy(10,9); Write('Masukan Nilai Mid       : '); readln(mid);
   Gotoxy(10,10); Write('Masukan Nilai Uas       : '); readln(uas);

   Gotoxy(10,11); Write('=========================================');

   akhir := algo + agama + tugas + mid + uas;
   rata  := akhir / 5;

   Gotoxy(10,12); Writeln('Nama Mahasiswa       : ' , nama);
   Gotoxy(10,13); Writeln('Nim                  : ' , nim);
   Gotoxy(10,14); Writeln('Jurusan              : ' , jurusan);
   Gotoxy(10,15); Writeln('Nilai Akhir          : ' , akhir);
   Gotoxy(10,16); Writeln('Nilai Rata-rata      : ' , rata:2:2);
   End.

Dan hasilnya akan seperti dibawah ini :

Contoh Penggunaan Gotoxy Pada Pemrograman Pascal

Contoh Penggunaan Gotoxy Pada Pemrograman Pascal

dandriabas       Comment   

Kali ini kita akan membahas penggunaan gotoxy dalam pemrograman pascal.

1. Algoritma

1. Mulai
2. Deklarasi variabel nama, nim, alamat, jenjang, jurusan, spp
3. Masukan nama
4. Masukan nim
5. Masukan alamat
6. Masukan jenjang
7. Masukan jurusan
8. Masukan spp
9. Tampilkan nama
10. Tampilkan alamat
11. Tampilkan nim
12. Tampilkan jenjang
13. Tampilkan jurusan
14. Tampilkan spp
15. End

2. Pseucode

1. Start
2. Declaration Variabel nama, nim, alamat, jenjang, jurusan, spp
3. Input nama
4. Input nim
5. Input alamat
6. Input jenjang
7. Input jurusan
8. Input spp
9. Display nama
10. Display nim
11. Display alamat
12. Display jenjang
13. Display jurusan
14. Display spp
15. End

3. Flowchart

4. Final Kode Pascal

Ketikan kode pascal berikut ini

Program Data_Mahasiswa;
Uses Crt;

Var
   nama, nim, alamat, jenjang, jurusan : String;
   spp : String;

   Begin
   Clrscr;
   Gotoxy(10,4); Write('Masukan Nama/Nim : '); readln(nama);
   Gotoxy(35,4); Write('/'); readln(nim);
   Gotoxy(10,5); Write('Alamat           : '); readln(alamat);
   Gotoxy(10,6); Write('Jenjang          : '); readln(jenjang);
   Gotoxy(35,6); Write('/'); readln(jurusan);
   Gotoxy(10,7); Write('SPP               :'); readln(spp);

   Gotoxy(10,9); Write('=================================');

   Gotoxy(10,10); Writeln('Nama      : ' ,nama);
   Gotoxy(10,11); Writeln('Nim       : ' ,nim);
   Gotoxy(10,12); Writeln('Alamat    : ' ,alamat);
   Gotoxy(10,13); Writeln('Jenjang   : ' ,jenjang);
   Gotoxy(10,14); Writeln('Jurusan   : ' ,jurusan);
   Gotoxy(10,15); Writeln('SPP       : ' ,spp);
   End.

Dan Hasilnya akan seperti gambar dibawah ini :

Program Penjumlahan Bilangan dengan Turbo Pascal

Program Penjumlahan Bilangan dengan Turbo Pascal

dandriabas       Comment   

 

 

1. Penjumlahan Bilangan dengan Turbo Pascal

Program perhitungan_bilangan;
Uses Crt;
Var
A, B, Kali, Kurang, Tambah : Integer;
Bagi : Real;
Begin
     Clrscr;

     Write('Masukan Bilangan A :');readln(A);
     Write('Masukan Bilangan B :');readln(B);

     Kali := A*B;
     Kurang := A-B;
     Tambah := A+B;
     Bagi := A/B;

     Clrscr;

     Writeln('Bilangan A :',A);
     Writeln('Bilangan B :',B);
     Writeln('Hasil Perkalian Bilangan A dan B :' ,Kali);
     Writeln('Hasil Pengurangan Bilangan A dan B :' ,Kurang);
     Writeln('Hasil Penjumlahan Bilangan A dan B :' ,Tambah);
     Writeln('Hasil Pembagian Bilangan A dan B :' ,Bagi);
     Writeln;
End.

Hasilnya akan seperti dibawah ini :

 

 Untuk mendapatkan hasil seperti di atas, tekan shortcut pada keyboard :

Alt + F9 = Untuk Compile

Ctrl + F5 = Untuk Run 

Alt + F5 = Untuk Lihat Hasil

2. Algoritma, Pseucode dan Flowchart Menghitung Luas dan Keliling Lingkaran

1. Algoritma
- Mulai
- Masukan Jari-jari
- Luas = 3.14 * r * r
- Keliling = 2 * 3.14 * r
- Tampilkan Luas dan Keliling
- Selesai

2. Pseucode
- Start
- Input r
- Set keliling = 2 * 3.14 * r
- Set luas = 3.14 * r * r
- Display keliling
- Display luas
- End

3. Flowchart

3. Program Mencari Luas Segitiga, Keliling Persegi Panjang, dan Volume Kerucut

Ketikan baris kode pascal dibawah ini :

Program sederhana;
Uses Crt;
Var
   pil  : byte;
   a, t, p, l, r, Hasil : integer;
   Luas : real;
   Volume : real;
Begin
     Clrscr;
     Writeln('Menu Program');
     Writeln('1. Menghitung Luas Segitiga');
     Writeln('2. Menghitung Keliling Persegi Panjang');
     Writeln('3. Menghitung Volume Kerucut');

     Write('Masukan Pilihan :'); readln(pil);

     if pil = 1 then

     begin
     clrscr;
     Writeln('Menghitung Luas Segitiga');
     Write('Masukan Nilai Alas :'); readln(a);
     Write('Masukan Nilai Tinggi :'); readln(t);
     writeln;
     Luas := (a*t)/2;
     Writeln('Luas Segetiga adalah =' ,Luas:6:2);
     readln;
     end

     else if pil = 2 then

     begin
     clrscr;
     Writeln('Menghitung Keliling Persegi Panjang');
     Write('Masukan Panjang Persegi Panjang :'); readln(p);
     Write('Masukan Lebar Persegi Panjang :'); readln(l);
     writeln;
     Hasil := 2*(p+l);
     Writeln('Keliling Bangun Persegi Panjang adalah: ' ,Hasil);
     readln;
     end

     else if pil = 3 then

     begin
     clrscr;
     Writeln('Menghitung Volume Kerucut');
     Write('Masukan tinggi kerucut :'); readln(t);
     Write('Masukan Jari-jari Kerucut :'); readln(r);
     Writeln;
     Volume := (1/3) * (22/7) * r * r * t;
     Writeln('Volume Kerucut adalah : ' ,Volume);
     readln;
     end

     else
     begin
     clrscr;
     writeln('tidak ada pilihan dari angka yang anda masukan');
     readln;
     end
End.

Jalankan Kode Pascal dengan Cara
Alt + F9 Untuk Compile Program
Ctrl + F9 Untuk Menjalankan Program
Alt + F5 Untuk Melihat Hasil Program

Dan hasilnya akan seperti dibawah ini

Hasil Compile

Hasil Program(1) - Luas Segitiga

Hasil Program(2) - Keliling Persegi Panjang

Hasil Program(3) - Volume Kerucut

4. Algoritma Mencari Luas Trapesium

1. Mulai
2. Deklarasi Variabel Luas, Rusuk, Tinggi
3. Masukan Rusuk
4. Masukan Tinggi
5. Luas = 0.5 x Rusuk x Tinggi
6. Tampilkan Luas
7. Selesai

Algoritma & Flowchart Data Mahasiswa

Algoritma & Flowchart Data Mahasiswa

dandriabas       Comment   

 

Implementasi kode pascal

1. Algoritma

• Mulai
• Masukan nama
• Masukan nim
• Masukan alamat
• Nama saya adalah = nama
• Nim = nim
• Alamat saya = alamat
• Tampilkan nama
• Tampilkan nim
• Tampilkan alamat
• Selesai

2. Flowchart